Dim ftaste As String = "F4"
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim ftaste As String = "F4"
        If e.KeyData = [Enum].Parse(GetType(Keys), ftaste) Then
            MsgBox(ftaste & " gedrückt.")
        End If
    End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008

Beitrag wurde zuletzt am 06.05.08 um 14:11:08 editiert.