copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Beispiel: VB .Net - Verwendung der Tasten des Nummernblocks - Prozesse auf Tastendruck starten
'
Option Explicit On
Option Strict On

Public Class Form1

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
            Handles Me.KeyDown
        Try
            If CheckNumLock() Then
                Select Case e.KeyCode
                    Case Is = Keys.NumPad0
                        Process.Start("iexplore.exe", "http://www.microsoft.com")
                    Case Is = Keys.NumPad1
                        Process.Start("notepad.exe")
                    Case Is = Keys.NumPad2
                        Process.Start("firefox.exe", "http://www.visual-basic5.de")
                    Case Is = Keys.NumPad3
                        Process.Start("calc.exe")
                    Case Is = Keys.NumPad4
                        Process.Start("iexplore.exe", "http://www.vbarchiv.net")
                    Case Is = Keys.NumPad5
                        Process.Start("iexplore.exe", "http://www.google.de")
                    Case Is = Keys.NumPad6
                        Process.Start("iexplore.exe", "http://www.yahoo.de")
                    Case Is = Keys.NumPad7
                        Process.Start("iexplore.exe", "http://www.web.de")
                    Case Is = Keys.NumPad8
                        Process.Start("firefox.exe", "http://www.abacho.de")
                    Case Is = Keys.NumPad9
                        Process.Start("firefox.exe", "http://www.alltheweb.com")
                    Case Is = Keys.Add
                        MessageBox.Show(Message, "Info")
                End Select
            Else
                MessageBox.Show("Nummernblock ist ausgeschaltet.", "Info")
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Sub

    Private Function Message() As String
        Dim sb As New System.Text.StringBuilder
        Dim info() As String = { _
            "http://www.microsoft.com", _
            "notepad.exe", _
            "http://www.visual-basic5.de", _
            "calc.exe", _
            "http://www.vbarchiv.net", _
            "http://www.google.de", _
            "http://www.yahoo.de", _
            "http://www.web.de", _
            "http://www.abacho.de", _
            "http://www.alltheweb.com"}

        For n As Integer = 0 To info.GetUpperBound(0)
            sb.Append("/n" & "Taste: " & n.ToString() & " - " & info(n))
        Next
        sb.Replace("/n", System.Environment.NewLine())
        Return sb.ToString()
    End Function

    Private Function CheckNumLock() As Boolean
        If My.Computer.Keyboard.NumLock Then
            Return True
        Else
            Return False
        End If
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles MyBase.Load
        With Me
            .Text = "Prozess auf Tastendruck starten"
            .Button1.Text = "Exit"
            .CenterToScreen()
            .KeyPreview = True
            If .CheckNumLock Then
                Me.Text = "Nummernblock ist eingeschaltet"
            Else
                Me.Text = "Nummernblock ist ausgeschaltet"
            End If
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
            Handles Button1.Click
        Application.Exit()
    End Sub

End Class
Sourcecode Visual Basic