Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

28 Функция определяющая тип вашей клавиатуры
Private Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long

Public Sub cGetKeyboardType()
Dim t As String
Dim 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 "Тип вашей клавиатуры :" & t
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница