Hi,
arbeite gerade an ein Programm, dass die Oberfläche eines Betriebssystems darstellt, quasi ein Fake-OS, um mir Visual Basics etwas näher zu bringen.
Dafür wollte ich mir nun eine Art "Eingabeaufforderung" basteln, wie sie auch in Windows zu finden ist. Natürlich soll man damit jetzt nicht wirklich auf das System zugreifen können. Ich hatte mir das so gedacht, das man sich mit dem Programm unterhalten kann, also etwas eingibt und das Programm darauf antwortet.
Und das Problem ist jetzt, das man die Textbox nicht mit einen neuen Text füllt, sondern text hinzufügt und eben nur auf das zuletzt eingegebene geantwortet werden soll.
Mein versuch:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If (TextBox1.Text = TextBox1.Text & "Wie gehts?") Then
TextBox1.AppendText(vbCrLf & "Gut und selbst?" & vbCrLf & vbCrLf & "C:/Benutzer/Benutzer1>")
Else
TextBox1.AppendText(vbCrLf & "Unbekannter Befehl!" & vbCrLf & vbCrLf & "C:/Benutzer/Benutzer1>")
End If
End Sub
Ich hoffe Ihr könnt mir bei mein Problem helfen.
Danke in Voraus!
arbeite gerade an ein Programm, dass die Oberfläche eines Betriebssystems darstellt, quasi ein Fake-OS, um mir Visual Basics etwas näher zu bringen.
Dafür wollte ich mir nun eine Art "Eingabeaufforderung" basteln, wie sie auch in Windows zu finden ist. Natürlich soll man damit jetzt nicht wirklich auf das System zugreifen können. Ich hatte mir das so gedacht, das man sich mit dem Programm unterhalten kann, also etwas eingibt und das Programm darauf antwortet.
Und das Problem ist jetzt, das man die Textbox nicht mit einen neuen Text füllt, sondern text hinzufügt und eben nur auf das zuletzt eingegebene geantwortet werden soll.
Mein versuch:
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If (TextBox1.Text = TextBox1.Text & "Wie gehts?") Then
TextBox1.AppendText(vbCrLf & "Gut und selbst?" & vbCrLf & vbCrLf & "C:/Benutzer/Benutzer1>")
Else
TextBox1.AppendText(vbCrLf & "Unbekannter Befehl!" & vbCrLf & vbCrLf & "C:/Benutzer/Benutzer1>")
End If
End Sub
Ich hoffe Ihr könnt mir bei mein Problem helfen.
Danke in Voraus!