Method and medium for computer readable keyboard display incapable of user termination

[0002] 1. Field of the Invention

[0003] The present invention relates generally to a method and medium for inputting data, and more particularly, to a keyboard of constant size and shape present on the screen of a touch-screen style computer whenever user input may be desired. The keyboard display may be used by any number of computer software programs, including any known operating system in which a touch-sensitive computer display may be incorporated. Additionally, the present invention may be used in conjunction with any individual computer, network and/or Internet based system.

[0004] 2. Problem in the Art

[0005] Computers with touch-screen displays, allowing a user to simply press on a desired location to obtain a desired input, have been around for some time. For example, a pen-based computer, such as the Fujitsu Model Point 1600, allows a user to press on the screen using the attached pen or other styli, and thereby provide user input. The use of such a pen-based computer allows a user to enter all necessary data without the need for an external keyboard, mouse or other input device. The use of an on-screen keyboard in such a computer allows a user to input data without the need for additional handwriting recognition software. Handwriting recognition software, while constantly improving, is often inaccurate and cumbersome. Further, such handwriting recognition software is often processor intensive.

[0006] Currently, on-screen keyboards allow a user to maximize, minimize, or simply remove the keyboard on the display. Further, the shape and size of the keyboard may be altered. Often, such alterations or terminations are accidental and returning a keyboard to a useable size and shape wastes valuable time. In a medical setting, for example, it is highly undesirable to have a care provider attempting to recover from an accidental keyboard alteration when the care provider should be attending to and recording information on patients. It is therefore desirable to provide an on-screen keyboard which is incapable of alteration or termination by a user.

[0007] More and more applications are being developed for pen-based or touch-screen based computers. These applications will typically require a user to input data at a specific location on the screen. An on-screen keyboard may be necessary to provide the desired input. However, current on-screen keyboards may be moved by the user and therefore placed in undesirable locations which may block necessary text input fields or instructions. Further, current on-screen keyboard include a task bar having minimizing and maximizing buttons which allow a user to enlarge or reduce the window in which the keyboard appears. Often, such keyboards also include a close button which allows the user to terminate the keyboard. Upon pressing these buttons, many computer novices have difficulty launching another instance of the keyboard or recovering the keyboard to a usable state. It is therefore desirable to have an on-screen keyboard which is capable of permanent placement on a computer display.

[0008] Computer programs may require input only randomly. Many ask for user input and then present the results. As it would clearly hamper the presentation of results, data or other information to have an on-screen keyboard present at all times, it is desirable to provide an on-screen keyboard which may be selectively called up as a subroutine or subprogram by a variety of programming.

[0009] There is therefore a need to have an on-screen keyboard which solves these and other problems in the art.

[0010] A general feature of the present invention is the provision of an input area which overcomes the problems found in the prior art.

[0011] A further feature of the present invention is the provision of an input area which may be used in conjunction with touch-sensitive displays.

[0012] Another feature of the present invention is the provision of an input area which is immutable.

[0013] A further feature of the present invention is the provision of an input area which may not be moved.

[0014] A still further feature of the present invention is the provision of an input area which allows a user to input data without the need for handwriting recognition software.

[0015] An additional feature of the present invention is the provision of an input area which may not be maximized.

[0016] Another feature of the present invention is the provision of an input area which may not be minimized.

[0017] A still further feature of the present invention is the provision of an input area which may not be removed by the user.

[0018] A further feature of the present inventions the provision of an input area which contains a keyboard.

[0019] Another feature of the present invention i the provision of an input area which may be selectively used by a computer program.

[0020] A still further feature of the present invention is the provision of an input area which provides an easy to use and reliable method of inputting information into a computer system regardless of the level of computer skill possessed by the user.

[0021] These, as well as other features and advantages of the present invention will become apparent from the following specification and claims.

[0022] The present invention generally comprises an immutable keyboard display. In a preferred embodiment, the present invention includes a software application that provides a keyboard display which may not be minimized, maximized, closed, or deleted. Further, the keyboard display allows a user to input information as desired via a touch-screen based or pen based computer.

[0023] FIG. 1 is a pictorial representation of a display of a pen-based computer incorporating the keyboard display of the present invention.

[0024] FIG. 2 is a close-up view of the keyboard display of the present invention.

[0025] The present invention will be described as it applies to its preferred embodiment. It is not intended that the present invention be limited to the described embodiment. It is intended that the invention cover all modifications and alternatives which may be included within the spirit and scope of the invention.

[0026] As shown in FIG. 1, a pen-based computer 10, such as the Fujitsu Model Point 1600, includes a touch-sensitive display 12. On the display 12 is shown the user interface for a software application 14 which may be running from or accessed by the computer 10. It is to be understood that the computer 10 could be a stand-alone computer or a part of any network or Internet based system. However, the computer 10 preferably provides a 32 bit environment. Computer 10 may access any type of software application through any number of known drives or via a network or web server. Once accessed, the user will see the application as it appears on the display 12 of the computer 10. The application may ask for user input at various locations through the use of text boxes 16 or other fields. The user may provide the desired input by holding the pen 18 or any other known input device which may include the user's finger, and pressing on the display 12 of the computer 10 so as to strike a desired key 22 of the keyboard 20.

[0027] The keyboard 20 is preferably an image map or active map incorporated at a set location on the display 12. The keyboard 20 may not be moved, maximized, or minimized. Therefore, the keyboard 20 provides the user with a constant input area to which the user may become accustomed and becomes an integral component.

[0028] The keyboard 20, as shown in FIG. 2, contains a plurality of keys 22. The keys 22 may include all those currently found on any standard typewriter or computer keyboard, or may be application-specific. For instance, if the software in which user input is desired is primarily financial software, the keyboard 20 may include only numbers. Further, if the software requires the user to input names or words, the keyboard 20 may include one key 22 for every letter of the alphabet and any necessary punctuation or function keys. Further, the keys 22 may be programmed to represent any symbol or accentuated letter to allow the keyboard to be used in applications in which input may be required in various languages.

[0029] The keyboard 20 is preferably the result of a software application written in Visual Basic or C++, though various software programming languages may be used. The keyboard has all task bars removed and may not be minimized, maximized, deleted, closed or resized and is therefore immutable. Preferably, the keyboard application is a subroutine or subprogram which is made available for use by external software applications. The keyboard application is preferably part of the operating system running on the computer 10. Incorporating the keyboard application into the computer 10 allows the keyboard application to be available to any external software application capable of running on the computer 10. The keyboard application may include a dynamic link library (dll) application. The dll application allows the external software to selectively use the keyboard and either have the keyboard in or out. This allows the software to use the entirety of the screen when necessary for displaying information or results.

[0030] An example of the keyboard application programming as it would appear in Visual Basic is:

[0031] Option Explicit

[0032] Public Sub Shift_Down( )

[0033] cmdLeftShift.Caption=“LowerCase”

[0034] cmdRightShift.Caption=“LowerCase”

[0035] cmdLeftShift.Tag=“OFF”

[0036] cmdRightShift.Tag=“OFF”

[0037] Caps_OFF

[0038] Command1(26).Caption=“0”

[0039] Command1(27).Caption=“1”

[0040] Command1(28).Caption=“2”

[0041] Command1(29).Caption=“3”

[0042] Command1(30).Caption=“4”

[0043] Command1(31).Caption=“5”

[0044] Command1(32).Caption=“6”

[0045] Command1(33).Visible=False

[0046] Command1(44).Visible=True

[0047] Command1(34).Caption=“8”

[0048] Command1(35).Caption=“9”

[0049] Command1(36).Caption=“,”

[0050] Command1(37).Caption=“.”

[0051] Command1(38).Caption=“/”

[0052] Command1(39).Caption=“;”

[0053] Command1(40).Caption=“'”

[0054] Command1(41).Caption=“[”

[0055] Command1(42).Caption=“]”

[0056] Command1(43).Caption=“\”

[0057] Command1(48).Caption=“F1”

[0058] Command1(49).Caption=“F2”

[0059] Command1(50).Caption=“F3”

[0060] Command1(51).Caption=“F4”

[0061] Command1(52).Caption=“F5”

[0062] Command1(53).Caption=“F6”

[0063] Command1(54).Caption=“F7”

[0064] Command1(55).Caption=“F8”

[0065] Command1(56).Caption=“F9”

[0066] Command1(57).Caption=“F10”

[0067] Command1(58).Caption=“F11”

[0068] Command1(59).Caption=“F12”

[0069] Command1(46).Caption=“−”

[0070] Command1(47).Caption=“=”

[0071] Command1(45).Caption=“{grave over ( )}”

[0072] Command1(0).Caption=“a”

[0073] Command1(1).Tag=“b”

[0074] Command1(2).Tag=“c”

[0075] Command1(3).Tag=“d”

[0076] Command1(4).Tag=“e”

[0077] Command1(5).Tag=“f”

[0078] Command1(6).Tag=“g”

[0079] Command1(7).Tag=“h”

[0080] Command1(8).Tag=“i”

[0081] Command1(9).Tag=“j”

[0082] Command1(10).Tag=“k”

[0083] Command1(11).Tag=“l”

[0084] Command1(12).Tag=“m”

[0085] Command1(13).Tag=“n”

[0086] Command1(14).Tag=“o”

[0087] Command1(15).Tag=“p”

[0088] Command1(16).Tag=“q”

[0089] Command1(17).Tag=“r”

[0090] Command1(18).Tag=“s”

[0091] Command1(19).Tag=“t”

[0092] Command1(20).Tag=“u”

[0093] Command1(21).Tag=“v”

[0094] Command1(22).Tag=“w”

[0095] Command1(23).Tag=“x”

[0096] Command1(24).Tag=“y”

[0097] Command1(25).Tag=“z”

[0098] Command1(26).Tag=“0”

[0099] Command1(27).Tag=“1”

[0100] Command1(28).Tag=“2”

[0101] Command1(29).Tag=“3”

[0102] Command1(30).Tag=“4”

[0103] Command1(31).Tag=“5”

[0104] Command1(32).Tag=“6”

[0105] Command1(44).Tag=“7”

[0106] Command1(34).Tag=“8”

[0107] Command1(35).Tag=“9”

[0108] Command1(36).Tag “,”

[0109] Command1(37).Tag=“.”

[0110] Command1(38).Tag=“/”

[0111] Command1(39).Tag=“;”

[0112] Command1(40).Tag=“′”

[0113] Command1(41).Tag=“[”

[0114] Command1(42).Tag=“]”

[0115] Command1(43).Tag=“\”

[0116] Command1(48).Tag=“{F1}”

[0117] Command1(49).Tag=“{F2}”

[0118] Command1(50).Tag=“{F3}”

[0119] Command1(51).Tag=“{F4}”

[0120] Command1(52).Tag=“{F5 }”

[0121] Command1(53).Tag=“{F6}”

[0122] Command1(54).Tag=“{F7}”

[0123] Command1(55).Tag=“{F8}”

[0124] Command1(56).Tag=“{F9}”

[0125] Command1(57).Tag=“{F10}”

[0126] Command1(54).Tag=“{F11}”

[0127] Command1(58).Tag=“{F12}”

[0128] Command1(46).Tag=“−”

[0129] Command1(47).Tag=“=”

[0130] Command1(45).Tag=“{grave over ( )}”

[0131] cmdTab.Caption=“Tab>”

[0132] End Sub

[0133] Public Sub Shift_Up( )

[0134] cmdLeftShift.Caption=“UpperCase”

[0135] cmdRightShift.Caption=“UpperCase”

[0136] cmdLeftShift.Tag=“ON”

[0137] cmdRightShift.Tag=“ON”

[0138] Caps_On

[0139] Command1(26).Caption=“)”

[0140] Command1(27).Caption=“!”

[0141] Command1(28).Caption=“@”

[0142] Command1(29).Caption=“#”

[0143] Command1(30).Caption=“$”

[0144] Command1(31).Caption=“%”

[0145] Command1(32).Caption=“{circumflex over ( )}”

[0146] Command1(33).Visible=True

[0147] Command1(44).Visible=False

[0148] Command1(34).Caption=“*”

[0149] Command1(35).Caption=“(”

[0150] Command1(36).Caption=“<”

[0151] Command1(37).Caption=“>”

[0152] Command1(38).Caption=“?”

[0153] Command1(39).Caption=“:”

[0154] Command1(40).Caption=“″″”

[0155] Command1(41).Caption=“{”

[0156] Command1(42).Caption=“}”

[0157] Command1(43).Caption=“|”

[0158] Command1(48).Caption=“F13”

[0159] Command1(49).Caption=“F14”

[0160] Command1(50).Caption=“F15”

[0161] Command1(51).Caption=“F16”

[0162] Command1(52).Caption=“F17”

[0163] Command1(53).Caption=“F18”

[0164] Command1(54).Caption=“F19”

[0165] Command1(55).Caption=“F20”

[0166] Command1(56).Caption=“F21”

[0167] Command1(57).Caption=“F22”

[0168] Command1(58).Caption=“F23”

[0169] Command1(59).Caption=“F24”

[0170] Command1(46).Caption=“_”

[0171] Command1(47).Caption=“+”

[0172] Command1(45).Caption=“˜”

[0173] Command1(0).Tag=“+A”

[0174] Command1(1).Tag=“B”

[0175] Command1(2).Tag=“C”

[0176] Command1(3).Tag=“D”

[0177] Command1(4).Tag=“E”

[0178] Command1(5).Tag=“F”

[0179] Command1(6).Tag=“G”

[0180] Command1(7).Tag=“H”

[0181] Command1(8).Tag=“I”

[0182] Command1(9).Tag=“J”

[0183] Command1(10).Tag=“K”

[0184] Command1(11).Tag=“L”

[0185] Command1(12).Tag=“M”

[0186] Command1(13).Tag=“N”

[0187] Command1(14).Tag=“O”

[0188] Command1(15).Tag=“P”

[0189] Command1(16).Tag=“Q”

[0190] Command1(17).Tag=“R”

[0191] Command1(18).Tag=“S”

[0192] Command1(19).Tag=“T”

[0193] Command1(20).Tag=“U”

[0194] Command1(21).Tag=“V”

[0195] Command1(22).Tag=“W”

[0196] Command1(23).Tag=“X”

[0197] Command1(24).Tag=“Y”

[0198] Command1(25).Tag=“Z”

[0199] Command1(26).Tag=“{)}”

[0200] Command1(27).Tag=“!”

[0201] Command1(28).Tag=“@”

[0202] Command1(29).Tag=“#”

[0203] Command1(30).Tag=“$”

[0204] Command1(31).Tag=“{%}”

[0205] Command1(32).Tag=“{{circumflex over ( )}}”

[0206] Command1(44).Tag=“7”

[0207] Command1(34).Tag=“*”

[0208] Command1(35).Tag=“{(}”

[0209] Command1(36).Tag=“<”

[0210] Command1(37).Tag=“>”

[0211] Command1(38).Tag=“!”

[0212] Command1(39).Tag=“:”

[0213] Command1(40).Tag=“″″”

[0214] Command1(41).Tag=“{{}”

[0215] Command1(42).Tag=“{}}”

[0216] Command1(43).Tag=“|”

[0217] Command1(48).Tag=“{F13}”

[0218] Command1(49).Tag=“{F14}”

[0219] Command1(50).Tag=“{F15}”

[0220] Command1(51).Tag=“{F16}”

[0221] Command1(52).Tag=“(F17)”

[0222] Command1(53).Tag=“{F18}”

[0223] Command1(54).Tag=“{F19}”

[0224] Command1(55).Tag=“{F20}”

[0225] Command1(56).Tag=“{F21}”

[0226] Command1(57).Tag=“{F22}”

[0227] Command1(58).Tag=“{F23}”

[0228] Command1(59).Tag=“{F24}”

[0229] Command1(46).Tag=“_”

[0230] Command1(47).Tag=“{+}”

[0231] Command1(45).Tag=“{˜}”

[0232] cmdTab.Caption=“Tab>”

[0233] End Sub

[0234] Public Sub Caps_On( )

[0235] Command1(0).Caption=“A”

[0236] Command1(1).Caption=“B”

[0237] Command1(2).Caption=“C”

[0238] Command1(3).Caption=“D”

[0239] Command1(4).Caption=“E”

[0240] Command1(5).Caption=“F”

[0241] Command1(6).Caption=“G”

[0242] Command1(7).Caption=“H”

[0243] Command1(8).Caption=“I”

[0244] Command1(9).Caption=“J”

[0245] Command1(10).Caption=“K”

[0246] Command1(11).Caption=“L”

[0247] Command1(12).Caption=“M”

[0248] Command1(13).Caption=“N”

[0249] Command1(14).Caption=“O”

[0250] Command1(15).Caption=“P”

[0251] Command1(16).Caption=“Q”

[0252] Command1(17).Caption=“R”

[0253] Command1(18).Caption=“S”

[0254] Command1(19).Caption=“T”

[0255] Command1(20).Caption=“U”

[0256] Command1(21).Caption=“V”

[0257] Command1(22).Caption=“W”

[0258] Command1(23).Caption=“X”

[0259] Command1(24).Caption=“Y”

[0260] Command1(25).Caption=“Z”

[0261] End Sub

[0262] Public Sub Caps_OFF( )

[0263] Command1(0).Caption=“a”

[0264] Command1(1).Caption=“b”

[0265] Command1(2).Caption=“c”

[0266] Command1(3).Caption=“d”

[0267] Command1(4).Caption=“e”

[0268] Command1(5).Caption=“f”

[0269] Command1(6).Caption=“g”

[0270] Command1(7).Caption=“h”

[0271] Command1(8).Caption=“i”

[0272] Command1(9).Caption=“j”

[0273] Command1(10).Caption=“k”

[0274] Command1(11).Caption=“l”

[0275] Command1(12).Caption=“m”

[0276] Command1(13).Caption=“n”

[0277] Command1(14).Caption=“o”

[0278] Command1(15).Caption=“p”

[0279] Command1(16).Caption=“q”

[0280] Command1(17).Caption=“r”

[0281] Command1(18).Caption=“s”

[0282] Command1(19).Caption=“t”

[0283] Command1(20).Caption=“u”

[0284] Command1(21).Caption=“v”

[0285] Command1(22).Caption=“w”

[0286] Command1(23).Caption=“x”

[0287] Command1(24).Caption=“y”

[0288] Command1(25).Caption=“z”

[0289] End Sub

[0290] Public Sub Set_Caps_Lock( )

[0291] If cmdCapsLock.Tag=“OFF” Then

[0292] cmdCapsLock.Caption=“Caps On”

[0293] cmdCapsLock.Tag=“ON”

[0294] Caps_On

[0295] Else

[0296] cmdCapsLock.Caption=“Caps Off”

[0297] cmdCapsLock.Tag=“OFF”

[0298] Caps_OFF

[0299] End If

[0300] strKeys=“”

[0301] strKeys=strKeys & “{CAPSLOCK}”

[0302] SendVKeys (strKeys)

[0303] End Sub

[0304] Public Sub Key_Layoutl( )

[0305] Dim intTemp, intRightBorder As Integer

[0306] Dim lngpcnt As Double

[0307] Dim dblFontSize As Double

[0308] Dim lngFormWidth As Long

[0309] Dim intRow1Top, intRow2Top, intRow3Top, intRow4Top, intRow5Top, intRow6Top, intRow7Top As Integer

[0310] Dim intFontSize, intHeight, intLetterWidth, intFunctionWidth As Integer

[0311] lngFormWidth=frmKeys.Width

[0312] If frmKeys.BorderStyle>0 Then

[0313] lngPcnt=lngFormWidth/7135

[0314] Else

[0315] lngPcnt=lngFormWidth/6975

[0316] End If

[0317] ′lngPcnt=lngFormWidth/6975

[0318] ′pKB.Height=2790*lngPcnt

[0319] ′pKB.Height=(3390*lngPcnt)

[0320] intHeight=330*lngPcnt

[0321] intLetterWidth=350*lngPcnt

[0322] intFunctionWidth=470*lngpcnt

[0323] intTemp=intFunctionWidth/24

[0324] intFunctionWidth=(intTemp+1)*24

[0325] intFontSize=9*lngPcnt

[0326] dblFontSize=8*lngPcnt

[0327] intRow1Top=60*lngPcnt

[0328] intRow2Top=540 lngpcnt

[0329] intRow3Top=960*lngPcnt

[0330] intRow4Top=1380*lngPcnt

[0331] intRow5Top=1860*lngpcnt

[0332] intRow6Top=2340*lngPcnt

[0333] intRow7Top=2820*lngPcnt

[0334] ′Set the form height to porportion with form width

[0335] If frmKeys.BorderStyle>0 Then

[0336] frmKeys.Height=intRow6Top+intHeight+465

[0337] Else

[0338] frmKeys.Height=intRow6Top+intHeight+60

[0339] End If

[0340] ′Row 1

[0341] ′Escape Key

[0342] cmdEscape.Font.Size=dblFontSize

[0343] cmdEscape.Top=intRow1Top

[0344] cmdEscape.Left=60*lngpcnt

[0345] cmdEscape.Width=670*lngPcnt

[0346] cmdEscape.Height=intHeight

[0347] ′F1 Key

[0348] Command1(48).Font.Size=intFontSize

[0349] Command1(48).Top=intRow1Top

[0350] Command1(48).Left=805*lngpcnt

[0351] Command1(48).Width=intFunctionWidth

[0352] Command1(48).Height=intHeight

[0353] ′F2 Key

[0354] Command1(49).Font.Size=intFontSize

[0355] Command1(49).Top=intRow1Top

[0356] Command1(49).Left=Command1(48).Left+Command1(48).Width ‘1285*lngpcnt

[0357] Command1(49).Width=intFunctionWidth

[0358] Command1(49).Height=intHeight

[0359] ′F3 Key

[0360] Command1(50).Font.Size=intFontSize

[0361] Command1(50).Top=intRow1Top

[0362] Command1(50).Left=Command1(49).Left+Command1(49).Width ‘1765*lngPcnt

[0363] Command1(50).Width=intFunctionWidth

[0364] Command1(50).Height=intHeight

[0365] ′F4 Key

[0366] Command1(51).Font.Size=intFontSize

[0367] Command1(51).Top=intRow1Top

[0368] Command1(51).Left=Command1(50).Left+Command1(50).Width ‘2245*lngpcnt

[0369] Command1(51).Width=intFunctionWidth

[0370] Command1(51).Height=intHeight

[0371] ′F5 Key

[0372] Command1(52).Font.Size=intFontSize

[0373] Command1(52).Top=intRow1Top

[0374] Command1(52).Left=2905*lngpcnt

[0375] Command1(52).Width=intFunctionWidth

[0376] Command1(52).Height=intHeight

[0377] ′F6 Key

[0378] Command1(53).Font.Size=intFontSize

[0379] Command1(53).Top=intRow1Top

[0380] Command1(53).Left=Command1(52).Left+Command1(52).Width ‘3385*lngPcnt

[0381] Command1(53).Width=intFunctionWidth

[0382] Command1(53).Height=intHeight

[0383] ′F7 Key

[0384] Command1(54).Font.Size=intFontSize

[0385] Command1(54).Top=intRow1Top

[0386] Command1(54).Left=Command1(53).Left+

[0387] Command1(53).Width ‘3865*lngPcnt

[0388] Command1(54).Width=intFunctionWidth

[0389] Command1(54).Height=intHeight

[0390] ′F8 Key

[0391] Command1(55).Font.Size=intFontSize

[0392] Command1(55).Top=intRow1Top

[0393] Command1(55).Left=Command1(54).Left+Command1(54).Width ‘4345*lngPcnt

[0394] Command1(55).Width=intFunctionWidth

[0395] Command1(55).Height=intHeight

[0396] ′F9 Key

[0397] Command1(56).Font.Size=intFontSize

[0398] Command1(56).Top=intRow1Top

[0399] Command1(56).Left=5005*lngPcnt

[0400] Command1(56).Width=intFunctionWidth

[0401] Command1(56).Height=intHeight

[0402] ′F10 Key

[0403] Command1(57).Font.Size=dblFontSize

[0404] Command1(57).Top=intRow1Top

[0405] Command1(57).Left=Command1(56).Left+Command1(56).Width ‘5485*lngPcnt

[0406] Command1(57).Width=intFunctionWidth

[0407] Command1(57).Height=intHeight

[0408] ′F11 Key

[0409] Command1(58).Font.Size=dblFontSize

[0410] Command1(58).Top intRow1Top

[0411] Command1(58).Left=Command1(57).Left+Command1(57).Width ‘5965*lngpcnt

[0412] Command1(58).Width=intFunctionWidth

[0413] Command1(58).Height=intHeight

[0414] ′F12 Key

[0415] Command1(59).Font.Size=dblFontSize

[0416] Command1(59).Top=intRow1Top

[0417] Command1(59).Left=Command1(58).Left+Command1(58).Width ‘6445*lngpcnt

[0418] Command1(59).Width=intFunctionWidth

[0419] Command1(59).Height=intHeight

[0420] intRightBorder=Command1(59).Left+Command1(59).Width

[0421] ′Row 2

[0422] ″Key

[0423] Command1(45).Font.Size=intFontSize

[0424] Command1(45).Top=intRow2Top

[0425] Command1(45).Left=60*lngpcnt

[0426] Command1(45).Width=intLetterWidth

[0427] Command1(45).Height=intHeight

[0428] ′1 Key

[0429] Command1(27).Font.Size=intFontSize

[0430] Command1(27).Top=intRow2Top Command1(27).Left=480*lngPcnt

[0431] Command1(27).Width=intLetterWidth

[0432] Command1(27).Height=intHeight

[0433] ′2 Key

[0434] Command1(28).Font.Size=intFontSize

[0435] Command1(28).Top=intRow2Top

[0436] Command1(28).Left=900*lngPcnt

[0437] Command1(28).Width=intLetterWidth

[0438] Command1(28).Height=intHeight

[0439] ′3 Key

[0440] Command1(29).Font.Size=intFontSize

[0441] Command1(29).Top=intRow2Top

[0442] Command1(29).Left=1320*lngPcnt

[0443] Command1(29).Width=intLetterWidth

[0444] Command1(29).Height=intHeight

[0445] ′4 Key

[0446] Command1(30).Font.Size=intFontSize

[0447] Command1(30).Top=intRow2Top

[0448] Command1(30).Left=1740*lngpcnt

[0449] Command1(30).Width=intLetterWidth

[0450] Command1(30).Height=intHeight

[0451] ′5 Key

[0452] Command1(31).Font.Size=intFontSize

[0453] Command1(31).Top=intRow2Top

[0454] Command1(31).Left=2160*lngPcnt

[0455] Command1(31).Width=intLetterWidth

[0456] Command1(31).Height=intHeight

[0457] ′6 Key

[0458] Command1(32).Font.Size=intFontSize

[0459] Command1(32).Top=intRow2Top Command1(32).Left=2580*lngPcnt

[0460] Command1(32).Width=intLetterWidth

[0461] Command1(32).Height=intHeight

[0462] ′& Key

[0463] Command1(33).Font.Size=intFontSize

[0464] Command1(33).Top=intRow2Top

[0465] Command1(33).Left=3000*lngPcnt

[0466] Command1(33).Width=intLetterWidth

[0467] Command1(33).Height=intHeight

[0468] ′7 Key

[0469] Command1(44).Font.Size=intFontSize

[0470] Command1(44).Top=intRow2Top

[0471] Command1(44).Left=3000*lngPcnt

[0472] Command1(44).Width=intLetterWidth

[0473] Command1(44).Height=intHeight

[0474] ′8 Key

[0475] Command1(34).Font.Size=intFontSize

[0476] Command1(34).Top=intRow2Top

[0477] Command1(34).Left=3420*lngpcnt

[0478] Command1(34).Width=intLetterWidth

[0479] Command1(34).Height=intHeight

[0480] ′9 Key

[0481] Command1(35).Font.Size=intFontSize

[0482] Command1(35).Top=intRow2Top

[0483] Command1(35).Left=3840*lngPcnt

[0484] Command1(35).Width=intLetterWidth

[0485] Command1(35).Height=intHeight

[0486] 0 Key

[0487] Command1(26).Font.Size=intFontSize

[0488] Command1(26).Top=intRow2Top

[0489] Command1(26).Left=4260*lngpcnt

[0490] Command1(26).Width=intLetterWidth

[0491] Command1(26).Height=intHeight

[0492] ′- Key

[0493] Command1(46).Font.Size=intFontSize

[0494] Command1(46).Top=intRow2Top

[0495] Command1(46).Left=4680*lngpcnt

[0496] Command1(46).Width=intLetterWidth

[0497] Command1(46).Height=intHeight

[0498] ′= Key

[0499] Command1(47).Font.Size=intFontSize

[0500] Command1(47).Top=intRow2Top

[0501] Command1(47).Left=5100*lngPcnt

[0502] Command1(47).Width=intLetterWidth

[0503] Command1(47).Height=intHeight

[0504] ′Backspace Key

[0505] cmdBackspace.Font.Size=dblFontSize

[0506] cmdBackspace.Top=intRow2Top

[0507] cmdBackspace.Left=5520*lngPcnt

[0508] cmdBackspace.Width=intRightBorder—cmdBackspace.Left

[0509] cmdBackspace.Height=intHeight

[0510] ′Row 3

[0511] ′TAB Key

[0512] cmdTabFont.Size=dblFontSize

[0513] cmdTabTop=intRow3Top

[0514] cmdTabLeft=60*lngpcnt

[0515] cmdTabWidth=650*lngpcnt

[0516] cmdTabHeight=intHeight

[0517] ′Q Key

[0518] Command1(16).Font.Size=intFontSize

[0519] Command1(16).Top=intRow3Top

[0520] Command1(16).Left=780*lngpcnt

[0521] Command1(16).Width=intLetterWidth

[0522] Command1(16).Height=intHeight

[0523] ′W Key

[0524] Command1(22).Font.Size=intFontSize

[0525] Command1(22).Top=intRow3Top

[0526] Command1(22).Left=1200*lngPcnt

[0527] Command1(22).Width=intLetterWidth

[0528] Command1(22).Height=intHeight

[0529] ′E Key

[0530] Command1(4).Font.Size=intFontSize

[0531] Command1(4).Top=intRow3Top

[0532] Command1(4).Left=1620*lngpcnt

[0533] Command1(4).Width=intLetterWidth

[0534] Command1(4).Height=intHeight

[0535] ′R Key

[0536] Command1(17).Font.Size=intFontSize

[0537] Command1(17).Top=intRow3Top

[0538] Command1(17).Left=2040*lngpcnt

[0539] Command1(17).Width=intLetterWidth

[0540] Command1(17).Height=intHeight

[0541] ′T Key

[0542] Command1(19).Font.Size=intFontSize

[0543] Command1(19).Top=intRow3Top

[0544] Command1(19).Left=2460*lngPcnt

[0545] Command1(19).Width=intLetterWidth

[0546] Command1(19).Height=intHeight

[0547] ′Y Key

[0548] Command1(24).Font.Size=intFontSize

[0549] Command1(24).Top=intRow3Top

[0550] Command1(24).Left=2880*lngpcnt

[0551] Command1(24).Width=intLetterWidth

[0552] Command1(24).Height=intHeight

[0553] ′U Key

[0554] Command1(20).Font.Size=intFontSize

[0555] Command1(20).Top=intRow3Top

[0556] Command1(20).Left=3300*lngPcnt

[0557] Command1(20).Width=intLetterWidth

[0558] Command1(20).Height=intHeight

[0559] ′I Key

[0560] Command1(8).Font.Size=intFontSize

[0561] Command1(8).Top=intRow3Top

[0562] Command1(8).Left=3720*lngpcnt

[0563] Command1(8).Width=intLetterWidth

[0564] Command1(8).Height=intHeight

[0565] ′O Key

[0566] Command1(14).Font.Size=intFontSize

[0567] Command1(14).Top=intRow3Top

[0568] Command1(14).Left=4140*lngpcnt

[0569] Command1(14).Width=intLetterWidth

[0570] Command1(14).Height=intHeight

[0571] ′P Key

[0572] Command1(15).Font.Size=intFontSize

[0573] Command1(15).Top=intRow3Top

[0574] Command1(15).Left=4560*lngPcnt

[0575] Command1(15).Width=intLetterWidth

[0576] Command1(15).Height=intHeight

[0577] ′[ Key

[0578] Command1(41).Font.Size=intFontSize

[0579] Command1(41).Top=intRow3Top

[0580] Command1(41).Left=4980*lngPcnt

[0581] Command1(41).Width=intLetterWidth

[0582] Command1(41).Height=intHeight

[0583] ′] Key

[0584] Command1(42).Font.Size=intFontSize

[0585] Command1(42).Top=intRow3Top

[0586] Command1(42).Left=5400*lngPcnt

[0587] Command1(42).Width=intLetterWidth

[0588] Command1(42).Height=intHeight

[0589] ′\ Key

[0590] Command1(43).Font.Size=intFontSize

[0591] Command1(43).Top=intRow3Top

[0592] Command1(43).Left=5820*lngPcnt

[0593] Command1(43).Width=intLetterWidth

[0594] Command1(43).Height=intHeight

[0595] ′Delete

[0596] cmdDelete.Font.Size=dblFontSize

[0597] cmdDelete.Top=intRow3Top

[0598] cmdDelete.Left=6240*lngpcnt

[0599] cmdDelete.Width=intRightBorder—cmdDelete.Left

[0600] cmdDelete.Height=intHeight

[0601] ′Row 4

[0602] ′Caps Lock Key

[0603] cmdCapsLock.Font.Size=dblFontSize

[0604] cmdCapsLock.Top=intRow4Top

[0605] cmdCapsLock.Left=60*lngPcnt

[0606] cmdCapsLock.Width=1070*lngPcnt

[0607] cmdCapsLock.Height=intHeight

[0608] ′A Key

[0609] Command1(0).Font.Size=intFontSize

[0610] Command1(0).Top=intRow4Top

[0611] Command1(0).Left=1200*lngPcnt

[0612] Command1(0).Width=intLetterWidth

[0613] Command1(0).Height=intHeight

[0614] ′S Key

[0615] Command1(18).Font.Size=intFontSize

[0616] Command1(18).Top=intRow4Top

[0617] Command1(18).Left=1620*lngpcnt

[0618] Command1(18).Width=intLetterWidth

[0619] Command1(18).Height=intHeight

[0620] ′D Key

[0621] Command1(3).Font.Size=intFontSize

[0622] Command1(3).Top=intRow4Top

[0623] Command1(3).Left=2040*lngpcnt

[0624] Command1(3).Width=intLetterWidth

[0625] Command1(3).Height=intHeight

[0626] ′F Key

[0627] Command1(5).Font.Size=intFontSize

[0628] Command1(5).Top=intRow4Top

[0629] Command1(5).Left=2460*lngPcnt

[0630] Command1(5).Width=intLetterWidth

[0631] Command1(5).Height=intHeight

[0632] ′G Key

[0633] Command1(6).Font.Size=intFontSize

[0634] Command1(6).Top=intRow4Top

[0635] Command1(6).Left=2880*lngpcnt

[0636] Command1(6).Width=intLetterWidth

[0637] Command1(6).Height=intHeight

[0638] ′H Key

[0639] Command1(7).Font.Size=intFontSize

[0640] Command1(7).Top=intRow4Top

[0641] Command1(7).Left=3300*lngpcnt

[0642] Command1(7).Width=intLetterWidth

[0643] Command1(7).Height=intHeight

[0644] ′J Key

[0645] Command1(9).Font.Size=intFontSize

[0646] Command1(9).Top=intRow4Top

[0647] Command1(9).Left=3720*lngPcnt

[0648] Command1(9).Width=intLetterWidth

[0649] Command1(9).Height=intHeight

[0650] ′K Key

[0651] Command1(10).Font.Size=intFontSize

[0652] Command1(10).Top=intRow4Top

[0653] Command1(10).Left=4140*lngPcnt

[0654] Command1(10).Width=intLetterWidth

[0655] Command1(10).Height=intHeight

[0656] ′L Key

[0657] Command1(11).Font.Size=intFontSize

[0658] Command1(11).Top=intRow4Top

[0659] Command1(11).Left=4560*lngPcnt

[0660] Command1(11).Width=intLetterWidth

[0661] Command1(11).Height=intHeight

[0662] ′; Key

[0663] Command1(39).Font.Size=intFontSize

[0664] Command1(39).Top=intRow4Top

[0665] Command1(39).Left=4980*lngpcnt

[0666] Command1(39).Width=intLetterWidth

[0667] Command1(39).Height=intHeight

[0668] ′“Key

[0669] Command1(40).Font.Size=intFontSize

[0670] Command1(40).Top=intRow4Top

[0671] Command1(40).Left=5400*lngPcnt

[0672] Command1(40).Width=intLetterWidth

[0673] Command1(40).Height=intHeight

[0674] ′Enter

[0675] cmdEnter.Font.Size dblFontSize

[0676] cmdEnter.Top=intRow4Top

[0677] cmdEnter.Left=5820*lngpcnt

[0678] cmdEnter.Width=intRightBorder—cmdEnter.Left

[0679] cmdEnter.Height=intHeight

[0680] ′Row 5

[0681] ′Left Shift Key cmdLeftShift.Font.Size=dblFontSize cmdLeftShift.Top=intRow5Top cmdLeftShift.Left=60*lngPcnt cmdLeftShift.Width=1293*lngPcnt cmdLeftShift.Height=intHeight

[0682] ′Z Key

[0683] Command1(25).Font.Size=intFontSize

[0684] Command1(25).Top=intRow5Top

[0685] Command1(25).Left=1423*lngPcnt

[0686] Command1(25).Width=intLetterWidth

[0687] Command1(25).Height=intHeight

[0688] ′X Key

[0689] Command1(23).Font.Size=intFontSize

[0690] Command1(23).Top=intRow5Top

[0691] Command1(23).Left=1843*lngPcnt

[0692] Command1(23).Width=intLetterWidth

[0693] Command1(23).Height=intHeight

[0694] ′C Key

[0695] Command1(2).Font.Size=intFontSize

[0696] Command1(2).Top=intRow5Top

[0697] Command1(2).Left=2263*lngPcnt

[0698] Command1(2).Width=intLetterWidth

[0699] Command1(2).Height=intHeight

[0700] ′V Key

[0701] Command1(21).Font.Size=intFontSize

[0702] Command1(21).Top=intRow5Top

[0703] Command1(21).Left=2683*lngPcnt

[0704] Command1(21).Width=intLetterWidth

[0705] Command1(21).Height=intHeight

[0706] ′B Key

[0707] Command1(1).Font.Size=intFontSize

[0708] Command1(1).Top=intRow5Top

[0709] Command1(1).Left=3103*lngPcnt

[0710] Command1(1).Width=intLetterWidth

[0711] Command1(1).Height=intHeight

[0712] ′N Key

[0713] Command1(13).Font.Size=intFontSize

[0714] Command1(13).Top=intRow5Top

[0715] Command1(13).Left=3523*lngPcnt

[0716] Command1(13).Width=intLetterWidth

[0717] Command1(13).Height=intHeight

[0718] ′M Key

[0719] Command1(12).Font.Size=intFontSize

[0720] Command1(12).Top=intRow5Top

[0721] Command1(12).Left=3943*lngPcnt

[0722] Command1(12).Width=intLetterWidth

[0723] Command1(12).Height=intHeight

[0724] ′, Key

[0725] Command1(36).Font.Size=intFontSize

[0726] Command1(36).Top=intRow5Top

[0727] Command1(36).Left=4363*lngPcnt

[0728] Command1(36).Width=intLetterWidth

[0729] Command1(36).Height=intHeight

[0730] ′. Key

[0731] Command1(37).Font.Size=intFontSize

[0732] Command1(37).Top=intRow5Top

[0733] Command1(37).Left=4783*lngPcnt

[0734] Command1(37).Width=intLetterWidth

[0735] Command1(37).Height=intHeight

[0736] ′/ Key

[0737] Command1(38).Font.Size=intFontSize

[0738] Command1(38).Top=intRow5Top

[0739] Command1(38).Left=5203*lngPcnt

[0740] Command1(38).Width=intLetterWidth

[0741] Command1(38).Height=intHeight

[0742] ′Right Shift Key

[0743] cmdRightShift.Font.Size=dblFontSize

[0744] cmdRightShift.Top=intRow5Top

[0745] cmdRightShift.Left=5623*lngpcnt

[0746] cmdRightShift.Width=intRightBorder—cmdRightShift.Left

[0747] cmdRightShift.Height=intHeight

[0748] ′Row 6

[0749] ′Left Ctrl Key

[0750] cmdCntrl.Font.Size=dblFontSize

[0751] cmdCntrl.Top=intRow6Top

[0752] cmdCntrl.Left=60*lngpcnt

[0753] cmdCntrl.Width=795*lngpcnt

[0754] cmdCntrl.Height=intHeight

[0755] ′Left Alt Key

[0756] cmdAlt.Font.Size=dblFontSize

[0757] cmdAlt.Top=intRow6Top

[0758] cmdAlt.Left=925*lngpcnt

[0759] cmdAlt.Width=735*lngPcnt

[0760] cmdAlt.Height=intHeight

[0761] ′Move Left Key

[0762] cmdMoveLeft.Font.Size=intFontSize

[0763] cmdMoveLeft.Top=intRow6Top

[0764] cmdMoveLeft.Left=1730*lngPcnt

[0765] cmdMoveLeft.Width=465*lngpcnt

[0766] cmdMoveLeft.Height=intHeight

[0767] ′Space Bar Key

[0768] cmdSpaceBar.Font.Size=intFontSize

[0769] cmdSpaceBar.Top=intRow6Top

[0770] cmdSpaceBar.Left=2265*lngPcnt

[0771] cmdSpaceBar.Width=2445*lngPcnt

[0772] cmdSpaceBar.Height=intHeight

[0773] ′Move Right Key

[0774] cmdMoveRight.Font.Size=intFontSize

[0775] cmdMoveRight.Top=intRow6Top

[0776] cmdMoveRight.Left=4780*lngpcnt

[0777] cmdMoveRight.Width=465*lngpcnt

[0778] cmdMoveRight.Height=intHeight

[0779] ′Right Alt Key

[0780] cmdAlt2.Font.Size=dblFontSize

[0781] cmdAlt2.Top=intRow6Top

[0782] cmdAlt2.Left=5315*lngpcnt

[0783] cmdAlt2.Width=735*lngpcnt

[0784] cmdAlt2.Height=intHeight

[0785] ′Right Ctrl Key

[0786] cmdCntrl2.Font.Size=dblFontSize

[0787] cmdCntrl2.Top=intRow6Top

[0788] cmdCntrl2.Left=6120*lngPcnt

[0789] cmdCntrl2.Width intRightBorder—cmdCntrl2.Left

[0790] cmdCntrl2.Height=intHeight

[0791] ′Exit Keyboard

[0792] cmdExitKeyboard.Font.Size=dblFontSize

[0793] cmdExitKeyboard.Top=intRow7Top

[0794] cmdExitKeyboard.Left=60*lngPcnt

[0795] cmdExitKeyboard.Width=6915*lngpcnt

[0796] cmdExitKeyboard.Height=intHeight

[0797] End Sub

[0798] Private Sub cmdAlt_Click( )

[0799] If cmdAlt.Tag=“OFF” Then

[0800] cmdAlt.Tag=“ON”

[0801] cmdAlt.Caption=“Alt On”

[0802] cmdAlt2.Tag=“ON”

[0803] cmdAlt2.Caption=“Alt On”

[0804] Else

[0805] cmdAlt.Tag=“OFF”

[0806] cmdAlt.Caption=“Alt Off”

[0807] cmdAlt2.Tag=“OFF”

[0808] cmdAlt2.Caption=“Alt Off”

[0809] End If

[0810] End Sub

[0811] Private Sub cmdAlt2_Click( )

[0812] cmdAlt_Click

[0813] End Sub

[0814] Private Sub cmdBackspace_Click( )

[0815] strKeys=“{BKSP}”

[0816] SendVKeys (strKeys)

[0817] End Sub

[0818] Private Sub cmdCntrl_Click( )

[0819] If cmdCntrl.Tag=“OFF” Then

[0820] cmdCntrl.Tag=“ON”

[0821] cmdCntrl.Caption=“Ctrl On”

[0822] cmdCntrl2.Tag=“ON”

[0823] cmdCntrl2.Caption=“Ctrl On”

[0824] Else

[0825] cmdCntrl.Tag=“OFF”

[0826] cmdCntrl.Caption=“Ctrl Off”

[0827] cmdCntrl2.Tag=“OFF”

[0828] cmdCntrl2.Caption=“Ctrl Off”

[0829] End If

[0830] End Sub

[0831] Private Sub cmdCntrl2_Click( )

[0832] cmdCntrl_Click

[0833] End Sub

[0834] Private Sub cmdDelete_Click( )

[0835] strKeys=“ ”

[0836] strKeys=strKeys & “{DEL}”

[0837] SendVKeys (strKeys)

[0838] End Sub

[0839] Private SubcmdEnter_Click( )

[0840] strKeys=“”

[0841] strKeys=strKeys & “{ENTER}”

[0842] SendVKeys (strKeys)

[0843] End Sub

[0844] Private SubcmdEscape_Click( )

[0845] strKeys=“{ESC}”

[0846] SendVKeys (strKeys)

[0847] End Sub

[0848] Private SubcmdExitKeyboard_Click( )

[0849] End

[0850] End Sub

[0851] Private Sub cmdLeftShift_Click( )

[0852] If cmdLeftShift.Tag=“OFF” Then

[0853] If cmdCapsLock.Tag=“OFF” Then

[0854] Shift_Up

[0855] Else

[0856] Set_Caps_Lock

[0857] Shift_Up

[0858] End If

[0859] Else

[0860] Shift_Down

[0861] End If

[0862] End Sub

[0863] Private Sub cmdMoveLeft_Click( )

[0864] strKeys=“ ”

[0865] strKeys=strKeys & “{LEFT}”

[0866] SendVKeys (strKeys)

[0867] End Sub

[0868] Private Sub cmdMoveRight_Click( )

[0869] strKeys=“”

[0870] strKeys=strKeys & “{RIGHT}”

[0871] SendVKeys (strKeys)

[0872] End Sub

[0873] Private Sub cmdRightShift_Click( )

[0874] cmdLeftShift_Click

[0875] End Sub

[0876] Private Sub cmdSpaceBar_Click( )

[0877] strKeys=“”

[0878] strKeys=strKeys & “ ”

[0879] SendVKeys (strKeys)

[0880] End Sub

[0881] Private Sub cmdTab_Click( )

[0882] strKeys=“”

[0883] If cmdLeftShift.Tag=“ON” Then

[0884] strKeys=strKeys & “+”

[0885] End If

[0886] strKeys=strKeys & “{TAB}”

[0887] SendVKeys (strKeys)

[0888] End Sub

[0889] Private Sub Form_Activate( )

[0890] Dim dl&

[0891] ′ KeyboardWindow=GetForegroundWindow dl&=SetWindowPos(hwnd, −1, 4905, 7965, 6975, 2475, &H1 Or &H2)

[0892] End Sub

[0893] Private Sub Form_GotFocuso

[0894] If Me.WindowState <>0 Then

[0895] Me.WindowState=0

[0896] ′ Me.Width=7000

[0897] End If

[0898] End Sub

[0899] Private Sub Form_Resize( )

[0900] If Me.WindowState <>0 Then

[0901] Me.WindowState=0

[0902] Me.Width=7000

[0903] End If

[0904] Key_Layout1

[0905] End Sub

[0906] Private Sub cmdCapsLock_Click( )

[0907] ′ Caps Lock Key

[0908] If cmdCapsLock.Tag=“OFF” Then

[0909] cmdCapsLock.Caption=“Caps On”

[0910] cmdCapsLock.Tag=“ON”

[0911] Caps_On

[0912] Else

[0913] cmdCapsLock.Caption=“Caps Off”

[0914] cmdCapsLock.Tag=“OFF”

[0915] Caps_OFF

[0916] End If

[0917] strkeys=“”

[0918] strkeys=strkeys & “{CAPSLOCKII”

[0919] SendVKeys (strKeys)

[0920] End Sub

[0921] Private Sub Command1_Click(Index As Integer)

[0922] strKeys=“”

[0923] If cmdCapsLock.Tag=“ON” Then

[0924] strKeys=strKeys & “{CAPSLOCK}”

[0925] End If

[0926] If cmdLeftShift.Tag=“ON” Then

[0927] strKeys=strKeys & “+”

[0928] End If

[0929] If cmdAlt.Tag=“ON” Then

[0930] strKeys=strKeys & “%”

[0931] End If

[0932] If cmdCntrl.Tag=“ON” Then

[0933] strKeys=strKeys & “{circumflex over ( )}”

[0934] End If

[0935] strKeys=strKeys & Command1(Index).Tag

[0936] SendVKeys (strKeys)

[0937] End Sub

[0938] Private Sub Form_Load( )

[0939] Dim hSysMenu As Long

[0940] Dim nCnt As Long

[0941] ′ First, show the form

[0942] Me.Show

[0943] ′ Get handle to our form's system menu

[0944] ′ (Restore, Maximize, Move, close etc.)

[0945] SysMenu=GetSystemMenu(Me.hwnd, False)

[0946] If hSysMenu Then

[0947] ′=0 Get System menu's menu count

[0948] nCnt=GetMenuItemCount(hSysMenu)

[0949] If nCnt Then

[0950] 'Menu count is based on 0 (0, 1, 2, 3 . . . )

[0951] RemoveMenu hSysMenu, nCnt−1, _—

[0952] MF_BYPOSITION Or MF_REMOVE

[0953] RemoveMenu hSysMenu, nCnt−2, _—

[0954] MF_BYPOSITION Or MF_REMOVE ′ Remove the seperator

[0955] DrawMenuBar Me.hwnd

[0956] ′ Force caption bar's refresh. Disabling X button

[0957] Me.Caption=“GeniSus Keyboard”

[0958] End If

[0959] End If

[0960] Shift_Down

[0961] Hook

[0962] #If CurrentProcOnly=1 Then

[0963] Forml.Show

[0964] #End If

[0965] DeactivateClose

[0966] End Sub

[0967] Private Sub Form_Unload(Cancel As Integer)

[0968] UnHook

[0969] End Sub

[0970] Public Sub DeactivateClose( )

[0971] End Sub

[0972] An example of an accompanying dynamic link library, .dll application, through which external applications may access the keyboard application is:

[0973] // vKeyHook.cpp : Defines the entry point for the DLL application.

[0974] //

[0975] #include <windows.h>

[0976] #include <winuser.h>

[0977] #pragma data_seg(“.SHARDATA”)

[0978] static int hWndActive=0;

[0979] static int hWndSelf=0;

[0980] static HHOOK hHook=0;

[0981] #pragma data_seg( )

[0982] BOOL APIENTRY DllMain( HANDLE hModule,

[0983] DWORD ul_reason_for_call,

[0984] LPVOID lpReserved

[0985] )

[0986] {

[0987] switch (ul_reason_for_call)

[0988] }

[0989] case DLL_PROCESS_ATTACH:

[0990] case DLL_THREAD_ATTACH:

[0991] case DLL_THREAD_DETACH:

[0992] case DLL_PROCESS_DETACH: break;

[0993] }

[0994] return TRUE;

[0995] }

[0996] long CALLBACK CBTProc(

[0997] int nCode, // hook code

[0998] WPARAM wparam, // current-process flag

[0999] LPARAM lParam // message data

[1000] )

[1001] {

[1002] if (nCode==HCBT_ACTIVATE &&

[1003] (int)wParam !=hWndSelf){

[1004] hWndActive=(int)wParam;

[1005] }

[1006] return CallNextHookEx(hHook, nCode, wParam, lparam);

[1007] }

[1008] void_stdcall HookMsg(int hwnd)

[1009] }

[1010] HINSTANCE hModule;

[1011] hModule=GetModuleHandle(“vKeyHook.dll”);

[1012] hHook=SetWindowsHookEx(WH_CBT, CBTProc, hModule, 0);

[1013] hWndSelf=hwnd;

[1014] }

[1015] void_stdcall UnHookMsg( )

[1016] {

[1017] UnhookWindowsHookEx(hHook);

[1018] }

[1019] int_stdcall GetActiveWnd( )

[1020] {

[1021] return hWndActive;

[1022] These codes are preferably executed in conjunction with a Windows 98® operating system. These codes may be executed in any type of system, including, but not limited to, a web based system, a computer network, or any personal computer, personal digital assistant or other device.

[1023] As can clearly be seen in FIGS. 1 and 2, there are no minimizing, maximizing, or close options available for the user. Therefore, a user can input data by selecting keys 22 on the keyboard 20 as necessary.

[1024] A general description of the present invention as well as a preferred embodiment of the present invention has been set forth above. Those skilled in the art to which the present invention pertains will recognize and be able to practice additional variations in the methods and systems described which fall within the teachings of this invention. Accordingly, all such modifications and additions are deemed to be within the scope of the invention which is to be limited only by the claims appended hereto.