home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / keys.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.6 KB  |  148 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Test keyboard"
  4.    ClientHeight    =   3120
  5.    ClientLeft      =   3315
  6.    ClientTop       =   1665
  7.    ClientWidth     =   3615
  8.    Height          =   3525
  9.    Left            =   3255
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3120
  13.    ScaleWidth      =   3615
  14.    Top             =   1320
  15.    Width           =   3735
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Quit"
  18.       Height          =   495
  19.       Left            =   600
  20.       TabIndex        =   0
  21.       Top             =   2280
  22.       Width           =   1215
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "Command1"
  26.       Height          =   495
  27.       Left            =   1920
  28.       TabIndex        =   7
  29.       Top             =   1920
  30.       Width           =   1215
  31.    End
  32.    Begin CommandButton Command3 
  33.       Caption         =   "Get Locks"
  34.       Height          =   495
  35.       Left            =   600
  36.       TabIndex        =   4
  37.       Top             =   1680
  38.       Width           =   1215
  39.    End
  40.    Begin CheckBox Check4 
  41.       Caption         =   "Overstrike"
  42.       Height          =   375
  43.       Left            =   600
  44.       TabIndex        =   5
  45.       Top             =   1200
  46.       Width           =   1215
  47.    End
  48.    Begin TextBox Text1 
  49.       Height          =   495
  50.       Left            =   2040
  51.       TabIndex        =   6
  52.       Text            =   "Text1"
  53.       Top             =   960
  54.       Width           =   1215
  55.    End
  56.    Begin CheckBox Check3 
  57.       Caption         =   "Scroll Lock"
  58.       Height          =   375
  59.       Left            =   600
  60.       TabIndex        =   3
  61.       Top             =   840
  62.       Width           =   1215
  63.    End
  64.    Begin CheckBox Check2 
  65.       Caption         =   "Caps Lock"
  66.       Height          =   375
  67.       Left            =   600
  68.       TabIndex        =   2
  69.       Top             =   480
  70.       Width           =   1215
  71.    End
  72.    Begin CheckBox Check1 
  73.       Caption         =   "Num Lock"
  74.       Height          =   375
  75.       Left            =   600
  76.       TabIndex        =   1
  77.       Top             =   120
  78.       Width           =   1215
  79.    End
  80. Dim Clicked%
  81. Dim Keys As KeysType
  82. Sub Check1_Click ()
  83.   SendKeys "{NUMLOCK}", -1
  84.   x = DoEvents()
  85. End Sub
  86. Sub Check2_Click ()
  87.   SendKeys "{CAPSLOCK}"
  88.   x = DoEvents()
  89. End Sub
  90. Sub Check3_Click ()
  91.   SendKeys "{SCROLLLOCK}"
  92.   x = DoEvents()
  93. End Sub
  94. Sub Check4_Click ()
  95.   SendKeys "{INSERT}"
  96.   x = DoEvents()
  97. End Sub
  98. Sub Command1_Click ()
  99.   If Not Clicked% Then
  100.     Form1.SetFocus
  101.     SendKeys "{CAPSLOCK}"
  102.     x = DoEvents()
  103.   End If
  104.   Clicked% = Not Clicked%
  105. End Sub
  106. Sub Command2_Click ()
  107.   End
  108. End Sub
  109. Sub Command3_Click ()
  110.   If NumLocked() Then
  111.     Check1.Value = ToggleOn
  112.   Else
  113.     Check1.Value = ToggleOff
  114.   End If
  115.   If CapsLocked() Then
  116.     Check2.Value = ToggleOn
  117.   Else
  118.     Check2.Value = ToggleOff
  119.   End If
  120.   If ScrollLocked() Then
  121.     Check3.Value = ToggleOn
  122.   Else
  123.     Check3.Value = ToggleOff
  124.   End If
  125.   If InsertMode() Then
  126.     Check4.Value = ToggleOn
  127.   Else
  128.     Check4.Value = ToggleOff
  129.   End If
  130. End Sub
  131. Sub Form_Click ()
  132.   StartTimeA! = Timer
  133.   For I% = 1 To 10000
  134.     V% = GetKeyState(Key_Capital) And 1
  135.   Next I%
  136.   EndTime! = Timer
  137.   For I% = 1 To 10000
  138.     GetKeyboardState Keys
  139.     V% = Asc(Mid$(Keys.state, Key_Capital + 1, 1)) And 1
  140.   Next I%
  141.   FinalTime! = Timer
  142.   Debug.Print "Time GetKeyState = "; EndTime! - StartTimeA!
  143.   Debug.Print "Time GetKeyboardState = "; FinalTime! - EndTime!
  144. '  SendKeys "{CAPSLOCK}"
  145. '  x = DoEvents()
  146. '  Beep
  147. End Sub
  148.