Hallo nooob,
ups so.
Ich habe entsprechend Deinen Vorgaben ein Gerüst Deines Programms fertiggestellt,
das Dir helfen soll die Richtung zu finden. Einen Dialog ist schon auscodiert.
die Rest Arbeit bleibt jetzt bei Dir. Du willst es ja lernen.
Eine Sache habe ich nicht hinbekommen. Da form1 das Startformular ist, darf man es nicht gleich
am Anfang beenden. Dann geht garnichts mehr. Vielleicht hat jemand einen Tip?
Habe ich Dir geholfen?
schöne Grüße
Ellen
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked And CheckBox4.Checked Then
Form2.Show()
'Me.Close() geht leider nicht
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
Public Class Form2
Dim filename As String = "test.txt"
Private Sub Form2_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
filename = OpenTextFile()
' der Pfad und die Datei stehen jetzt in der Textbox:
TextBox1.Text = filename
'
' nun kommt lesen oder Schreiben der Datei filename
''
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form3.Show()
Me.Close()
End Sub
Private Sub TextBox2_KeyDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles TextBox2.KeyDown
Dim s As String = CType(sender, Control).Text
' Eingabe einer Userkennung bis Taste enter
If e.KeyCode = Keys.Enter Then
'Hier wird der Name in die Datei geschrieben
writeToFile(s, filename)
End If
End Sub
Friend Sub writeToFile(ByVal s As String, ByVal fnm As String)
' in s steht der zu schreibende String
' in fnm der dateiname
'
'hier kommt der Code rein zum wegschreiben auf eine Datei
'
End Sub
Private Function OpenTextFile() As String
Dim fnm As String = ""
Dim loadstream As System.IO.Stream
'
' Hier kommt ein OpenFileDialog
' fertige Klasse in .NET
'
OpenFileDialog1.DefaultExt = "*.TXT"
OpenFileDialog1.Filter = "txt Files | *.TXT"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
loadstream = OpenFileDialog1.OpenFile()
fnm = OpenFileDialog1.FileName()
loadstream.Close()
End If
Return fnm
End Function
End Class
Public Class Form3
Private Sub Form3_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' hier die beiden Textboxen versorgen mit den aktuellen Meldungen
TextBox1.Text = "Meldungen"
TextBox2.Text = "Staus"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form4.Show()
Me.Close()
End Sub
End Class
Public Class Form4 ' ähnlich Form3
Private Sub Form4_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' auch wieder textboxen versorgen
TextBox1.Text = "Meldung Form4"
TextBox4.Text = "Ausgabe Form4 Box4"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form5.Show()
Me.Close()
End Sub
End Class
Public Class Form5
Private Sub Form5_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
install()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form6.Show()
Me.Close()
End Sub
Private Sub install()
'
' hier läuft jetzt die Installation
'
' Vorschlag: Eine ProgressBar zur Fortschrittsanzeige einbauen
End Sub
End Class
Public Class Form6
'
' auch hier am besten mit OpenFiledialog arbeiten
'
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form7.Show()
Me.Close()
End Sub
End Class
Public Class Form7
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Form1.Close()
Me.Close()
End Sub
End Class
Brauche Hilfe beim Programieren
