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或兼容

>>阅读原文<<