Как узнать тип клавиатуры -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.221.187.121]

Модераторы: SCINER, B.V.

Как узнать тип клавиатуры

D[u]fa

Сообщ. #1 , 30.03.04, 17:06

Master

Рейтинг (т): 112

Private Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long

Private Sub Form_Load()

Dim t As String, k As Long

k = GetKeyboardType(0)

If k = 1 Then t = "PC or compatible 83-key keyboard"

If k = 2 Then t = "Olivetti 102-key keyboard"

If k = 3 Then t = "AT or compatible 84-key keyboard"

If k = 4 Then t = "Enhanced(IBM) 101-102-key keyboard"

If k = 5 Then t = "Nokia 1050 keyboard"

If k = 6 Then t = "Nokia 9140 keyboard"

If k = 7 Then t = "Japanese keyboard"

MsgBox "Type of keyboard : " + t

End Sub

Сообщение отредактировано: Andrey_Kun - 05.04.04, 10:24

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0211 ] [ 16 queries used ] [ Generated: 24.04.24, 18:22 GMT ]