Visual Basic Forum

Verfasst am: 21.05.2012, 14:59 Aufrufe: 22

Verfasst am: 19.05.2012, 06:56 Aufrufe: 81

Hallo Leute, ich bitte um Eure Hilfe. Es existiert ein String mit Datum und Uhrzeit im Format "2012-05-12 - 22'45'36". Wie kann ich ihn so umwandeln, dass ich damit SetCreationTime etc. neu setzen kann? Dim fileTime As DateTime fileTime = ??? File.SetCreationTime(sgPath_Target & sFilename_New, fileTime) File.SetLastWriteTime(sgPath_Target & sFilename_New, fileTime) Vielen Dank für Eu ...

Verfasst am: 11.05.2012, 13:42 Aufrufe: 52

net konvertiert und habe fast bei jede Zeile eine Warnmeldung bekommen. Private smsObj As NokiaCLMessaging.ShortMsgAdapter Private SubmitObj As NokiaCLMessaging.IGSMSubmit Private Sub Form_Load() smsObj = New NokiaCLMessaging.ShortMsgAdapter Dim smsEntry As NokiaCLMessaging.ShortMessageItem smsEntry = New NokiaCLMessaging.ShortMessageItem 'UPGRADE_WARNING: Couldn't resolv ...

Verfasst am: 03.05.2012, 17:10 Aufrufe: 179

Gleichzeitig sollen die Daten aber auch in einer Listbox angezeigt werden. Mein bisheriger Code: Dim Stempel as String Private Sub Command1_Click Stempel = Int(Now) + (Timer + seconds) / 86400 End Sub weist meiner Variablen Datum und Zeit zu, aber weiter komm ich einfach nicht. Ich weiß nicht wie ich das mit dem Array machen soll dass jedesmal beim Tastendruck das Array um einen Eintrag ...

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

ich hänge hier schon 2 monate ohne ergebnis . Mad

hier der zuständige code : Public Sub Upload() Dim pfad As String Dim datei As String Dim dateiname As String Dim open As String Dim requestStream As Stream = Nothing Dim fileStream As FileStream = Nothing Dim uploadResponse As FtpWebResponse = Nothing Anzeigebereich.Text = An ...

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht jeder erneute Anschlag regestriert der die Progressbar während des Ladens zurücksetzen soll. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 387

Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Function SHA1StringHash(ByVal strString As String) As String Dim SHA1 As New SHA1CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "" Data = Encoding.ASCII.GetBytes(strString) Result = ...

Verfasst am: 03.04.2012, 17:40 Aufrufe: 295

Dim mana_, life_, name_ As String Public Sub save(ByVal file As String) Dim sw As New IO.StreamWriter(file) ' Writer sw.WriteLine("Life" & "," & "Name" & "," & "Mana") 'text sw.Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

Es scheint so, dass die VBA-Code zu dieser Tabelle fehlerhaft ist. Aber ich finde diesen Fehler vor lauter Bäumen nicht. Hilfe! Tobias Hier ist der Code: Sub Progressbar1() Dim PctDone As Single Static freifahrt_eintrag_fertig As Boolean Dim datei_meisterschaften As String Worksheets("Fahrten").Unprotect Password:="GBF#1" Worksheets("Fahrtkosten_gesamt").Unprot ...

Verfasst am: 15.03.2012, 11:15 Aufrufe: 203

... ngemeinde, Ich bin ein frischling im Bereich VB 2010 habe es ja schonmal geschafft das sich per Button klick das Popup öffnet aber die Fentergröße des Popups ist zu klein möchte das Fenster gerne an die größe das Inhaltes anpassen nur wie mache ich das ?? hier mal mein Code Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim ...

Verfasst am: 06.03.2012, 15:36 Aufrufe: 174

Verfasst am: 06.03.2012, 08:36 Aufrufe: 174

hi das ist sogar recht leicht!! Dim x As Double x = Selection.Font.Size 'Textgröße auslesen Selection.Font.Size = x - 0.5 'Textgröße Ändern lg Deepack

Verfasst am: 26.02.2012, 10:56 Aufrufe: 176

Habe ein "Chart1" erstellt, eine "Series1" erstellt mit mehreren Datapoints (0-11) für Januar bis Dezember. Hier nur mal ein Aussschnitt von Januar - März. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim reihe0 = 5 Dim reihe1 = 3 Dim reihe2 = 10 Chart1.Series("Series1").Points(0).SetValueY ...

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

txt" For Append As #1 Print #1, Empfangene_Daten; Close #1 'Information zur Druckeinstellung aus Ini-Datei auslesen 'Es wird abgefragt, ob direkt gedruckt werden soll, oder 'der Druck erst nach Betätigung des Druck-Buttons erfolgen soll Dim Druckeinstellung As String Dim INIFile As String INIF ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 224

... n! leider will vb6 nicht in cmd reinschreiben! ich habe cmd mit dem Shell Befehl geöffnet und möchte dann mit dem Befehl sendkey etwas hineinschreiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administrator angemeldet weswegen ich denke dass cmd visual Basic nur als normalen Gastuser ansieht! Private Sub Command1_Click() Dim ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 195

.

Wie kann ich dem sonst aus einer Inputbox einen Pfad zurückgeben, den er frisst? ---------------------------------------------------- Sub RelativeBildverknuepfung() ' ' RelativeBildverknuepfung Makro ' ' Dim Datei As String 'Hier mal die Filebrowserbox und zurückgeben von Pfad und Filename als Datei vom Wert String With Dialogs(wdDialogFileOpen) If .Display = 0 Then Exit Sub 'wenn abb ...

Verfasst am: 30.01.2012, 11:25 Aufrufe: 212

oh den hidden text hab ich übersehen thx für den hinweis dass dein Dim url As String =TextBox1.Text & TextBox2.Text kann gar nicht funktionieren du benötigst ein paar anführungszeichen Dim url As String url = "=" & TextBox1.Text & TextBox2.Text & ""

Verfasst am: 29.01.2012, 15:58 Aufrufe: 212

Funktioniert leider genausowenig.... Dim url As String /url] Er sagt der "/" erwartet einen Bezeichner !

Verfasst am: 28.01.2012, 14:05 Aufrufe: 212

Verfasst am: 26.01.2012, 17:21 Aufrufe: 203

Um eine ZipDatei zu erstellen benutzer folgende Code: Sub main dim fso as new filesystemobject dim datei set datei = fso.createtextfile("C:\dateiname.zip") end sub dann wird diese Zipdatei benutzt um weiter zu arbeiten. gehe ich irgendwelche Gefahr ein? Danke für Ihre Vorschläge Very Happy

Verfasst am: 26.01.2012, 10:17 Aufrufe: 590

eine Textbox gefüllt ist oder eine Checkbox angekreuzt ist. Ist dies der Fall, soll das entsprechende Tab im TabControl gekennzeichnert werden. Mein VB Code: For Each ctl As Control in Antrag_1 If Dim ctl TypeOf(ctl) Is Textbox Then If ctl.Value <> "" Then TabControl.Pages(0) = "(*) Sammelumzug" End If End If Next Le ...

Verfasst am: 25.01.2012, 10:30 Aufrufe: 355

exe " & Environ("appdata"), vbMaximizedFocus) End Sub Private Function GetFiles(ByVal sPath As String, ByVal sFileType As String) As String Dim Ausgabe As String Dim cFile As String cFile = Dir(sPaht() & sFileType) ' Alle Exedateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" A ...

Verfasst am: 25.01.2012, 09:45 Aufrufe: 355

Verfasst am: 24.01.2012, 08:03 Aufrufe: 355

Verfasst am: 04.01.2012, 11:13 Aufrufe: 277

Imports TDAPIOLELib Public Class QCConnection Public Sub getConnection() Dim tdc As TDConnection End Sub End Class Wenn ich das Projekt nun deploye und in meinem Browser durch einen klick auf einen Button die Funktion getConnection() aufrufe, stürtzt das Programm ab und ich bekomme folgende Fehlermeldung: Start-URI: Z:\Documents and Settings\TGDGEDAD\Desktop\tmp\TDO- ...

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTmp As Short Dim sCmd As String Dim y As Byte 'make sure id is 8 chars in length While (txtID.Text.Length < 8) txtID.Text = "0" & txtID.Text ...

Verfasst am: 05.12.2011, 10:30 Aufrufe: 369

Hallo, ich bekomme es nicht hin folgenden Registry Key auszulesen: Pfad: HKLM\Hardware\Devicemap\Video Key Name: \Device\Video1 Habe schon alle möglichen Variationen mit escapen und Anführungszeichen versucht, es geht so aber nicht. Hat jemand vielleicht eine Lösung? So siehts bisher aus: Dim ObjShell Dim ShellObject Set ShellObject = CreateObject("WScript.Shell") Set ObjShell = ...

Verfasst am: 29.11.2011, 09:37 Aufrufe: 430

Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage) End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen Leerstring oData.GetFromClipboard() HoleTextVonZwischenablage = oData.Get ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 381

Seht selbst: Hier das Gesamte Projekt zum Download: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim aN As Single Dim bN As Single Render.Refresh() Render.BackColor = Color.Black For i = 0 To Ball_IndX If MoVinG(i) = 0 Then spee ...

Verfasst am: 06.11.2011, 18:42 Aufrufe: 574

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 02.11.2011, 22:19 Aufrufe: 1520

Hier der Code: Dim mailtext As String mailtext = TextBox1.Text & " " & TextBox2.Text Dim Client As New Net.Mail.SmtpClient("smtp.web.de") Client.Credentials = New Net.NetworkCredential("DEINE EMAIL ADRESSE", "DEIN EMAIL PASSWORT") Client.Send("DEINE EMAIL ADRESSE", "DEINE EMAIL ADRESSE", ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 293

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 293

php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermi ...

Verfasst am: 19.10.2011, 11:42 Aufrufe: 317

.. habe mittlw. eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 453

PointPairList wie gebe ich meinem BackgroundWorker die dll mit? Wie gesagt wenn ich den Code im HauptThread ausführe funktioniert dieser ohne Probleme Public Function calc_fractions(ByVal group As group, ByRef mes As messurement) As List(Of dataFraction) If group.channels.ContainsKey(mes.name) Then Dim temp As New ZedGraph.PointPairList Dim column ...

Verfasst am: 11.10.2011, 12:14 Aufrufe: 566

... wird, dann per Tab auf den Absendenbutton getippt wird und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf: Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim ...

Verfasst am: 06.10.2011, 15:00 Aufrufe: 426

Verfasst am: 01.10.2011, 23:40 Aufrufe: 447

Hallo ihr lieben ich brauche mal euer können ich arbeite zurzeit an einem tool was True Crypt laufwerke einbinden und ausbinden soll 2 button habe ich erstellt in einer form und den code benutze ich nur irgendwie passiert nichts wenn ich auf die button klicke hat einer eine idee Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Tr ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 433

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 20.09.2011, 12:53 Aufrufe: 501

tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _ rstSupplierCustomer!Suppliername & "/" _ & rstSupplierCustomer!Customername rstSupplierCustomer.MoveNext etwas mehr vom Code: ... Private Sub Form_Load() Dim db As DAO.Database Dim rstComponent As DAO.Recordset2 Dim rstSupplierCustomer As DAO.Recordset2 Dim objNode As MSComc ...

Verfasst am: 17.09.2011, 10:31 Aufrufe: 212

Click Dim Ergebnis1, Ergebnis2 As Integer Dim Ergebnis3, Ergebnis4, Ergebnis5, Ergebnis6, Ergebnis7, Ergebnis8, Ergebnis9, Ergebnis10 As Double 'Formate der Ergebnisse festlegen ' Ergebnis 1 = Umrechnung ein Mitarbeiter pro Woche ' Ergebnis 2 = Summe für alle Mitarbeiter pro Woche ' Ergebnis 3 = Stunden aus Ergebnis 2 ausrechnen ' Ergebnis 4 = Minuten aus Ergebnis 5 ausre ...

Verfasst am: 30.08.2011, 16:41 Aufrufe: 530

... tdcall *GETBLOCKDATABYINDEX) (const unsigned long BufferIdx, const unsigned long dwStart, const unsigned long dwNbrOfBlocks, void* pData); in VB6 deklariere ich wie folgt: Private Declare Function GetBlockDataByIndex Lib "meine.dll" (ByVal BufferIdx As Long, ByVal dwStart As Long, ByVal NbrOfSamples As Long, ByVal pData As Byte) As Long und aufgerufen wird es mit: Dim ...

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Verfasst am: 26.08.2011, 12:20 Aufrufe: 554

Der Inhalt der List ist nicht wichtig. Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty For i = 0 To m_listView.Columns.Count - 1 str = str & m_listView.Columns(i).Text & ...

Verfasst am: 10.08.2011, 08:34 Aufrufe: 541

Die Dateien haben dann exakt den gleichen Inhalt und trotzdem geht die ursprüngliche Datei nicht und DXF-Dateien sind doch nur Text-Dateien .... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfan ...

Verfasst am: 09.08.2011, 13:25 Aufrufe: 1410

Hallo liebe Gemeinde, ich habe mich mit dem folgenden Quellcode recht strikt an ein Beispiel aus dem Buch VisualBasic 2008 (Doberenz, Gewinnus) gehalten. Nur dass es dort für OLE beschrieben war. Folgender Code: Public Sub MySQLwrite(ByRef ds As DataSet) Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) MySQLcnn.Open() da.Update(ds, "Produktcode") M ...

Verfasst am: 28.07.2011, 21:21 Aufrufe: 614

Hallo zusammen Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen? Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sourc ...

Verfasst am: 21.07.2011, 16:14 Aufrufe: 456

Verfasst am: 20.07.2011, 17:09 Aufrufe: 772

Hallo zusammen, ich habe das Problem, dass ich aus einem beliebigen Forumular den Inhalt von Textboxen in eine Excel-Datei packen will. Heißt also das ich zb. Hallo in die Textbox eingebe und auf einen Button drücke. Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim ...

Verfasst am: 20.07.2011, 14:19 Aufrufe: 873

hi ja kein problem... Private Declare Function SetCursorPos Lib "user32.dll" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub SetCur2Lbl() Dim xTop As Long Dim xLeft As Long With lblStart xTop = Me.Top + .Top + (.Height / 2) xLeft = Me.Left + .Left + (.Width / 2) xTop = xTop / Screen.TwipsPerPixelX xLeft = xLeft / Screen.Twi ...