Visual Basic - Como crear un teclado virtual...

Hola,

Quisiera crear un teclado virtual en VB. ¿Hay alguna forma para que cuando pulse una tecla del teclado virtual se escriba el carácter en la ventana que esté detrás del teclado?

Gracias.

Prueba con la funcion SendKey (es un a API)

Sergio
Un Saludo

Gracias Sergio, pero... Yo quiero que la tecla pulsada la envie al programa que tengo en segundo plano. (ejem. Notepad).

¿Como puedo saber que programa tengo en segundo plano y como le puedo mandar el carácter de la tecla pulsada?

Gracias de nuevo y un saludo.

miguel.

Lo que pides no es algo relativamente sencillo porque varía según las aplicaciones a las que quieras enviar las pulsaciones. Deberías utilizar BringWindowToTop para pasar la ventana que quieres hacia adelante y luego, keybd_event, por ejemplo para el Notepad:

lngHwnd = FindWindow("Notepad", "Untitled - Notepad")

BringWindowToTop lngHwnd

strProv = "Esta es una prueba"

For i = 1 To Len(strProv)
keybd_event Asc(Mid(strProv, i, 1)), 0, 0, 0
keybd_event Asc(Mid(strProv, i, 1)), 0, KEYEVENTF_KEYUP, 0
Next i

keybd_event 13, 0, 0, 0
keybd_event 13, 0, KEYEVENTF_KEYUP, 0

Las funciones son:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function BringWindowToTop Lib "user32" Alias "BringWindowToTop" (ByVal hwnd As Long) As Long

Public Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Gracias Cecilia,

Como pasar la tecla pulsada a una aplicación determinada lo tengo resuelto.

Por ejemplo, con el siguiente código (no sé si es chapucero o no pero funciona)

Private Sub cmdA_Click()
AppActivate (Aplicacion)
SendKeys "{A}", False
Form1.SetFocus
End Sub

Donde Aplicacion es el id de una determinada aplicación que abro previamente con el shell:

Aplicacion = Shell("C:\WINNT\system32\notepad.EXE", 1)

Mi problema es, si tengo abierto el Word, Excel y Notepad, me gustaría poder identificar cual era el programa que tenia activo antes de seleccionar el programa del teclado virtual. De este modo poder pasar como Aplicacion el id del programa que tenía activo.

No sé si me estoy explicando o la estoy liando aún más.

Gracias por la ayuda y los comentarios.

miguel.

Quiero crear un teclado virtual como el "Teclado en Pantalla" de Windows pero en Visual Basic.

Un saludo,

miguel

Tendrías que enumerar las ventanas y luego utilizar BringWindowToTop para pasarla al frente.