|
| |
VB.NET - Ein- und Umsteiger| Textdateiproblem | |  | | Autor: Pepyno | | Datum: 22.01.09 08:25 |
| Servus miteinander.
Bevor ich erkläre was mein Problem ist, beschreibe ich erst einmal was mein Programm machen soll.
Ich arbeite mit Visual Studio 2008.
Ich habe 2 Forms entwickelt.
Form 1 hat ein Textfeld 1
Das Textfeld wird mit einem Text gefüllt und anschließend wechsele ich in eine Form2 (durch Weiter Button).
Gleichzeitig öffne ich eine Textdatei und schreibe den Text aus Textfeld 1 dort hinein.
In die gleiche Zeile schreibe ich hinter den Text von Textfeld 1 das aktuelle Datum und die Uhrzeit.
In Form 2 schreibe ich einen Text in Textfeld 2.
Nach betätigen eines Buttons soll mir das Programm den Inhalt von Textfeld 1 und Textfeld 2 vergeleichen.
Wenn der Text gleich ist, dann soll das Programm den Text aus Textfeld 2 in die gleiche Zeile der Textdatei schreiben mit Datum und Uhrzeit.
Wenn der Text ungleich ist erscheint ein Warnungsfenster das der Text ungleich ist.
Nun fordert das Programm den Text erneut einzugeben in Textfeld 2.
Wenn die Texte dann identisch sind läuft das Programm von vorne ab. Also Form1, Text eingeben u.s.w.
Mein Problem:
Wenn der Text1 und Text2 ungleich ist kommt das Warnungsfenster und fordert mich auf den Text erneut einzugeben. OK. Aber anschließend schreibt mir das Programm nicht das Datum und die Uhrzeit in die Textdatei bei richtigen Texten von Text1 und Text2.
Ich poste mal mein Programm und hoffe es ist verständlich für euch.
Ich vermute es fehlt etwas in der Schleife. Bitte um Hilfe.
Form1:
Imports System.IO
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fs As New FileStream("\My Documents\IH\BEMIDAT.txt", FileMode.Append)
Dim sw As New StreamWriter(fs)
sw.Write(TextBox1.Text)
sw.Write(",")
sw.Write(DateAndTime.Now)
sw.Write(",")
sw.Close()
Form2.Show()
Form2.TextBox2.Text = ""
Form2.TextBox2.Focus()
End Sub
End Class
Form2:
Imports System.IO
Public Class Form2
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim fs As New FileStream("\My Documents\IH\BEMIDAT.txt", FileMode.Append)
Dim sw As New StreamWriter(fs)
sw.Write(TextBox2.Text)
sw.Write(",")
sw.Write(DateAndTime.Now)
sw.Write(",")
sw.WriteLine(ComboBox1.Text)
sw.Close()
Form1.Show()
If TextBox2.Text <> Form1.TextBox1.Text Then
MsgBox("Barcodes nicht identisch! Bitte neu einscannen.", BoxStyle.Critical, "Hinweis!")
TextBox2.Text = ""
TextBox2.Focus()
Me.Show()
Else
Form1.TextBox1.Text = ""
Form1.TextBox1.Focus()
Form1.Show()
End If
End Sub
Vielen Dank vorab. | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevOutBar 4.0 
Vertikale Menüleisten
á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
