VB-Homepage Tipp 413

Ermitteln des verwendeten Tastaturtyps

Ein Tipp der lediglich das Gesamtbild abrunden soll, denn viele der vorhanden Tipps drehen sich um das Prüfen des Vorhandenseins von Systemkomponenten bzw. welche das sind. Und so ist es nur Recht zu wissen, mit welchem Tastaturtyp man arbeitet. Allgemein/Deklarationen Private Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long Funktionsaufruf Dim l_ttyp As Long l_ttyp = GetKeyboardType(0) If l_ttyp = 1 Then    Msgbox "IBM PC/AT oder kompatible mit 83 Tasten" ElseIf l_ttyp = 2 Then    Msgbox = "Olivetti 'ICO' Tastatur mit 102 Tasten" ElseIf l_ttyp = 3 Then    Msgbox = "IBM AT oder ähnliche Tastatur mit 84 Tasten" ElseIf l_ttyp = 4 Then    Msgbox = "IBM Erweiterte Tastatur 101 oder 102 Tasten" ElseIf l_ttyp = 5 Then    Msgbox = "Nokia 1050 oder ähnliche Tastatur" ElseIf l_ttyp = 6 Then    Msgbox = "Nokia 9140 oder ähnliche Tastatur" ElseIf l_ttyp = 7 Then    Msgbox = "Japanische Tastatur" Else    Msgbox = "unbekannt" End If Die Ausgabe erfolgt in einer Messagebox.

Tipp-Download

Quelle :