Hay leute ich brauche eure hilfe .
Ich will in ein label den text eingeben denn was ich tippe ich habe schon das:
Meine frage ist wie kann ich machen wenn ich Caps Lock oder großschreibtaste halte das ich den text dan groß schreibe ?
Bitte Unterforen beachten!
Verschoben. ~fufu
/\
|
Sorry fufu ^^
Ich will in ein label den text eingeben denn was ich tippe ich habe schon das:
VB.NET-Quellcode
- Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
- Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
- If e.KeyCode = Keys.Q Then
- Label1.Text += "q"
- End If
- If e.KeyCode = Keys.Y Then
- Label1.Text += "y"
- End If
- If e.KeyCode = Keys.W Then
- Label1.Text += "w"
- End If
- If e.KeyCode = Keys.S Then
- Label1.Text += "s"
- End If
- If e.KeyCode = Keys.X Then
- Label1.Text += "x"
- End If
- If e.KeyCode = Keys.E Then
- Label1.Text += "e"
- End If
- If e.KeyCode = Keys.D Then
- Label1.Text += "d"
- End If
- If e.KeyCode = Keys.C Then
- Label1.Text += "c"
- End If
- If e.KeyCode = Keys.R Then
- Label1.Text += "r"
- End If
- If e.KeyCode = Keys.F Then
- Label1.Text += "f"
- End If
- If e.KeyCode = Keys.V Then
- Label1.Text += "v"
- End If
- If e.KeyCode = Keys.T Then
- Label1.Text += "t"
- End If
- If e.KeyCode = Keys.G Then
- Label1.Text += "g"
- End If
- If e.KeyCode = Keys.B Then
- Label1.Text += "b"
- End If
- If e.KeyCode = Keys.Z Then
- Label1.Text += "z"
- End If
- If e.KeyCode = Keys.H Then
- Label1.Text += "h"
- End If
- If e.KeyCode = Keys.N Then
- Label1.Text += "n"
- End If
- If e.KeyCode = Keys.U Then
- Label1.Text += "u"
- End If
- If e.KeyCode = Keys.J Then
- Label1.Text += "j"
- End If
- If e.KeyCode = Keys.M Then
- Label1.Text += "m"
- End If
- If e.KeyCode = Keys.I Then
- Label1.Text += "i"
- End If
- If e.KeyCode = Keys.K Then
- Label1.Text += "k"
- End If
- If e.KeyCode = Keys.O Then
- Label1.Text += "o"
- End If
- If e.KeyCode = Keys.L Then
- Label1.Text += "l"
- End If
- If e.KeyCode = Keys.P Then
- Label1.Text += "p"
- End If
- If e.KeyCode = Keys.A Then
- Label1.Text += "a"
- End If
- If e.KeyCode = Keys.Space Then
- Label1.Text += " "
- End If
- End Sub
Meine frage ist wie kann ich machen wenn ich Caps Lock oder großschreibtaste halte das ich den text dan groß schreibe ?
Bitte Unterforen beachten!
Verschoben. ~fufu
/\
|
Sorry fufu ^^
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Aubukkit“ ()