On Screen KeyBoard

[Ali Rizwan]

Hello
I want to make something like virtual keyboard
if we press a button captioned A then A is inserted in a text file as the textfile is open . As we do in On screen Keyboard.
Thanx

[QVeen72]

Hi,

Add A Command Button (cmdL) and make its property Index =0
and a TextBox on the Form
Check This :

[code=vb]
Private Sub Form_Load()
Dim i As Integer
Dim TTop As Integer
TTop =300
cmdL(0).Left = 120
cmdL(0).Top =TTop
For i=1 To 26
Load cmdL(i)
With cmdL(i)
.Visible =True
.Enabled =True
.Left = cmdL(i-1).Left + cmdL(i-1).Width
.Top =TTop
.Caption = Chr(i+64)
End With
If i Mod 10 = 0 Then
TTop = TTop + 500
'Place Controls on Next Line
End If
Next
TTop =TTop + 500
Dim j As Integer
For j = 0 to 9
i=i+1
Load cmdL(i)
With cmdL(i)
.Visible =True
.Enabled =True
.Left = cmdL(i-1).Left + cmdL(i-1).Width
.Top =TTop
.Caption = j
End With

Next
End Sub
[/code]


Write this Code in cmdL KeyPress
Text1.Text =Text1.Text & cmdL(Index).Cap tion

Code Not Completely Tested, U can Refine it according to ur needs..


Regards
Veena

[Killer42]

I want to make something like virtual keyboard

Windows XP already comes with an onscreen keyboard. Why build your own?

[Wagsy]

Ok sounds like what im after too. if say i have a numerical keypad 0-9, if i press 1 id like it to show in txtbox1, then if i press number 2 i'd like that to appear next to number 1 - 12. how is this possible, at the moment i use the :-

Private Sub Command7_Click( )
Text2.Text = Command7.Captio n
End Sub

when i press the next button it just overwrites?

[Killer42]

... when i press the next button it just overwrites?

You just need to concatenate the values. For example...
Text2.Text = Text2.Text & Command7.Captio n

[Wagsy]

Thanks Killer42... figured it now.

[loy1234]

Thank you vmuch it works for me...