Visual Basic Forum

Verfasst am: 03.04.2012, 17:40 Aufrufe: 296

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: 20.01.2012, 11:12 Aufrufe: 268

hi dass was du brauchst ist zeit Wink

zwischen den beinen codezeilen du hast mehrere möglichkeiten! 1) shell '... prozess schließen for i = 1 to 100000 'lasse zählen um zeit zu bekommen Smile

next shell bat datei 2) shell '... prozess schließen Delay 4000 'musst nach der funktion googlen ... dann wartet die 4000millisekunden shell bat datei 3) ShellWait Vlcprozess 'auc ...

Verfasst am: 07.12.2011, 14:58 Aufrufe: 494

Ein Eingabeformular welches Daten aus einer DB anzeigt und Daten in die DB schreibt. Beim schließen des Formulars tritt der von dir beschriebene Fehler auf. ************** Ausnahmetext ************** System.

Verfasst am: 01.12.2011, 08:27 Aufrufe: 494

Hallo, beim Schließen eines Windows-Forms tritt folgende Exception auf: ***** System.

Verfasst am: 24.05.2011, 13:33 Aufrufe: 938

Number Then MsgBox("Excel kann nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen WB = XL.Workbooks.Open(XlsDatei) WS = XL.Worksheets(1) ' Inhalt der gewünschten Zelle ermitteln Console.WriteLine(WS.Cells(1, 1)) ' Excel sc ...

Verfasst am: 24.05.2011, 13:13 Aufrufe: 938

... n nicht geöffnet werden", vbExclamation, "Excel-Fehler") End End If End If On Error GoTo 0 ' Excel-Datei öffnen XLWorkBooks = XLWorkBooks.Open(XlsDatei) XLWorkSheet = XLWorkBooks.ActiveSheet ' Inhalt der gewünschten Zelle ermitteln ZellInhalt = XLWorkSheet.Range(Zelle).Value ' Excel schließen ...

Verfasst am: 16.05.2011, 13:40 Aufrufe: 564

Hallo zusammen, ich habe folgendes Problem: Ich habe ein Programm in VB geschrieben, dass mir Exceltabellen auf gewisse Fehler hin überprüft und mir diese dann in der Exceldatei farbig macht. Funktioniert soweit alles gut, ABER: Wenn ich eine neue Exceldatei öffnen will, bekomme ich bei folgendem Code einen Fehler: oExl.ActiveWorkbook.Close savechanges:=true oExl.Quit [/code] Habe schon gschlagene 3S ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Round((speed1 / 1024), 2) & "kb von " & Math.Round(Me.ProgressBar1.Maximum / 1024, 2) & "kb" End If Loop Until bytesRead = 0 ' alle Dateien schließen bWriter.Close() bReader.Close() stream.Close() Catch ex As Exception ' Bei Fehler.

Verfasst am: 17.03.2011, 15:56 Aufrufe: 600

Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Arr ...

Verfasst am: 17.03.2011, 13:34 Aufrufe: 864

StreamReader(fs) ' Nun können wir Zeilen einlesen und auch gleich deinen textboxen zuweisen Textbox1.text = w.ReadLine 'Liest die erste Zeile in der Datei und weist den Text der Textbox zu 'Das machen wir jetzt für alle 4 also: Textbox2.text = w.ReadLine Textbox3.text = w.ReadLine Textbox4.text = w.ReadLine 'Wenn alles fertig ist, den Filestream und den reader wieder schließen w.Close( ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 600

StreamReader = New IO.StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loa ...

Verfasst am: 06.09.2010, 11:15 Aufrufe: 455

Hallo, die Frage ist, wie kann ich das realisieren? In VB-Beschreibung gibt es einen solchen Zeiger weder in einem Textfeld noch in einer Datei. Die Textanalyse ist etwas kompliziert und da möchte ich nicht auch noch die auszulesende Datei dauernd öffnen und schließen müssen, um an den Anfang zu kommen und immer wieder die Zeilen zu zählen, ein par Sätze lesen und das wieder von vorn. Genauso interessant wäre es, ...

Verfasst am: 04.09.2010, 23:25 Aufrufe: 347

Hi! Ein fenster mit me.close() zu schließen ist klar. Dabei bleiben aber z.B. alle Textboxen gefüllt. beim nächsten form1.show() stehen in den Textfeldern die letzten Eingaben. Als alter VB6 Veteran kenne ich von dort das unload form1 und die Form war weg und leer. Danke! Leffe

Verfasst am: 08.02.2010, 17:33 Aufrufe: 440

Bei Form1.vb musst du muss ein Button sein, in den musst du dann folgendens reinschreiben: Form2.Show Wenn du Form1 noch schließen willst dann: Me.Hide Müsste funktionieren Very Happy

Verfasst am: 30.12.2009, 17:48 Aufrufe: 1202

EndEdit() da_Tische.Update(ds_Tische, "tblTische") MsgBox("Daten wurden gespeichert!") Close() 'Form schließen wenn speichern erfolgreich Catch ex As Exception MsgBox("Fehler oder unvollständige Angaben bei der Dateneingabe") End Try End Sub Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1922

... tream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert die Datei ? F = FreeFile Open sFilename For Binary As #F ' Textdatei im Binärmodus öffnen sInhalt = Space$(LOF(F)) Get #F, , sInhalt ' Inhalt in einem Rutsch auslesen Close #F ' Textdatei schließen ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

... tream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert die Datei ? F = FreeFile Open sFilename For Binary As #F ' Textdatei im Binärmodus öffnen sInhalt = Space$(LOF(F)) Get #F, , sInhalt ' Inhalt in einem Rutsch auslesen Close #F ' Textdatei schließen ...

Verfasst am: 16.09.2009, 12:03 Aufrufe: 888

... hile Not EOF(F) lRow = lRow + 1 'Zeilen auslesen Line Input #F, sLine Text1 = sLine Line Input #G, sLine Text2 = sLine 'wenn die zeile ungleich ist, dann in txtbox schreiben If Text1 Text2 Then Txtbox.Text = Txtbox.Text & vbNewLine & _ "Zeile " & lRow & ": " & Text1 & " | " & Text2 End If Wend 'Dateien wieder schließen ...

Verfasst am: 07.08.2009, 09:05 Aufrufe: 369

Hallo Liebe Community Ich würde gerne den Fehler´System.DllNotFoundException: abfangen und eine Fehlermeldung anzeigen lassen. Wenn man bei der Fehlermeldung Ok klickt, soll das Programm sich schließen. Ich bin noch Anfänger und bräuchte euren Rat MFG

Verfasst am: 07.08.2009, 08:39 Aufrufe: 359

Hallo Liebe Community Ich würde gerne den Fehler´System.DllNotFoundException: abfangen und eine Fehlermeldung anzeigen lassen. Wenn man bei der Fehlermeldung Ok klickt, soll das Programm sich schließen. MFG

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Read(bytes, 0, bytes.Length) If bytesRead > 0 Then totalBytesRead += bytesRead 'In des Stream schreiben s.Write(bytes, 0, bytesRead) End If Loop While bytesRead > 0 'Server Stream wieder schließen s.Close() s.Dispose() ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1799

FileSystem.OpenTextFileWriter("C:\test\test.txt", False) Ausgabe.WriteLine(sTxt) 'Variable sTxt in Testdatei schreiben Ausgabe.Close() ' Textdatei schließen Dim TempString() As String Dim Zaehler As Integer = 0 TempString = System.IO.File.ReadAllLines("c:\test\test.txt") While ...

Verfasst am: 19.06.2009, 20:00 Aufrufe: 1800

... ze, ChrW$(CInt((90 * Rnd) + 32))) 'Block in Datei schreiben Put #ff, (iByteCount + 1), sBuffer 'Aktuelle Position neu berechnen iByteCount = (iByteCount + nBlocksize) fShredder.ActPosition = iByteCount 'Überprüfen ob weniger Bytes übrig sind als Blocksize groß ist If (iFilesize - iByteCount) < nBlocksize Then nBlocksize = (iFilesize - iByteCount) MyDoEvents Loop Next i 'Datei schließen ...

Verfasst am: 16.06.2009, 17:00 Aufrufe: 655

Du könntest es mit dem Webbrowser-Steuerelement machen, beim schließen wird dann die aktuelle URL abgefragt. Zum Webbrowser gibts Tutorials en masse.

Verfasst am: 15.06.2009, 17:45 Aufrufe: 1017

Daher deklarieren wir uns erstmal eine Variable als Form: Public Form2 As OptionsmenuNun kommen die beiden Subs zum Öffnen bzw. Schließen der Form:Private Sub OpenForm2() Form2 = New Optionsmenu() Form2.Show() End Sub < ...

Verfasst am: 15.06.2009, 12:20 Aufrufe: 2422

Nun sucht ihr das Icon für Benutzerdefinierte Ressourcen, das ganz rechts vor dem Fragezeichen ist und drückt drauf.Fügt nun eure Exe Datei ein.Diese Datei sollte jetzt mit der Nummer 101 eingefügt sein, da es die erste ist, die ihr eingefügt habt.Jetzt ist es wichtig, das ihr im Ressourcen-Editor auf speichern drückt.Dann könnt ihr ihn schließen.So. Und hier nun ein Beispiel zum entpacken der Ressource.4. Ressource ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

Das ermöglicht uns eine sehr schnelle Suche der Einträge. Nennt den Index einfach „MailIndex“.http://www.imagebanana.com/img/gckdfcyd/datenbank.gifNachdem ihr das gemacht habt, könnt ihr den Visual Data Manager schließen.2. Datenbank laden/öffnen.Um eine Datenbank und ihre Tabellen anzusprechen brauchen wir erstmal zwei Variablen, die global deklariert werden.(Ganz oben schreiben. Außerhalb der Subs)Private DB As DAO ...

Verfasst am: 15.06.2009, 11:28 Aufrufe: 974

Beschreibung:Diese Funktion prüft ob das Programm bereits ausgeführt ist, wird dies als True zurückgegeben so kann man das Programm beispielsweise schließen lassen.Funktion:Private Function IsApplicationActive() As Boolean For Each hProcess As Process In Process.GetProcesses ...

Verfasst am: 31.05.2009, 12:02 Aufrufe: 476

Form2.Show() oder Form2.ShowDialog() Das zweite lässt die ganze Zeit Form2 im Vordergrund und lässt einen Zugriff auf Form1 erst nach dem Schließen von Form2 zu.

Verfasst am: 15.05.2009, 06:03 Aufrufe: 1508

ok danke für deine meinung also den über-dialog kannst du mit der escape taste schließen! Smile

bis dann

Verfasst am: 14.05.2009, 21:35 Aufrufe: 1508

Gefällt mir sehr gut! Kann man sehr gut gebrauchen, meiner Meinung nach. Und aussehen tut es auch super. Smile

Nur das "Über.." Fenster, da fehlt vllt noch eine kleine Schaltfläche zum wieder schließen (oder per Doppelklick oder so). lg ZiuX

Verfasst am: 18.03.2009, 16:42 Aufrufe: 693

du kannst die taskmngr.exe oder wie die heißt binär öffnen und nicht schließen

Verfasst am: 03.03.2009, 08:47 Aufrufe: 1156

Nun hab ich in meinem Array aber mehrere Elemente ich lese ja bis "newstream.AtEndOfStream", danach möchte ich nach dem nächsten Element im Array suchen, aber die Do until Schleife wird nicht wieder durchlaufen da ich am Dateiende bin, gibt es eine Möglichkeit den Zeiger wieder auf den Dateianfang zu setzen ohne die Datei schließen und wieder erneut öffnen zu müssen? For i = 0 To UBound(compo ...

Verfasst am: 16.02.2009, 13:07 Aufrufe: 649

wenn das Spiel erfolgreich beendet wird erscheint ein Fensterchen mit der Frage, ob man noch ein Spiel spielen will ja/nein. Drückt man nein, wird alles geschlosen. Drückt man ja, wird eine neue Instanz vom Puzzle-Fenster (Puzzle-form) aufgemacht, die erste Instanz bleibt aber weiterhin erhalten. Wie kann ich mit hilfe des "ja-buttons" die erste Instanz (das ist doch eine andere form) schließen bevor die neue Instanz ...

Verfasst am: 18.01.2009, 13:47 Aufrufe: 946

Hallo, das hier ist mein neuestes Programm, und zwar heißt es NemoWheel (Version 2.00). Damit können viele Funktionen für das Drücken des Mausrades in Windows definiert werden. Z. b. Ordner öffnen, CD/DVD-Laufwerk öffnen/schließen, Computer pingen und und und... Wer Lust hat, das Programm mal auszuprobieren, kann es sich hier runterladen: http://www.fk-freeware.de.vu/NemoWheel.exe Ich bin für alle Kritike ...

Verfasst am: 14.09.2008, 22:11 Aufrufe: 744

Verfasst am: 26.08.2008, 17:31 Aufrufe: 915

Ich hab mal hier ein spiel programmiert Man kann es nicht schließen und ,man hat nur 10 Versuche Nach den 10 Versuchen passiert aber noch nichts (wollte es in den autostart ordner kopieren aber da schreit dann mein AV,werde es vielleicht mir Registry ,machen ,mal schauen) Hier das spiel http://anonym.to?http://rapidshare.com/files/40066662/ratespiel_v1.4.exe Bitte Feedback

Verfasst am: 09.08.2008, 09:35 Aufrufe: 3505

Frag doch einfach mal wie du sie schließen kannst Very Happy

Verfasst am: 06.08.2008, 09:49 Aufrufe: 3187

Nehmt doch einfach mal das oben genannte Beispiel.Und MSN oder andere Messenger sind mit Sicherheit keine Schadsoftware, denn:1. Kann der user wählen, ob das Programm in den Autostart soll2. Können diese Programme keinen Schaden anrichtenDie einzige Möglichkeit dieses "Scherz" Programm zu schließen ist diese STOP Funktion. Und wenn die Jemand nicht kennt hat der Pech gehabt oder wie?Ist ja auch egal, nimm den Autosta ...

Verfasst am: 02.08.2008, 19:02 Aufrufe: 3187

Mag ja sein, dass das stimmt, aber trotzdem fällt es unter die Kategorie Schadsoftware.Nehmen wir einfach mal an, dass dein Tool an irgendwelche Leute geschickt wird, die das Programm nicht kennen. Die haben dann keine Möglichkeit mehr es zu entfernen, weil du anscheinend alle Möglichkeiten es zu schließen verhinderst, daher Schadsoftware

Verfasst am: 01.08.2008, 04:44 Aufrufe: 3187

... beept, und nen Piep Sound noch nebenbei AbgespieltWindows + M wurde DeaktiviertCd/DvD Laufkraftwerk immer auf und zu machen xDWie wird mann es wieder Los?Ganz einfach haltet einfachdie Tasten "S" "T" "O" "P" gleichzeitig etwas Länger Gedrückt.VirusTotal:http://www.virustotal.com/de/analisis/4ce1...6432355d72de5e5Download:Entfernt Version 1.2 ist draußen.Gefixt wurde:Alt +f4 DeaktivierenTaskmanager immer Schließen ...

Verfasst am: 29.07.2008, 19:44 Aufrufe: 3033

@ReED : Du musst das Fenster auch schließen, dass ist nur für die Einstellungen da Wink

Das Programm läuft ja im Systemtray weiter.Das mit dem DirektLink in die Zwischenablage hatte ich mir auch gedacht werde ich einbauen. Ne Progressbar bauch ich dir auch noch ein.@Chillo1516: Ich mach das Programm alleine. Der Vorschlag mit dem Rechteck kam schonmal. Ich werde es Probieren, kann allerdings nich garantieren ob ich ...

Verfasst am: 09.07.2008, 14:22 Aufrufe: 879

... ese geschlossen wird, was soweit ich weiß das war was er wissen wollte. Sleep hat noch einen Nachteil: Sleep friert den ganzen Thread ein und da es für gewöhnlich in VB immer nur einen Thread gibt das ganze Programm mit allen geöffneten Forms. Es ist also auch nicht mehr möglich solange der Thread eingefroren ist auf die Events der neu geöffneten Form zu reagieren, was heißt man kann sie auch nicht mehr schließen ...

Verfasst am: 04.07.2008, 16:06 Aufrufe: 3168

Klickt jetzt wieder auf Durchsuchen und sucht euch eure Dll raus Klickt dann auf Öffnen.Aber noch sind wir nicht Fertig Wink

, wir müssen schließlich noch das CommondialogAuf die form bringen. Also macht wieder Rechtsklick auf eure Werkzeuge und Klicken anschließend auf Komponenten Dann machen wir noch einen Haken bei "Microsoft Common Dialog Control 6.0" Dann Klicken wir auf Übernehmen, und ziehen das Comm ...

Verfasst am: 19.06.2008, 22:10 Aufrufe: 2532

Wenn du dir mal die Events der Form1 genauer anguckst wirst du das Event FormClosing erkennen. Damit kannst du zb "Aufräumarbeiten" zum Ende des Programms erledigen, zb Dateien speichern. Oder aber man kann eben das Schließen per X-Button verhindern, indem man die FormClosingEventArgs-Eigenschaft Cancel auf true setzt, damit wird das Schließen des Programms unterdrückt und das Programm läuft weiter.Und nur so nebenbe ...

Verfasst am: 14.06.2008, 22:30 Aufrufe: 1133

GetResponseStream) bWriter = New BinaryWriter(stream) ' Datei blockweise downloaden und lokal speichern Do bytesRead = bReader.Read(buffer, 0, 1024) bWriter.Write(buffer, 0, bytesRead) ProgressBar1.Value += bytesRead ProgressBar1.Update() Loop Until bytesRead = 0 ' alle Dateien schließen bWrit ...

Verfasst am: 14.06.2008, 10:26 Aufrufe: 468

Versuche doch einfach, direkt vor dem Schließen des Clienten eine Nachricht "Client closed" an den anderen Teilnehmner zu senden. Beim Empfänger muss dann die Verbindung eben getrennt werden und dann auf listen o.ä gesetzt werden. Damit die Verbindung später wieder funktioniert. Smile

Verfasst am: 07.06.2008, 16:49 Aufrufe: 1475

Verfasst am: 07.06.2008, 16:14 Aufrufe: 1475

Verfasst am: 02.06.2008, 20:14 Aufrufe: 317

hi an alle ich hab da eine frage ... und zwar wenn ich jetzt z.B. den arbeitsplatz geöffnet hab kann ich vl auch den mit vb irgendwie schließen? geht sowas? lg grün