Visual Basic Forum

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

hab was gebasteln.

Visual Basic: [code]Public Function Taste(ByVal Zahl As Integer)
Taste = Zahl

If Zahl < 91 Then
If Zahl > 47 Then
Return Chr(Zahl)
End If
End If

If Zahl < 106 Then
If Zahl > 95 Then
Return "Num " & Zahl - 96
End If
End If

If Zahl < 124 Then
If Zahl > 111 Then
Return "F" & Zahl - 111
End If
End If

Select Case Zahl
Case 20 : Return "Umstelltaste"
Case 226 : Return "<"
Case 188 : Return ","
Case 190 : Return "."
Case 189 : Return "-"
Case 192 : Return "ö"
Case 222 : Return "ä"
Case 186 : Return "ü"
Case 187 : Return "+"
Case 191 : Return "#"
Case 219 : Return "ß"
Case 221 : Return "´"
Case 220 : Return "^"
Case 46 : Return "Entf"
Case 35 : Return "Ende"
Case 34 : Return "Bild runter"
Case 33 : Return "Bild hoch"
Case 36 : Return "Pos 1"
Case 45 : Return "Einfg"
Case 93 : Return "Kontext"
Case 13 : Return "Enter"
Case 8 : Return "Rückstelltaste"
Case 145 : Return "Rollen"
Case 19 : Return "Pause"
Case 27 : Return "Esc"
Case 144 : Return "Numblock"
Case 111 : Return "Num /"
Case 106 : Return "Num *"
Case 109 : Return "Num -"
Case 107 : Return "Num +"
Case 110 : Return "Num ,"
End Select

End Function[/code]
_________________

KleinesVoodoo · Coder Anmeldedatum: 17.04.2008 Beiträge: 78

Na also.

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

loool

Visual Basic: [code] Private Sub Textbox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
MessageBox.Show(e.KeyCode.ToString(), "KeyDown")
End Sub[/code]
_________________

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

naja, das is scheisse...

meine funktion liefert für "^" auch "^" und nicht "Oem" Cool