Visual Basic Forum

Verfasst am: 19.05.2012, 06:56 Aufrufe: 82

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: 02.06.2011, 22:21 Aufrufe: 447

Statt doEvents muss man hier application.doEvents nehmen, da das normale doEvents in vb.Net so nicht mehr Existiert Wink

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Object, ByVal e As System.EventArgs) Handles Button2.Click 'Wenn der Block bereits existiert, die Farbe des Rahmens ändern If Not (Block Is Nothing) Then Block.FrameColor = Color.Red End If End Sub End Class Public Class clBlock Inherits Control Private Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect" (ByVal hDC As Integer, By ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 812

. Ganz unten ist der Zeit Timer Wink

Das selbe ist auch bei der Musik... ACHTUNG!!!! Wichtige Frage: Wenn ich Form6 öffne sagt Form4 Mad

das ein Steuerelemt das in Form6 erstellt werden soll nicht existiert... Das Copyright dieses Codes liegt bei mir und den leuten dir mir ausßlichlich in diesem Forum halfen.Jegliche veröffenlichung und nicht private Nutzung, die nur unter meinem Nicname stattfinden ...

Verfasst am: 05.01.2010, 17:13 Aufrufe: 491

Ich würde gerne ein Programm schreiben, das folgendes macht: eine VPN Verbindung erstellen (sich in den Autostartordner kopieren) beim Autostart nachsehen ob die Verbindung bereits existiert, wenn ja verbinden, wenn nein eine neue erstellen wie mache ich das ?

Verfasst am: 04.01.2010, 07:11 Aufrufe: 1334

Die Datei existiert auf meinen HDD's nicht mehr. Aber es ist eine Leichtigkeit so ein Programm zu schreiben. Erkundige dich ein bisschen in anderen Foren und du wirst es auch schaffen.

Verfasst am: 05.12.2009, 20:42 Aufrufe: 476

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1804

Spieleprogrammierung mit XNA - Teil 3Willkommen zum dritten Tutorial,mir ist grad langweilig, also hab ich das dritte schon geschrieben. :DIn diesem Teil geht es um die erste Textur, die wir anzeigen wollen.Ich gehe vom Source aus Tutorial Nummer 2 aus, also bitte ladet das Projekt schonmal Wink

3.1 Neue Variablen!Mit neuen Funktionen kommen auf neue Variablen zum Einsatz. Das ist auch bei XNA so.Folgende Variablen ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1921

... "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToFormat(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

... , "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToUTF8(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert ...

Verfasst am: 11.11.2009, 15:06 Aufrufe: 1426

... es die suche nach genau der SalesOrg, bei denen die Länder AT02, BE22 und und und eingetragen sind. Eine solche Abfrage kann man in Access mit dem Assistenten erstellen. Alternativ geht es auch über eine SQL Anweisung. select SalesOrg from Tabelle where Country1 = AT02 and Country2 = BE22 usw. Entweder er findet dann eine SalesOrg oder gibt den Hinweis aus, daß eine solche Kombination nicht existiert ...

Verfasst am: 23.10.2009, 13:11 Aufrufe: 719

Gesagt getan datei erstellt und geteste und die Provider die ich dacht die Müssen es ein funktionieren nicht ( - SQL NATIVE CLIENT ; -Microsoft OLE DB PROVIDER FOR SQL SERVER [Fehler beim Testen der Verbindung durch einen Fehler beim Initialisieren des Providers [DBNETLIB][ConnectioOpen(Connect())),]SQL Server existiert nicht oder Zugriff verweigert] ; -Microsoft OLE DB Provider for Search [Der Provider ist n ...

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Verfasst am: 07.08.2009, 05:26 Aufrufe: 475

... e schnell was Dim cFile As String cFile = Dir("C:\*.TXT") ' Alle Textdateien im Verzeichnis C: ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" List1.additem cFile cFile = Dir Loop jetzt hast alle textdatein von deinem verzeichnis in der listbox stehen und brauchst nur mehr mit einer forschleife prüfen ob die datei existiert ...

Verfasst am: 05.07.2009, 13:29 Aufrufe: 647

Jo der Titel sagt alles Smile

Wie geht man da vor? Danke Smile

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

ActPosition - Gibt zurück an welcher Position in der Datei er sich gerade befindet.fShredder.bStop - Kann auf True gesetzt werden um das ganze abzubrechen.Wichtiges über die Function1. Es wird überprüft ob es sich wirklich um eine Datei handelt und ob sie existiert.2. Die Attribute der Datei werden auf normal gesetzt. (Versteckte oder Geschützte Dateien würden sonst Probleme machen)3. Randomize wird mit der Api Getti ...

Verfasst am: 18.06.2009, 13:00 Aufrufe: 905

) End Sub Function Reg_Exist_Key(KeyIndex%, SubKey As String) As Boolean lhKey& = MainKey + KeyIndex Reg_Exist_Key = False l& = RegOpenKeyEx(lhKey&, SubKey, 0, KEY_ALL_ACCESS, lhKeyOpen&) 'Schlüssel existiert nicht ...

Verfasst am: 18.06.2009, 11:55 Aufrufe: 1051

Verfasst am: 15.06.2009, 18:59 Aufrufe: 1061

Meiner Meinung nach eins der beste .NET-Projekte überhaupt, da man die Winsock für praktisch jedes Server-Client Programm benötigt und die Winsock in der Form gar nicht für.NET existiert:Chris Kolkman:"I started with this control when I found that VB.NET does not support the Winsock control I used to use in VB 6."Mir hat es jedenfalls sehr geholfen, nicht zuletzt auch wegen den guten Beispielprojekten - hoffe euch hi ...

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2649

Read(100)Komplette Datei auf einmal einlesenText1.Text = tStream.ReadAll4. Schreibvorgang Datei für den Schreibmodus öffnen.set tstream = fso.OpenTextFile(Filename, ForWriting, True)So wird also die Textdatei im Schreibmodus geöffnet und falls sie nicht existiert soll er sie gleich erstellen.Genauso könnte man hier Append nutzen.4.1 Zeilen Eine Zeile in die Datei schreiben:tStream.WriteLine(" ...

Verfasst am: 15.06.2009, 12:32 Aufrufe: 1470

Function Prozeduren und ich gehe mal davon aus, dass die meisten von euch schon mit beiden gearbeitet haben.Was ist nun der Unterschied zwischen den beiden?Im Endeffekt eigentlich nur der, dass man bei einer Function einen Wert zurückgeben kann.Beispiel:Eine Function zum überprüfen ob eine Datei existiert.Ihr ruft die Function auf und übergebt ihr den Pfad zur Datei.Nun wird die Function testen ob die Datei vorhanden ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

„CUSTOM“ gibt an welche Art von Ressource das ist, und es ist ja eine Benutzerdefinierte.Open (App.Path & "Programm.exe") For Binary As #1Hier öffnen wir nun die Datei, außer sie existiert noch nicht, dann wird sie erstellt.Das ganze passiert im Binär Modus und ich habe hier die Nummer #1 gewählt für diese Datei.Wenn ihr euch damit nicht auskennt, dann solltet ihr euch zuerst über dieses Th ...

Verfasst am: 15.06.2009, 12:12 Aufrufe: 2714

Stellt euch das so vor. Count ist sagen wir 10 und wir versuchen jede Zeile von 1 bis 10 zu überprüfen. Nun löschen wir aber markierte Zeilen raus, was bedeutet dass nicht mehr 10 Zeilen in der Liste sind und so wird es zu einem Fehler kommen wenn wir eine Zeile überprüfen wollen die nicht mehr existiert.Auf Step -1 dürft ihr nicht vergessen, da die Schleife sonst nicht rückwärts läuft.In der If Abfrage wird überprüf ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4399

... p; !mail = xMail 'Mail wird übergeben !password = xPass 'Pass wird übergeben .Update 'Refresh der Datenbank End If End WithSo. Das sieht jetzt nach relative viel Code aus. Das liegt aber nur daran, dass ich zusätzlich überprüfen lasse ob schon ein Eintrag mit der selben Mail Adresse existiert ...

Verfasst am: 28.05.2009, 19:54 Aufrufe: 521

Wie kann man Prüfen obe eine Datei/ ein Verzeichniss auf einem bestimmten FTP-Server existiert oder nicht?

Verfasst am: 04.05.2009, 05:40 Aufrufe: 820

Verfasst am: 23.02.2009, 10:19 Aufrufe: 1853

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

) End Sub Function Reg_Exist_Key(KeyIndex%, SubKey As String) As Boolean lhKey& = MainKey + KeyIndex Reg_Exist_Key = False l& = RegOpenKeyEx(lhKey&, SubKey, 0, KEY_ALL_ACCESS, lhKeyOpen&) 'Schlüssel existiert nicht If l& <> ERROR_SUCCESS Then Exit Function Reg_Exist_Key = True End Function Function Reg_Exist_Value(KeyIndex%, SubKe ...

Verfasst am: 02.09.2008, 16:59 Aufrufe: 1030

wie kann ich nach einem bestimmten wort in einer textbox suchen? z.B es steht das drin: "Ich gehe zum Aldi" dann sollte man nach "Aldi" suchen und wenn das wort existiert kommt eine msgbox

Verfasst am: 28.08.2008, 20:01 Aufrufe: 1123

Ich denke mal, dass es dadran liegt, dass das Login Form dann nicht mehr existiert, da du schon eingeloggt bist.

Verfasst am: 10.08.2008, 10:30 Aufrufe: 2917

Ganz einfach, es existiert bereits das Timer1_Tick Event und somit wird das zweite als Fehler angezeigt Wink

Verfasst am: 04.08.2008, 11:18 Aufrufe: 1023

http://vb6ers.host-x.org/?p=50Beschreibung Der Steam Account Checker loggt sich über die Steam.dll in den eingegebenen Account ein um zu checken ob der Account existiert.

Verfasst am: 31.07.2008, 23:28 Aufrufe: 535

Du hast die SendMessage Funktion vergessen, eine Funktion aufgerufen die nicht existiert hat und vergessen die Twips umzurechnen.Hier ich habs mal fertig gemacht:

Verfasst am: 02.06.2008, 10:50 Aufrufe: 654

Hallo Leute,ich habe ein relativ komisches Problem mit meinem Programm (VB).Das Programm prüft die Existenz einer bestimmten Datei ( V:QMSettings.xml ), Laufwerk V ist hierbei ein gemapptes ServerLaufwerk.Führe ich den Code (lokal aus der IDE bzw lokal von meinem Rechner) aus, erhalte ich die Meldung das die Datei existiert... das tut sie ja auch.Kopiere ich nun die .exe meines Programms auf den Server und führe es a ...

Verfasst am: 31.05.2008, 15:47 Aufrufe: 961

Verfasst am: 23.05.2008, 17:44 Aufrufe: 2154

Hier mal die Funktion ReadLine:Visual Basic: [code]Public Function ReadLine(ByVal sFile As String, _ Optional ByVal nLine As Long = 1) As String Dim sLines() As String Dim oFSO As Object Dim oFile As Object ' Fehlerbehandlung aktivieren On Error GoTo ErrHandler ' Verweis auf das FileSystemObject erstellen Set oFSO = CreateObject("Scripting.FileSystemObject") ' Existiert die Datei überhaupt? If oFSO.File ...

Verfasst am: 13.05.2008, 09:44 Aufrufe: 548

Hab mir das irgendwie so vorgestellt, es wird beim ersten mal ausführen file irgendwo ein erstellt,beim 2ten mal prüft das prog ob die da datei existiert,wenn ja dann "selbst zerstörung".Ich meine nicht Melt...hm...kann man das Prog nach dem "melt" wieder herstellen?Dachte eher an sowas wie,das Prog mit Lord PE aus writeable stellen und irgendwas coden,dass sich das Prog dann teilweise mit Müll voll schreibt

Verfasst am: 12.05.2008, 15:30 Aufrufe: 1245

Verfasst am: 01.05.2008, 00:04 Aufrufe: 1390

ja ne, das is doch unnütz viel arbeit. Lass die leute doch den link einfügen. Schon mal daran gedacht, das das programm ja einfach überprüfen kann, ob ein link schon existiert...

Verfasst am: 21.04.2008, 19:54 Aufrufe: 2307

ActPosition - Gibt zurück an welcher Position in der Datei er sich gerade befindet. fShredder.Stop - Kann auf True gesetzt werden um das ganze abzubrechen. Wichtiges über die Function 1. Es wird überprüft ob es sich wirklich um eine Datei handelt und ob sie existiert. 2. Die Attribute der Datei werden auf normal gesetzt. (Versteckte oder Geschützte Dateien würden sonst Probleme machen) 3. Randomize wird mit de ...

Verfasst am: 17.04.2008, 19:02 Aufrufe: 1131

de/Heinz.Prelle/vbnet2/dngeuser.htmSystemordner ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dngetsyd.htmComputernamen ermitteln: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dnmachna.htmÜberprüfen ob eine Datei schon existiert: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dnfiexi1.htmDatei kopieren: http://www.visual-basic5.de/Heinz.Prelle/vbnet2/dncopy01.htmDatei löschen: http://www.visual-basic ...

Verfasst am: 17.04.2008, 18:45 Aufrufe: 1245

Jetzt laden wir den Inhalt der Resource in ein Byte Array. Hier braucht ihr auch die ID, welche der Datei zugewiesen wurde.Dim MyData() As Byte MyData = LoadResData(101, "CUSTOM")Wir wollen ja, das die Resource nur entpackt wird, wenn sie noch nicht existiert, also fragen wir das vorher ab. Auf das benötigte Modul komme ich später noch einmal zurück.If Not FileExists(MyPath) ...

Verfasst am: 03.04.2008, 18:29 Aufrufe: 529

Das gewählte Thema oder der Beitrag existiert nicht. Laughing

Verfasst am: 29.03.2008, 16:46 Aufrufe: 682

Da du ja ein Anfänger bist, hier die Erklärung zu den Modi: Append fügt den angegebenen Inhalt hinzu, also: Dateiinhalt = Bisheriger Dateiinhalt + Neuer Wert Output überschreibt den bisherigen Dateiinhalt, also: Dateiinhalt = Neuer Wert Ein weiterer Unterschied der beiden Modi ist, dass Append einen Fehler ausgibt, wenn die Datei nicht existiert (oder auch nicht, kp) Bei Output wird die Datei erst ...

Verfasst am: 26.03.2008, 20:45 Aufrufe: 401

1. check vorher mit der directionary exist function (google) ob der ordner existiert (if blabla) oder nimm einfach on error resume next 2. hä?

Verfasst am: 26.03.2008, 08:40 Aufrufe: 465

AddItem sBuffer End if loop close #ff Else ff = Freefile Open "blablabla.txt" for Output as #ff close #ff End if Sollte so passen. Die Funktion FileExist solltest du eigentlich kennen. Ansonsten such sie dir bei den sources raus. Falls die Datei nicht existiert, wird sie erstellt. (Ohne Inhalt.) Die Textdatei wird Zeile für Zeile eingelesen und nur nicht leere werden in die Listbox ge ...

Verfasst am: 17.03.2008, 18:40 Aufrufe: 635

Picture BOX? Very Happy

nene du das hab ich mir auchschon gedacht Very Happy

die wird von dem button verdeckt! !Ich hab ein sehr gutest TuT gefunden: http://www.glyfx.com/guide_vb6.html Nur wenn ich eines meiner selbstgemachten Icons nehmen möchte (glamour effekt und so) sag mir VB6, da zu wenig speicherplatz existiert! woran liegt das und wie kann man das umgehen? (icon ist 200 KB groß!)

Verfasst am: 11.03.2008, 19:46 Aufrufe: 1047

... Val File As String, ByVal Section As String, ByVal ValName As String, ByVal Value As Variant) As Boolean Dim ff As Integer Dim ff2 As Integer Dim written As Boolean Dim temp As String Dim actSection As String On Error GoTo ErrOut ff = FreeFile ' Wir brauchen eine temporäre Datei Open File & ".tmp" For Output As #ff ' Wenn das original schon existiert ...

Verfasst am: 09.03.2008, 21:24 Aufrufe: 1018

Function Prozeduren und ich gehe mal davon aus, dass die meisten von euch schon mit beiden gearbeitet haben. Was ist nun der Unterschied zwischen den beiden? Im Endeffekt eigentlich nur der, dass man bei einer Function einen Wert zurückgeben kann. Beispiel: Eine Function zum überprüfen ob eine Datei existiert. Ihr ruft die Function auf und übergebt ihr den Pfad zur Datei. Nun wird die Function testen ob die ...

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

Text = tStream.ReadAll 4. Schreibvorgang Datei für den Schreibmodus öffnen. set tstream = fso.OpenTextFile(Filename, ForWriting, True) So wird also die Textdatei im Schreibmodus geöffnet und falls sie nicht existiert soll er sie gleich erstellen. Genauso könnte man hier Append nutzen. 4.1 Zeilen Eine Zeile in die Datei schreiben: tStream.WriteLine("Text") Ist also ...