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 :

Zurück zur Übersichtsseite