Hola todos, tengo una pequeña aplicación que tiene 2 textbox, cuando selecciono alguna de estos 2 textbox, el sistema me llama a otro form teclado pongo código:
Código:
Private Sub txtUser_Click()
Teclado.Show
End Sub
esto como les comente me abre el form teclado, en est tengo mi diseño de un teclado tipo qwerty con numeros un enter un bloq mayus y una barra espaciadora, les dejo el codigo:
Código:
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 27
SendKeys " "
Case 28
Unload Me
Case 29
Command1(0).Caption = "q"
Command1(1).Caption = "w"
Command1(2).Caption = "e"
Command1(3).Caption = "r"
Command1(4).Caption = "t"
Command1(5).Caption = "y"
Command1(6).Caption = "u"
Command1(7).Caption = "i"
Command1(8).Caption = "o"
Command1(9).Caption = "p"
Command1(10).Caption = "a"
Command1(11).Caption = "s"
Command1(12).Caption = "d"
Command1(13).Caption = "f"
Command1(14).Caption = "g"
Command1(15).Caption = "h"
Command1(16).Caption = "j"
Command1(17).Caption = "k"
Command1(18).Caption = "l"
Command1(19).Caption = "ñ"
Command1(20).Caption = "z"
Command1(21).Caption = "x"
Command1(22).Caption = "c"
Command1(23).Caption = "v"
Command1(24).Caption = "b"
Command1(25).Caption = "n"
Command1(26).Caption = "m"
Command1(29).Visible = False
Command1(40).Visible = True
Case 40
Command1(0).Caption = "Q"
Command1(1).Caption = "W"
Command1(2).Caption = "E"
Command1(3).Caption = "R"
Command1(4).Caption = "T"
Command1(5).Caption = "Y"
Command1(6).Caption = "U"
Command1(7).Caption = "I"
Command1(8).Caption = "O"
Command1(9).Caption = "P"
Command1(10).Caption = "A"
Command1(11).Caption = "S"
Command1(12).Caption = "D"
Command1(13).Caption = "F"
Command1(14).Caption = "G"
Command1(15).Caption = "H"
Command1(16).Caption = "J"
Command1(17).Caption = "K"
Command1(18).Caption = "L"
Command1(19).Caption = "Ñ"
Command1(20).Caption = "Z"
Command1(21).Caption = "X"
Command1(22).Caption = "C"
Command1(23).Caption = "V"
Command1(24).Caption = "B"
Command1(25).Caption = "N"
Command1(26).Caption = "M"
Command1(29).Visible = True
Command1(40).Visible = False
Case Else
Focus
SendKeys Command1(Index).Caption
End Select
End Sub
Como pueden ver esto9y asignando algunas funciones a algunos de los botones como el space el espacio en blanco el de bloqueo mayusuculas para que me cambie las letras a minusculas y otro igual para que las cambie a mayusculas, en el final esta lo importante:
Case Else
Focus
SendKeys Command1(Index).Caption
End Select
Yo tenia pensado usar focus en los textbox, pero como estos estan en otro form no me responde el sistema, ademas de que la idea seria de que el focus lo haga segun el textbox desde el que llame al form teclado.
No se si me explique bien, espero me puedan dar alguna pista de como hacer esto.
Saludos y gracias.