home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm321.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-24  |  5.4 KB  |  175 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm frmkeystats 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "MDIForm1"
  5.    ClientHeight    =   6030
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1515
  8.    ClientWidth     =   6720
  9.    Height          =   6435
  10.    Left            =   1035
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1170
  13.    Width           =   6840
  14.    Begin VB.PictureBox Picture1 
  15.       Align           =   2  'Align Bottom
  16.       Height          =   510
  17.       Left            =   0
  18.       ScaleHeight     =   480
  19.       ScaleWidth      =   6690
  20.       TabIndex        =   0
  21.       Top             =   5520
  22.       Width           =   6720
  23.       Begin VB.Timer Timer1 
  24.          Interval        =   1000
  25.          Left            =   0
  26.          Top             =   0
  27.       End
  28.       Begin Threed.SSPanel pnlcaps 
  29.          Height          =   315
  30.          Left            =   3960
  31.          TabIndex        =   8
  32.          Top             =   60
  33.          Width           =   555
  34.          _version        =   65536
  35.          _extentx        =   979
  36.          _extenty        =   556
  37.          _stockprops     =   15
  38.          forecolor       =   -2147483630
  39.          backcolor       =   12632256
  40.          bevelwidth      =   2
  41.          borderwidth     =   2
  42.          bevelouter      =   1
  43.       End
  44.       Begin Threed.SSPanel pnlnum 
  45.          Height          =   315
  46.          Left            =   4620
  47.          TabIndex        =   7
  48.          Top             =   60
  49.          Width           =   615
  50.          _version        =   65536
  51.          _extentx        =   1085
  52.          _extenty        =   556
  53.          _stockprops     =   15
  54.          forecolor       =   -2147483630
  55.          backcolor       =   12632256
  56.          bevelwidth      =   2
  57.          borderwidth     =   2
  58.          bevelouter      =   1
  59.       End
  60.       Begin Threed.SSPanel pnlscrl 
  61.          Height          =   315
  62.          Left            =   5340
  63.          TabIndex        =   6
  64.          Top             =   60
  65.          Width           =   615
  66.          _version        =   65536
  67.          _extentx        =   1085
  68.          _extenty        =   556
  69.          _stockprops     =   15
  70.          forecolor       =   -2147483630
  71.          backcolor       =   12632256
  72.          bevelwidth      =   2
  73.          borderwidth     =   2
  74.          bevelouter      =   1
  75.       End
  76.       Begin Threed.SSPanel pnlins 
  77.          Height          =   315
  78.          Left            =   6060
  79.          TabIndex        =   5
  80.          Top             =   60
  81.          Width           =   555
  82.          _version        =   65536
  83.          _extentx        =   979
  84.          _extenty        =   556
  85.          _stockprops     =   15
  86.          forecolor       =   -2147483630
  87.          backcolor       =   12632256
  88.          bevelwidth      =   2
  89.          borderwidth     =   2
  90.          bevelouter      =   1
  91.       End
  92.       Begin KeyStatLib.MhState keycaps 
  93.          Height          =   420
  94.          Left            =   60
  95.          TabIndex        =   4
  96.          Top             =   0
  97.          Visible         =   0   'False
  98.          Width           =   420
  99.          _version        =   65536
  100.          _extentx        =   741
  101.          _extenty        =   741
  102.          _stockprops     =   65
  103.          backcolor       =   -2147483633
  104.       End
  105.       Begin KeyStatLib.MhState keynum 
  106.          Height          =   420
  107.          Left            =   720
  108.          TabIndex        =   3
  109.          Top             =   0
  110.          Visible         =   0   'False
  111.          Width           =   420
  112.          _version        =   65536
  113.          _extentx        =   741
  114.          _extenty        =   741
  115.          _stockprops     =   65
  116.          backcolor       =   -2147483633
  117.          value           =   -1  'True
  118.          style           =   1
  119.       End
  120.       Begin KeyStatLib.MhState keyinsert 
  121.          Height          =   420
  122.          Left            =   2160
  123.          TabIndex        =   2
  124.          Top             =   0
  125.          Visible         =   0   'False
  126.          Width           =   420
  127.          _version        =   65536
  128.          _extentx        =   741
  129.          _extenty        =   741
  130.          _stockprops     =   65
  131.          backcolor       =   -2147483633
  132.          style           =   2
  133.       End
  134.       Begin KeyStatLib.MhState keyscrl 
  135.          Height          =   420
  136.          Left            =   1440
  137.          TabIndex        =   1
  138.          Top             =   0
  139.          Visible         =   0   'False
  140.          Width           =   420
  141.          _version        =   65536
  142.          _extentx        =   741
  143.          _extenty        =   741
  144.          _stockprops     =   65
  145.          backcolor       =   -2147483633
  146.          style           =   3
  147.       End
  148.    End
  149. Attribute VB_Name = "frmkeystats"
  150. Attribute VB_Creatable = False
  151. Attribute VB_Exposed = False
  152. Option Explicit
  153. Private Sub Timer1_Timer()
  154. ' Caps Lock Key
  155. If keycaps.VALUE = True Then
  156.     pnlcaps.Caption = "Cap"
  157.     pnlcaps.Caption = ""
  158. End If
  159. ' Num Lock Key
  160. If keynum.VALUE = True Then
  161.     pnlnum.Caption = "Num"
  162.     pnlnum.Caption = ""
  163. End If
  164. ' Scroll lock
  165. If keyscrl.VALUE = True Then
  166.     pnlscrl.Caption = "Scrl"
  167.     pnlscrl.Caption = ""
  168. End If
  169. ' Inser Key
  170. If keyInsert.VALUE = True Then
  171.     pnlins.Caption = "Ins"
  172.     pnlins.Caption = "Ovr"
  173. End If
  174. End Sub
  175.