Imports System.Windows.Forms
Imports System.Drawing
Public Class MainClass
Public Shared Sub Main()
Application.Run(New FrmTypingApplication)
End Sub
End Class
Public Class FrmTypingApplication
Inherits System.Windows.Forms.Form
' reference to last Button pressed
Private m_btnLastButton As Button
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents lblPrompt As System.Windows.Forms.Label
Friend WithEvents txtOutput As System.Windows.Forms.TextBox
Friend WithEvents btnF1 As System.Windows.Forms.Button
Friend WithEvents btnF2 As System.Windows.Forms.Button
Friend WithEvents btnF3 As System.Windows.Forms.Button
Friend WithEvents btnF4 As System.Windows.Forms.Button
Friend WithEvents btnF5 As System.Windows.Forms.Button
Friend WithEvents btnF6 As System.Windows.Forms.Button
Friend WithEvents btnF7 As System.Windows.Forms.Button
Friend WithEvents btnF8 As System.Windows.Forms.Button
Friend WithEvents btnF9 As System.Windows.Forms.Button
Friend WithEvents btnF10 As System.Windows.Forms.Button
Friend WithEvents btnF11 As System.Windows.Forms.Button
Friend WithEvents btnF12 As System.Windows.Forms.Button
Friend WithEvents btn0 As System.Windows.Forms.Button
Friend WithEvents btn1 As System.Windows.Forms.Button
Friend WithEvents btn2 As System.Windows.Forms.Button
Friend WithEvents btn3 As System.Windows.Forms.Button
Friend WithEvents btn4 As System.Windows.Forms.Button
Friend WithEvents btn5 As System.Windows.Forms.Button
Friend WithEvents btn6 As System.Windows.Forms.Button
Friend WithEvents btn7 As System.Windows.Forms.Button
Friend WithEvents btn8 As System.Windows.Forms.Button
Friend WithEvents btn9 As System.Windows.Forms.Button
Friend WithEvents btnHyphen As System.Windows.Forms.Button
Friend WithEvents btnPlus As System.Windows.Forms.Button
Friend WithEvents btnTilde As System.Windows.Forms.Button
Friend WithEvents btnTab As System.Windows.Forms.Button
Friend WithEvents btnCaps As System.Windows.Forms.Button
Friend WithEvents btnShiftLeft As System.Windows.Forms.Button
Friend WithEvents btnCtrlLeft As System.Windows.Forms.Button
Friend WithEvents btnFn As System.Windows.Forms.Button
Friend WithEvents btnAltLeft As System.Windows.Forms.Button
Friend WithEvents btnSpace As System.Windows.Forms.Button
Friend WithEvents btnBackspace As System.Windows.Forms.Button
Friend WithEvents btnSlash As System.Windows.Forms.Button
Friend WithEvents btnEnter As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnLeft As System.Windows.Forms.Button
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnRight As System.Windows.Forms.Button
Friend WithEvents btnLeftBrace As System.Windows.Forms.Button
Friend WithEvents btnRightBrace As System.Windows.Forms.Button
Friend WithEvents btnColon As System.Windows.Forms.Button
Friend WithEvents btnQuote As System.Windows.Forms.Button
Friend WithEvents btnComma As System.Windows.Forms.Button
Friend WithEvents btnPeriod As System.Windows.Forms.Button
Friend WithEvents btnQuestion As System.Windows.Forms.Button
Friend WithEvents btnA As System.Windows.Forms.Button
Friend WithEvents btnB As System.Windows.Forms.Button
Friend WithEvents btnC As System.Windows.Forms.Button
Friend WithEvents btnD As System.Windows.Forms.Button
Friend WithEvents btnE As System.Windows.Forms.Button
Friend WithEvents btnF As System.Windows.Forms.Button
Friend WithEvents btnG As System.Windows.Forms.Button
Friend WithEvents btnH As System.Windows.Forms.Button
Friend WithEvents btnI As System.Windows.Forms.Button
Friend WithEvents btnJ As System.Windows.Forms.Button
Friend WithEvents btnK As System.Windows.Forms.Button
Friend WithEvents btnL As System.Windows.Forms.Button
Friend WithEvents btnN As System.Windows.Forms.Button
Friend WithEvents btnO As System.Windows.Forms.Button
Friend WithEvents btnP As System.Windows.Forms.Button
Friend WithEvents btnQ As System.Windows.Forms.Button
Friend WithEvents btnR As System.Windows.Forms.Button
Friend WithEvents btnS As System.Windows.Forms.Button
Friend WithEvents btnT As System.Windows.Forms.Button
Friend WithEvents btnU As System.Windows.Forms.Button
Friend WithEvents btnV As System.Windows.Forms.Button
Friend WithEvents btnW As System.Windows.Forms.Button
Friend WithEvents btnM As System.Windows.Forms.Button
Friend WithEvents btnX As System.Windows.Forms.Button
Friend WithEvents btnY As System.Windows.Forms.Button
Friend WithEvents btnZ As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.lblPrompt = New System.Windows.Forms.Label
Me.txtOutput = New System.Windows.Forms.TextBox
Me.btnF1 = New System.Windows.Forms.Button
Me.btnF2 = New System.Windows.Forms.Button
Me.btnF3 = New System.Windows.Forms.Button
Me.btnF4 = New System.Windows.Forms.Button
Me.btnF5 = New System.Windows.Forms.Button
Me.btnF6 = New System.Windows.Forms.Button
Me.btnF7 = New System.Windows.Forms.Button
Me.btnF8 = New System.Windows.Forms.Button
Me.btnF9 = New System.Windows.Forms.Button
Me.btnF10 = New System.Windows.Forms.Button
Me.btnF11 = New System.Windows.Forms.Button
Me.btnF12 = New System.Windows.Forms.Button
Me.btn1 = New System.Windows.Forms.Button
Me.btn2 = New System.Windows.Forms.Button
Me.btn3 = New System.Windows.Forms.Button
Me.btn4 = New System.Windows.Forms.Button
Me.btn5 = New System.Windows.Forms.Button
Me.btn6 = New System.Windows.Forms.Button
Me.btn7 = New System.Windows.Forms.Button
Me.btn8 = New System.Windows.Forms.Button
Me.btn9 = New System.Windows.Forms.Button
Me.btn0 = New System.Windows.Forms.Button
Me.btnHyphen = New System.Windows.Forms.Button
Me.btnPlus = New System.Windows.Forms.Button
Me.btnTilde = New System.Windows.Forms.Button
Me.btnTab = New System.Windows.Forms.Button
Me.btnCtrlLeft = New System.Windows.Forms.Button
Me.btnFn = New System.Windows.Forms.Button
Me.btnAltLeft = New System.Windows.Forms.Button
Me.btnEnter = New System.Windows.Forms.Button
Me.btnSlash = New System.Windows.Forms.Button
Me.btnBackspace = New System.Windows.Forms.Button
Me.btnSpace = New System.Windows.Forms.Button
Me.btnCaps = New System.Windows.Forms.Button
Me.btnShiftLeft = New System.Windows.Forms.Button
Me.btnUp = New System.Windows.Forms.Button
Me.btnLeft = New System.Windows.Forms.Button
Me.btnDown = New System.Windows.Forms.Button
Me.btnRight = New System.Windows.Forms.Button
Me.btnLeftBrace = New System.Windows.Forms.Button
Me.btnRightBrace = New System.Windows.Forms.Button
Me.btnColon = New System.Windows.Forms.Button
Me.btnQuote = New System.Windows.Forms.Button
Me.btnComma = New System.Windows.Forms.Button
Me.btnPeriod = New System.Windows.Forms.Button
Me.btnQuestion = New System.Windows.Forms.Button
Me.btnC = New System.Windows.Forms.Button
Me.btnB = New System.Windows.Forms.Button
Me.btnA = New System.Windows.Forms.Button
Me.btnG = New System.Windows.Forms.Button
Me.btnF = New System.Windows.Forms.Button
Me.btnE = New System.Windows.Forms.Button
Me.btnD = New System.Windows.Forms.Button
Me.btnK = New System.Windows.Forms.Button
Me.btnJ = New System.Windows.Forms.Button
Me.btnI = New System.Windows.Forms.Button
Me.btnH = New System.Windows.Forms.Button
Me.btnO = New System.Windows.Forms.Button
Me.btnN = New System.Windows.Forms.Button
Me.btnM = New System.Windows.Forms.Button
Me.btnL = New System.Windows.Forms.Button
Me.btnT = New System.Windows.Forms.Button
Me.btnS = New System.Windows.Forms.Button
Me.btnR = New System.Windows.Forms.Button
Me.btnQ = New System.Windows.Forms.Button
Me.btnP = New System.Windows.Forms.Button
Me.btnY = New System.Windows.Forms.Button
Me.btnX = New System.Windows.Forms.Button
Me.btnW = New System.Windows.Forms.Button
Me.btnV = New System.Windows.Forms.Button
Me.btnU = New System.Windows.Forms.Button
Me.btnZ = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'lblPrompt
'
Me.lblPrompt.Location = New System.Drawing.Point(32, 8)
Me.lblPrompt.Name = "lblPrompt"
Me.lblPrompt.Size = New System.Drawing.Size(408, 40)
Me.lblPrompt.TabIndex = 64
Me.lblPrompt.Text = "Type some text using your keyboard."
'
'txtOutput
'
Me.txtOutput.AcceptsTab = True
Me.txtOutput.BackColor = System.Drawing.Color.White
Me.txtOutput.Font = New System.Drawing.Font("Tahoma", 10.2!)
Me.txtOutput.Location = New System.Drawing.Point(32, 64)
Me.txtOutput.Multiline = True
Me.txtOutput.Name = "txtOutput"
Me.txtOutput.ReadOnly = True
Me.txtOutput.Size = New System.Drawing.Size(408, 136)
Me.txtOutput.TabIndex = 0
Me.txtOutput.Text = ""
'
'btnF1
'
Me.btnF1.Location = New System.Drawing.Point(48, 216)
Me.btnF1.Name = "btnF1"
Me.btnF1.Size = New System.Drawing.Size(32, 23)
Me.btnF1.TabIndex = 74
Me.btnF1.Text = "F1"
'
'btnF2
'
Me.btnF2.Location = New System.Drawing.Point(80, 216)
Me.btnF2.Name = "btnF2"
Me.btnF2.Size = New System.Drawing.Size(32, 23)
Me.btnF2.TabIndex = 72
Me.btnF2.Text = "F2"
'
'btnF3
'
Me.btnF3.Location = New System.Drawing.Point(112, 216)
Me.btnF3.Name = "btnF3"
Me.btnF3.Size = New System.Drawing.Size(32, 23)
Me.btnF3.TabIndex = 67
Me.btnF3.Text = "F3"
'
'btnF4
'
Me.btnF4.Location = New System.Drawing.Point(144, 216)
Me.btnF4.Name = "btnF4"
Me.btnF4.Size = New System.Drawing.Size(32, 23)
Me.btnF4.TabIndex = 68
Me.btnF4.Text = "F4"
'
'btnF5
'
Me.btnF5.Location = New System.Drawing.Point(176, 216)
Me.btnF5.Name = "btnF5"
Me.btnF5.Size = New System.Drawing.Size(32, 23)
Me.btnF5.TabIndex = 69
Me.btnF5.Text = "F5"
'
'btnF6
'
Me.btnF6.Location = New System.Drawing.Point(208, 216)
Me.btnF6.Name = "btnF6"
Me.btnF6.Size = New System.Drawing.Size(32, 23)
Me.btnF6.TabIndex = 70
Me.btnF6.Text = "F6"
'
'btnF7
'
Me.btnF7.Location = New System.Drawing.Point(240, 216)
Me.btnF7.Name = "btnF7"
Me.btnF7.Size = New System.Drawing.Size(32, 23)
Me.btnF7.TabIndex = 71
Me.btnF7.Text = "F7"
'
'btnF8
'
Me.btnF8.Location = New System.Drawing.Point(272, 216)
Me.btnF8.Name = "btnF8"
Me.btnF8.Size = New System.Drawing.Size(32, 23)
Me.btnF8.TabIndex = 72
Me.btnF8.Text = "F8"
'
'btnF9
'
Me.btnF9.Location = New System.Drawing.Point(304, 216)
Me.btnF9.Name = "btnF9"
Me.btnF9.Size = New System.Drawing.Size(32, 23)
Me.btnF9.TabIndex = 73
Me.btnF9.Text = "F9"
'
'btnF10
'
Me.btnF10.Location = New System.Drawing.Point(336, 216)
Me.btnF10.Name = "btnF10"
Me.btnF10.Size = New System.Drawing.Size(32, 23)
Me.btnF10.TabIndex = 74
Me.btnF10.Text = "F10"
'
'btnF11
'
Me.btnF11.Location = New System.Drawing.Point(368, 216)
Me.btnF11.Name = "btnF11"
Me.btnF11.Size = New System.Drawing.Size(32, 23)
Me.btnF11.TabIndex = 75
Me.btnF11.Text = "F11"
'
'btnF12
'
Me.btnF12.Location = New System.Drawing.Point(400, 216)
Me.btnF12.Name = "btnF12"
Me.btnF12.Size = New System.Drawing.Size(32, 23)
Me.btnF12.TabIndex = 76
Me.btnF12.Text = "F12"
'
'btn1
'
Me.btn1.Location = New System.Drawing.Point(80, 240)
Me.btn1.Name = "btn1"
Me.btn1.Size = New System.Drawing.Size(24, 23)
Me.btn1.TabIndex = 77
Me.btn1.Text = "1"
'
'btn2
'
Me.btn2.Location = New System.Drawing.Point(104, 240)
Me.btn2.Name = "btn2"
Me.btn2.Size = New System.Drawing.Size(24, 23)
Me.btn2.TabIndex = 78
Me.btn2.Text = "2"
'
'btn3
'
Me.btn3.Location = New System.Drawing.Point(128, 240)
Me.btn3.Name = "btn3"
Me.btn3.Size = New System.Drawing.Size(24, 23)
Me.btn3.TabIndex = 79
Me.btn3.Text = "3"
'
'btn4
'
Me.btn4.Location = New System.Drawing.Point(152, 240)
Me.btn4.Name = "btn4"
Me.btn4.Size = New System.Drawing.Size(24, 23)
Me.btn4.TabIndex = 80
Me.btn4.Text = "4"
'
'btn5
'
Me.btn5.Location = New System.Drawing.Point(176, 240)
Me.btn5.Name = "btn5"
Me.btn5.Size = New System.Drawing.Size(24, 23)
Me.btn5.TabIndex = 81
Me.btn5.Text = "5"
'
'btn6
'
Me.btn6.Location = New System.Drawing.Point(200, 240)
Me.btn6.Name = "btn6"
Me.btn6.Size = New System.Drawing.Size(24, 23)
Me.btn6.TabIndex = 82
Me.btn6.Text = "6"
'
'btn7
'
Me.btn7.Location = New System.Drawing.Point(224, 240)
Me.btn7.Name = "btn7"
Me.btn7.Size = New System.Drawing.Size(24, 23)
Me.btn7.TabIndex = 83
Me.btn7.Text = "7"
'
'btn8
'
Me.btn8.Location = New System.Drawing.Point(248, 240)
Me.btn8.Name = "btn8"
Me.btn8.Size = New System.Drawing.Size(24, 23)
Me.btn8.TabIndex = 84
Me.btn8.Text = "8"
'
'btn9
'
Me.btn9.Location = New System.Drawing.Point(272, 240)
Me.btn9.Name = "btn9"
Me.btn9.Size = New System.Drawing.Size(24, 23)
Me.btn9.TabIndex = 85
Me.btn9.Text = "9"
'
'btn0
'
Me.btn0.Location = New System.Drawing.Point(296, 240)
Me.btn0.Name = "btn0"
Me.btn0.Size = New System.Drawing.Size(24, 23)
Me.btn0.TabIndex = 86
Me.btn0.Text = "0"
'
'btnHyphen
'
Me.btnHyphen.Location = New System.Drawing.Point(320, 240)
Me.btnHyphen.Name = "btnHyphen"
Me.btnHyphen.Size = New System.Drawing.Size(24, 23)
Me.btnHyphen.TabIndex = 87
Me.btnHyphen.Text = "-"
'
'btnPlus
'
Me.btnPlus.Location = New System.Drawing.Point(344, 240)
Me.btnPlus.Name = "btnPlus"
Me.btnPlus.Size = New System.Drawing.Size(24, 23)
Me.btnPlus.TabIndex = 88
Me.btnPlus.Text = "+"
'
'btnTilde
'
Me.btnTilde.Location = New System.Drawing.Point(32, 240)
Me.btnTilde.Name = "btnTilde"
Me.btnTilde.Size = New System.Drawing.Size(48, 23)
Me.btnTilde.TabIndex = 89
Me.btnTilde.Text = "~"
'
'btnTab
'
Me.btnTab.Location = New System.Drawing.Point(32, 264)
Me.btnTab.Name = "btnTab"
Me.btnTab.Size = New System.Drawing.Size(64, 23)
Me.btnTab.TabIndex = 90
Me.btnTab.Text = "Tab"
'
'btnCtrlLeft
'
Me.btnCtrlLeft.Location = New System.Drawing.Point(32, 336)
Me.btnCtrlLeft.Name = "btnCtrlLeft"
Me.btnCtrlLeft.Size = New System.Drawing.Size(56, 23)
Me.btnCtrlLeft.TabIndex = 91
Me.btnCtrlLeft.Text = "Ctrl"
'
'btnFn
'
Me.btnFn.Enabled = False
Me.btnFn.Location = New System.Drawing.Point(88, 336)
Me.btnFn.Name = "btnFn"
Me.btnFn.Size = New System.Drawing.Size(32, 23)
Me.btnFn.TabIndex = 92
Me.btnFn.Text = "Fn"
'
'btnAltLeft
'
Me.btnAltLeft.Location = New System.Drawing.Point(120, 336)
Me.btnAltLeft.Name = "btnAltLeft"
Me.btnAltLeft.Size = New System.Drawing.Size(32, 23)
Me.btnAltLeft.TabIndex = 93
Me.btnAltLeft.Text = "Alt"
'
'btnEnter
'
Me.btnEnter.Location = New System.Drawing.Point(368, 288)
Me.btnEnter.Name = "btnEnter"
Me.btnEnter.Size = New System.Drawing.Size(72, 23)
Me.btnEnter.TabIndex = 94
Me.btnEnter.Text = "Enter"
'
'btnSlash
'
Me.btnSlash.Location = New System.Drawing.Point(384, 264)
Me.btnSlash.Name = "btnSlash"
Me.btnSlash.Size = New System.Drawing.Size(56, 23)
Me.btnSlash.TabIndex = 95
Me.btnSlash.Text = "\"
'
'btnBackspace
'
Me.btnBackspace.Location = New System.Drawing.Point(368, 240)
Me.btnBackspace.Name = "btnBackspace"
Me.btnBackspace.Size = New System.Drawing.Size(72, 23)
Me.btnBackspace.TabIndex = 96
Me.btnBackspace.Text = "Backspace"
'
'btnSpace
'
Me.btnSpace.Location = New System.Drawing.Point(152, 336)
Me.btnSpace.Name = "btnSpace"
Me.btnSpace.Size = New System.Drawing.Size(144, 23)
Me.btnSpace.TabIndex = 97
'
'btnCaps
'
Me.btnCaps.Location = New System.Drawing.Point(32, 288)
Me.btnCaps.Name = "btnCaps"
Me.btnCaps.Size = New System.Drawing.Size(72, 23)
Me.btnCaps.TabIndex = 98
Me.btnCaps.Text = "Caps Lock"
'
'btnShiftLeft
'
Me.btnShiftLeft.Location = New System.Drawing.Point(32, 312)
Me.btnShiftLeft.Name = "btnShiftLeft"
Me.btnShiftLeft.Size = New System.Drawing.Size(88, 23)
Me.btnShiftLeft.TabIndex = 99
Me.btnShiftLeft.Text = "Shift"
'
'btnUp
'
Me.btnUp.Location = New System.Drawing.Point(384, 312)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(24, 23)
Me.btnUp.TabIndex = 100
Me.btnUp.Text = "^"
'
'btnLeft
'
Me.btnLeft.Location = New System.Drawing.Point(360, 336)
Me.btnLeft.Name = "btnLeft"
Me.btnLeft.Size = New System.Drawing.Size(24, 23)
Me.btnLeft.TabIndex = 101
Me.btnLeft.Text = "<"
'
'btnDown
'
Me.btnDown.Location = New System.Drawing.Point(384, 336)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(24, 23)
Me.btnDown.TabIndex = 102
Me.btnDown.Text = "v"
'
'btnRight
'
Me.btnRight.Location = New System.Drawing.Point(408, 336)
Me.btnRight.Name = "btnRight"
Me.btnRight.Size = New System.Drawing.Size(24, 23)
Me.btnRight.TabIndex = 103
Me.btnRight.Text = ">"
'
'btnLeftBrace
'
Me.btnLeftBrace.Location = New System.Drawing.Point(336, 264)
Me.btnLeftBrace.Name = "btnLeftBrace"
Me.btnLeftBrace.Size = New System.Drawing.Size(24, 23)
Me.btnLeftBrace.TabIndex = 104
Me.btnLeftBrace.Text = "["
'
'btnRightBrace
'
Me.btnRightBrace.Location = New System.Drawing.Point(360, 264)
Me.btnRightBrace.Name = "btnRightBrace"
Me.btnRightBrace.Size = New System.Drawing.Size(24, 23)
Me.btnRightBrace.TabIndex = 105
Me.btnRightBrace.Text = "]"
'
'btnColon
'
Me.btnColon.Location = New System.Drawing.Point(320, 288)
Me.btnColon.Name = "btnColon"
Me.btnColon.Size = New System.Drawing.Size(24, 23)
Me.btnColon.TabIndex = 106
Me.btnColon.Text = ":"
'
'btnQuote
'
Me.btnQuote.Location = New System.Drawing.Point(344, 288)
Me.btnQuote.Name = "btnQuote"
Me.btnQuote.Size = New System.Drawing.Size(24, 23)
Me.btnQuote.TabIndex = 107
Me.btnQuote.Text = """"
'
'btnComma
'
Me.btnComma.Location = New System.Drawing.Point(288, 312)
Me.btnComma.Name = "btnComma"
Me.btnComma.Size = New System.Drawing.Size(24, 23)
Me.btnComma.TabIndex = 108
Me.btnComma.Text = ","
'
'btnPeriod
'
Me.btnPeriod.Location = New System.Drawing.Point(312, 312)
Me.btnPeriod.Name = "btnPeriod"
Me.btnPeriod.Size = New System.Drawing.Size(24, 23)
Me.btnPeriod.TabIndex = 109
Me.btnPeriod.Text = "."
'
'btnQuestion
'
Me.btnQuestion.Location = New System.Drawing.Point(336, 312)
Me.btnQuestion.Name = "btnQuestion"
Me.btnQuestion.Size = New System.Drawing.Size(24, 23)
Me.btnQuestion.TabIndex = 110
Me.btnQuestion.Text = "?"
'
'btnC
'
Me.btnC.Location = New System.Drawing.Point(168, 312)
Me.btnC.Name = "btnC"
Me.btnC.Size = New System.Drawing.Size(24, 23)
Me.btnC.TabIndex = 111
Me.btnC.Text = "C"
'
'btnB
'
Me.btnB.Location = New System.Drawing.Point(216, 312)
Me.btnB.Name = "btnB"
Me.btnB.Size = New System.Drawing.Size(24, 23)
Me.btnB.TabIndex = 112
Me.btnB.Text = "B"
'
'btnA
'
Me.btnA.Location = New System.Drawing.Point(104, 288)
Me.btnA.Name = "btnA"
Me.btnA.Size = New System.Drawing.Size(24, 23)
Me.btnA.TabIndex = 113
Me.btnA.Text = "A"
'
'btnG
'
Me.btnG.Location = New System.Drawing.Point(200, 288)
Me.btnG.Name = "btnG"
Me.btnG.Size = New System.Drawing.Size(24, 23)
Me.btnG.TabIndex = 114
Me.btnG.Text = "G"
'
'btnF
'
Me.btnF.Location = New System.Drawing.Point(176, 288)
Me.btnF.Name = "btnF"
Me.btnF.Size = New System.Drawing.Size(24, 23)
Me.btnF.TabIndex = 115
Me.btnF.Text = "F"
'
'btnE
'
Me.btnE.Location = New System.Drawing.Point(144, 264)
Me.btnE.Name = "btnE"
Me.btnE.Size = New System.Drawing.Size(24, 23)
Me.btnE.TabIndex = 116
Me.btnE.Text = "E"
'
'btnD
'
Me.btnD.Location = New System.Drawing.Point(152, 288)
Me.btnD.Name = "btnD"
Me.btnD.Size = New System.Drawing.Size(24, 23)
Me.btnD.TabIndex = 117
Me.btnD.Text = "D"
'
'btnK
'
Me.btnK.Location = New System.Drawing.Point(272, 288)
Me.btnK.Name = "btnK"
Me.btnK.Size = New System.Drawing.Size(24, 23)
Me.btnK.TabIndex = 118
Me.btnK.Text = "K"
'
'btnJ
'
Me.btnJ.Location = New System.Drawing.Point(248, 288)
Me.btnJ.Name = "btnJ"
Me.btnJ.Size = New System.Drawing.Size(24, 23)
Me.btnJ.TabIndex = 119
Me.btnJ.Text = "J"
'
'btnI
'
Me.btnI.Location = New System.Drawing.Point(264, 264)
Me.btnI.Name = "btnI"
Me.btnI.Size = New System.Drawing.Size(24, 23)
Me.btnI.TabIndex = 120
Me.btnI.Text = "I"
'
'btnH
'
Me.btnH.Location = New System.Drawing.Point(224, 288)
Me.btnH.Name = "btnH"
Me.btnH.Size = New System.Drawing.Size(24, 23)
Me.btnH.TabIndex = 121
Me.btnH.Text = "H"
'
'btnO
'
Me.btnO.Location = New System.Drawing.Point(288, 264)
Me.btnO.Name = "btnO"
Me.btnO.Size = New System.Drawing.Size(24, 23)
Me.btnO.TabIndex = 122
Me.btnO.Text = "O"
'
'btnN
'
Me.btnN.Location = New System.Drawing.Point(240, 312)
Me.btnN.Name = "btnN"
Me.btnN.Size = New System.Drawing.Size(24, 23)
Me.btnN.TabIndex = 123
Me.btnN.Text = "N"
'
'btnM
'
Me.btnM.Location = New System.Drawing.Point(264, 312)
Me.btnM.Name = "btnM"
Me.btnM.Size = New System.Drawing.Size(24, 23)
Me.btnM.TabIndex = 124
Me.btnM.Text = "M"
'
'btnL
'
Me.btnL.Location = New System.Drawing.Point(296, 288)
Me.btnL.Name = "btnL"
Me.btnL.Size = New System.Drawing.Size(24, 23)
Me.btnL.TabIndex = 125
Me.btnL.Text = "L"
'
'btnT
'
Me.btnT.Location = New System.Drawing.Point(192, 264)
Me.btnT.Name = "btnT"
Me.btnT.Size = New System.Drawing.Size(24, 23)
Me.btnT.TabIndex = 126
Me.btnT.Text = "T"
'
'btnS
'
Me.btnS.Location = New System.Drawing.Point(128, 288)
Me.btnS.Name = "btnS"
Me.btnS.Size = New System.Drawing.Size(24, 23)
Me.btnS.TabIndex = 127
Me.btnS.Text = "S"
'
'btnR
'
Me.btnR.Location = New System.Drawing.Point(168, 264)
Me.btnR.Name = "btnR"
Me.btnR.Size = New System.Drawing.Size(24, 23)
Me.btnR.TabIndex = 128
Me.btnR.Text = "R"
'
'btnQ
'
Me.btnQ.Location = New System.Drawing.Point(96, 264)
Me.btnQ.Name = "btnQ"
Me.btnQ.Size = New System.Drawing.Size(24, 23)
Me.btnQ.TabIndex = 129
Me.btnQ.Text = "Q"
'
'btnP
'
Me.btnP.Location = New System.Drawing.Point(312, 264)
Me.btnP.Name = "btnP"
Me.btnP.Size = New System.Drawing.Size(24, 23)
Me.btnP.TabIndex = 130
Me.btnP.Text = "P"
'
'btnY
'
Me.btnY.Location = New System.Drawing.Point(216, 264)
Me.btnY.Name = "btnY"
Me.btnY.Size = New System.Drawing.Size(24, 23)
Me.btnY.TabIndex = 131
Me.btnY.Text = "Y"
'
'btnX
'
Me.btnX.Location = New System.Drawing.Point(144, 312)
Me.btnX.Name = "btnX"
Me.btnX.Size = New System.Drawing.Size(24, 23)
Me.btnX.TabIndex = 132
Me.btnX.Text = "X"
'
'btnW
'
Me.btnW.Location = New System.Drawing.Point(120, 264)
Me.btnW.Name = "btnW"
Me.btnW.Size = New System.Drawing.Size(24, 23)
Me.btnW.TabIndex = 133
Me.btnW.Text = "W"
'
'btnV
'
Me.btnV.Location = New System.Drawing.Point(192, 312)
Me.btnV.Name = "btnV"
Me.btnV.Size = New System.Drawing.Size(24, 23)
Me.btnV.TabIndex = 134
Me.btnV.Text = "V"
'
'btnU
'
Me.btnU.Location = New System.Drawing.Point(240, 264)
Me.btnU.Name = "btnU"
Me.btnU.Size = New System.Drawing.Size(24, 23)
Me.btnU.TabIndex = 135
Me.btnU.Text = "U"
'
'btnZ
'
Me.btnZ.Location = New System.Drawing.Point(120, 312)
Me.btnZ.Name = "btnZ"
Me.btnZ.Size = New System.Drawing.Size(24, 23)
Me.btnZ.TabIndex = 136
Me.btnZ.Text = "Z"
'
'FrmTypingApplication
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
Me.ClientSize = New System.Drawing.Size(472, 369)
Me.Controls.Add(Me.btnZ)
Me.Controls.Add(Me.btnU)
Me.Controls.Add(Me.btnV)
Me.Controls.Add(Me.btnW)
Me.Controls.Add(Me.btnX)
Me.Controls.Add(Me.btnY)
Me.Controls.Add(Me.btnP)
Me.Controls.Add(Me.btnQ)
Me.Controls.Add(Me.btnR)
Me.Controls.Add(Me.btnS)
Me.Controls.Add(Me.btnT)
Me.Controls.Add(Me.btnL)
Me.Controls.Add(Me.btnM)
Me.Controls.Add(Me.btnN)
Me.Controls.Add(Me.btnO)
Me.Controls.Add(Me.btnH)
Me.Controls.Add(Me.btnI)
Me.Controls.Add(Me.btnJ)
Me.Controls.Add(Me.btnK)
Me.Controls.Add(Me.btnD)
Me.Controls.Add(Me.btnE)
Me.Controls.Add(Me.btnF)
Me.Controls.Add(Me.btnG)
Me.Controls.Add(Me.btnA)
Me.Controls.Add(Me.btnB)
Me.Controls.Add(Me.btnC)
Me.Controls.Add(Me.btnQuestion)
Me.Controls.Add(Me.btnPeriod)
Me.Controls.Add(Me.btnComma)
Me.Controls.Add(Me.btnQuote)
Me.Controls.Add(Me.btnColon)
Me.Controls.Add(Me.btnRightBrace)
Me.Controls.Add(Me.btnLeftBrace)
Me.Controls.Add(Me.btnRight)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnLeft)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnShiftLeft)
Me.Controls.Add(Me.btnCaps)
Me.Controls.Add(Me.btnSpace)
Me.Controls.Add(Me.btnBackspace)
Me.Controls.Add(Me.btnSlash)
Me.Controls.Add(Me.btnEnter)
Me.Controls.Add(Me.btnAltLeft)
Me.Controls.Add(Me.btnFn)
Me.Controls.Add(Me.btnCtrlLeft)
Me.Controls.Add(Me.btnTab)
Me.Controls.Add(Me.btnTilde)
Me.Controls.Add(Me.btnPlus)
Me.Controls.Add(Me.btnHyphen)
Me.Controls.Add(Me.btn0)
Me.Controls.Add(Me.btn9)
Me.Controls.Add(Me.btn8)
Me.Controls.Add(Me.btn7)
Me.Controls.Add(Me.btn6)
Me.Controls.Add(Me.btn5)
Me.Controls.Add(Me.btn4)
Me.Controls.Add(Me.btn3)
Me.Controls.Add(Me.btn2)
Me.Controls.Add(Me.btn1)
Me.Controls.Add(Me.btnF12)
Me.Controls.Add(Me.btnF11)
Me.Controls.Add(Me.btnF10)
Me.Controls.Add(Me.btnF9)
Me.Controls.Add(Me.btnF8)
Me.Controls.Add(Me.btnF7)
Me.Controls.Add(Me.btnF6)
Me.Controls.Add(Me.btnF5)
Me.Controls.Add(Me.btnF4)
Me.Controls.Add(Me.btnF3)
Me.Controls.Add(Me.btnF2)
Me.Controls.Add(Me.btnF1)
Me.Controls.Add(Me.txtOutput)
Me.Controls.Add(Me.lblPrompt)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "FrmTypingApplication"
Me.Text = "Typing Application"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub txtOutput_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles txtOutput.KeyDown
Select Case e.KeyData
Case Keys.Back
ChangeColor(btnBackspace)
Case Keys.Enter
ChangeColor(btnEnter)
Case Keys.Tab
ChangeColor(btnTab)
Case Keys.Space
ChangeColor(btnSpace)
Case Keys.D0
ChangeColor(btn0)
Case Keys.D1
ChangeColor(btn1)
Case Keys.D2
ChangeColor(btn2)
Case Keys.D3
ChangeColor(btn3)
Case Keys.D4
ChangeColor(btn4)
Case Keys.D5
ChangeColor(btn5)
Case Keys.D6
ChangeColor(btn6)
Case Keys.D7
ChangeColor(btn7)
Case Keys.D8
ChangeColor(btn8)
Case Keys.D9
ChangeColor(btn9)
Case Keys.F1
ChangeColor(btnF1)
Case Keys.F2
ChangeColor(btnF2)
Case Keys.F3
ChangeColor(btnF3)
Case Keys.F4
ChangeColor(btnF4)
Case Keys.F5
ChangeColor(btnF5)
Case Keys.F6
ChangeColor(btnF6)
Case Keys.F7
ChangeColor(btnF7)
Case Keys.F8
ChangeColor(btnF8)
Case Keys.F9
ChangeColor(btnF9)
Case Keys.F10
ChangeColor(btnF10)
Case Keys.F11
ChangeColor(btnF11)
Case Keys.F12
ChangeColor(btnF12)
Case Keys.OemOpenBrackets
ChangeColor(btnLeftBrace)
Case Keys.OemCloseBrackets
ChangeColor(btnRightBrace)
Case Keys.Oemplus
ChangeColor(btnPlus)
Case Keys.OemMinus
ChangeColor(btnHyphen)
Case Keys.Oemtilde
ChangeColor(btnTilde)
Case Keys.OemPipe
ChangeColor(btnSlash)
Case Keys.OemSemicolon
ChangeColor(btnColon)
Case Keys.OemQuotes
ChangeColor(btnQuote)
Case Keys.OemPeriod
ChangeColor(btnPeriod)
Case Keys.Oemcomma
ChangeColor(btnComma)
Case Keys.OemQuestion
ChangeColor(btnQuestion)
Case Keys.CapsLock
ChangeColor(btnCaps)
Case Keys.Down
ChangeColor(btnDown)
Case Keys.Up
ChangeColor(btnUp)
Case Keys.Left
ChangeColor(btnLeft)
Case Keys.Right
ChangeColor(btnRight)
' if a modifier key was pressed
Case CType(65552, Keys) ' Shift key
ChangeColor(btnShiftLeft)
Case CType(131089, Keys) ' Control key
ChangeColor(btnCtrlLeft)
Case CType(262162, Keys) ' Alt key
ChangeColor(btnAltLeft)
End Select
txtOutput.Text &= e.KeyData
End Sub
Private Sub txtOutput_KeyPress(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txtOutput.KeyPress
txtOutput.Text &= e.KeyChar
Select Case Char.ToUpper(e.KeyChar)
Case Convert.ToChar(Keys.A) ' a key
ChangeColor(btnA)
Case Convert.ToChar(Keys.B) ' b key
ChangeColor(btnB)
Case Convert.ToChar(Keys.C) ' c key
ChangeColor(btnC)
Case Convert.ToChar(Keys.D) ' d key
ChangeColor(btnD)
Case Convert.ToChar(Keys.E) ' e key
ChangeColor(btnE)
Case Convert.ToChar(Keys.F) ' f key
ChangeColor(btnF)
Case Convert.ToChar(Keys.G) ' g key
ChangeColor(btnG)
Case Convert.ToChar(Keys.H) ' h key
ChangeColor(btnH)
Case Convert.ToChar(Keys.I) ' i key
ChangeColor(btnI)
Case Convert.ToChar(Keys.J) ' j key
ChangeColor(btnJ)
Case Convert.ToChar(Keys.K) ' k key
ChangeColor(btnK)
Case Convert.ToChar(Keys.L) ' l key
ChangeColor(btnL)
Case Convert.ToChar(Keys.M) ' m key
ChangeColor(btnM)
Case Convert.ToChar(Keys.N) ' n key
ChangeColor(btnN)
Case Convert.ToChar(Keys.O) ' o key
ChangeColor(btnO)
Case Convert.ToChar(Keys.P) ' p key
ChangeColor(btnP)
Case Convert.ToChar(Keys.Q) ' q key
ChangeColor(btnQ)
Case Convert.ToChar(Keys.R) ' r key
ChangeColor(btnR)
Case Convert.ToChar(Keys.S) ' s key
ChangeColor(btnS)
Case Convert.ToChar(Keys.T) ' t key
ChangeColor(btnT)
Case Convert.ToChar(Keys.U) ' u key
ChangeColor(btnU)
Case Convert.ToChar(Keys.V) ' v key
ChangeColor(btnV)
Case Convert.ToChar(Keys.W) ' w key
ChangeColor(btnW)
Case Convert.ToChar(Keys.X) ' x key
ChangeColor(btnX)
Case Convert.ToChar(Keys.Y) ' y key
ChangeColor(btnY)
Case Convert.ToChar(Keys.Z) ' z key
ChangeColor(btnZ)
End Select
End Sub
Private Sub txtOutput_KeyUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) _
Handles txtOutput.KeyUp
ResetColor()
End Sub ' txtOutput_KeyUp
Private Sub ChangeColor(ByVal btnButton As Button)
ResetColor()
btnButton.BackColor = Color.Red
m_btnLastButton = btnButton
End Sub ' ChangeColor
Private Sub ResetColor()
If IsNothing(m_btnLastButton) = False Then
m_btnLastButton.BackColor = _
m_btnLastButton.DefaultBackColor
End If
End Sub
End Class
|
