Pascal Hofmann
Mitglied
Hallo
Ich mache gerade ein kleines Spiel, bin auch schon ziemlich weit jetzt hänge ich aber, und hoffe bzw. bitte euch das ihr mir weiterhelft
Ich habe mehrere textdateien, und die sollen aber alle in der richtextbox angezeigt werden, also kommt drauf an welche txt datei man sich auswählt hier mal der code was ich gemacht habe
Das funkt auch eigentlich schon so wie ich das will aber muss für jede txt datei extra das schreiben
kann man das irgendwie machen das ich das nur einmal machen muss...
Hoffe ihr versteht was ich meine
MFG
Ich mache gerade ein kleines Spiel, bin auch schon ziemlich weit jetzt hänge ich aber, und hoffe bzw. bitte euch das ihr mir weiterhelft
Ich habe mehrere textdateien, und die sollen aber alle in der richtextbox angezeigt werden, also kommt drauf an welche txt datei man sich auswählt hier mal der code was ich gemacht habe
Code:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChangedDim Sr As New StreamReader("C:\HausverwalterDaten\haus1.txt", System.Text.Encoding.Default)
If ComboBox1.Text = "Haus1" Then
reader = My.Computer.FileSystem.ReadAllText("C:\HausverwalterDaten\Haus1.txt")
RichTextBox1.Text = Sr.ReadToEnd
End IfDim Sr2 As New StreamReader("C:\HausverwalterDaten\Haus2.txt", System.Text.Encoding.Default)
If ComboBox1.Text = "haus2" Then
reader = My.Computer.FileSystem.ReadAllText("C:\HausverwalterDaten\Haus2.txt")
RichTextBox1.Text = Sr2.ReadToEnd
End IfEnd Sub
Das funkt auch eigentlich schon so wie ich das will aber muss für jede txt datei extra das schreiben
Code:
Dim Sr2 As New StreamReader("C:\HausverwalterDaten\Haus2.txt", System.Text.Encoding.Default)
If ComboBox1.Text = "haus2" Then
reader = My.Computer.FileSystem.ReadAllText("C:\HausverwalterDaten\Haus2.txt")
RichTextBox1.Text = Sr2.ReadToEnd
End If
Hoffe ihr versteht was ich meine
MFG