ZjiÜt∞nφ typu klßvesnice

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

Na formulß° p°idejte tlaΦφtko a label. Na udßlost Click tlaΦφtka:

Private Sub Command1_Click()
    Dim t As String
    Dim k As Long
    k = GetKeyboardType(0)
    If k = 1 Then t = "PC nebo kompatibilnφ 83-klßvesovß klßvesnice"
    If k = 2 Then t = "102-klßvesovß klßvesnice Olivetti"
    If k = 3 Then t = "AT nebo kompatibilnφ 84-klßvesovß klßvesnice"
    If k = 4 Then t = "101-102-klßvesovß klßvesnice"
    If k = 5 Then t = "Klßvesnice Nokia 1050"
    If k = 6 Then t = "KLßvesnice Nokia 9140"
    If k = 7 Then t = "Japonskß klßvesnice"
    label1.caption = "Typ klßvesnice: " & t
End Sub

Zp∞t