VB工程---百例100--获取键盘类型

Option Explicit Private Sub Command1_Click() Dim k, keytype k = GetKeyboardType(0) Select Case k Case 1 keytype = "IBM PC /XT或兼容83键键盘" Case 2 keytype = "Olivetti102键键盘" Case 3 keytype = "IBM PC /XT或兼容

>>阅读原文<<