VB.NET-Quellcode
- dim letztenachricht as string
- Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
- If e.KeyCode = Keys.Enter Then
- letztenachricht = TextBox1.Text
- sendmessage(textbox1.text)
- ElseIf e.KeyCode = Keys.Up Then
- TextBox1.Text = letztenachricht
- ElseIf e.KeyCode = Keys.Tab Then
- textbox1.clear()
- End If
- End Sub
Ich habe mir einen kleinen Chat gebaut, in dem man über Textbox1 die Nachrichten verschickt wenn man auf Enter drückt. Das klappt soweit ganz gut. Ich will aber auch noch dass wenn man den Pfeil nach oben drückt die letzte Nachricht, die man geschrieben hat erscheint, und wenn man Tab drückt, die Textbox leer wird. Aber aus irgendeinem Grund passiert bei obigem Code bei Pfeil nach oben und Tab gar nichts.
Ich hoffe hier kann mir jemand helfen.
mfg