home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / keytest / keytest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.4 KB  |  45 lines
  1. VERSION 2.00
  2. Begin Form KeyTest 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Key Code"
  6.    ClientHeight    =   1320
  7.    ClientLeft      =   3765
  8.    ClientTop       =   3360
  9.    ClientWidth     =   2100
  10.    FontTransparent =   0   'False
  11.    Height          =   1725
  12.    Icon            =   KEYTEST.FRX:0000
  13.    Left            =   3705
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   1320
  18.    ScaleWidth      =   2100
  19.    Top             =   3015
  20.    Width           =   2220
  21.    Begin Label Label 
  22.       BackColor       =   &H00FFFFFF&
  23.       Caption         =   "Press any key to get its hex value."
  24.       Height          =   495
  25.       Left            =   255
  26.       TabIndex        =   0
  27.       Top             =   690
  28.       Width           =   1575
  29.    End
  30.    Begin Label Code 
  31.       BorderStyle     =   1  'Fixed Single
  32.       Height          =   225
  33.       Left            =   705
  34.       TabIndex        =   1
  35.       Top             =   315
  36.       Width           =   555
  37.    End
  38. ' KeyTest - a Visual Basic application to return the
  39. '           hexadecimal code for any key pressed
  40. '           Placed in the public domain by the author,
  41. '           Sue Mosher.
  42. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  43.     Code.Caption = "&&H" + Hex$(KeyCode)
  44. End Sub
  45.