Anasayfa > Kodlar > Visual Basic 6 ile Sistemde yüklü klavyenin tipini öğrenmek

Visual Basic 6 ile Sistemde yüklü klavyenin tipini öğrenmek


GetKeyboardType API sini kullanarak sisteme yüklenmiş klavyenin tipini öğrenebilirisiniz.


Public Declare Function GetKeyboardType Lib “user32” (ByVal nTypeFlag As Long) As Long


Private Sub Command1_Click()

Dim n As Long

n = GetKeyboardType(0)

Select Case (n)
Case 0:
Text1.Text = “Error”
Case 1:
Text1.Text = “IBM PC/XT or compatible (83-key) keyboard”
Case 2:
Text1.Text = “Olivetti ICO (102-key) keyboard”
Case 3:
Text1.Text = “IBM PC/AT (84-key) or similar keyboard”
Case 4:
Text1.Text = “IBM enhanced (101- or 102-key) keyboard”
Case 5:
Text1.Text = “Nokia 1050 and similar keyboards”
Case 6:
Text1.Text = “Nokia 9140 and similar keyboards”
Case 7:
Text1.Text = “Japanese keyboard”
End Select


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: