Autor
|
Tema: tecla + en sendkeys o otra forma? (Leído 5,284 veces)
|
traviatØ
Desconectado
Mensajes: 165
|
no entiendo tu lenguaje , que se supone que son "arbolitos ¿los nodos de un treeview?,para mandar teclas podes usar api's.... jaja, si eso creo que es, alguna idea de cual seria esa api??? y buscando encontre este codigo ' Constantes para las teclas y otros Const KEYEVENTF_KEYUP = &H2 Const KEYEVENTF_EXTENDEDKEY = &H1 'Declaración del Api keybd_event para la presión de tecla Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Sub Pulsar_Tecla(Tecla As Long) Call keybd_event(Tecla, 0, 0, 0) Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0) End Sub ' Presiona la tecla Tab Private Sub Timer1_Timer() Call Pulsar_Tecla(vbKeyTab) End Sub
ahora como se que es la tecla + ??? si es que se puede alguna idea salu2s
|
|
« Última modificación: 28 Enero 2009, 22:00 pm por traviatØ »
|
En línea
|
|
|
|
|
GroK
Desconectado
Mensajes: 681
...I have become comfortably numb...
|
ahora como se que es la tecla + ??? si es que se puede alguna idea salu2s La tecla '+' es vbKeyAdd, y eso es lo que le pasas por parametro a la funcion Pulsar_Tecla(), te referias a eso? Saludos
|
|
|
En línea
|
"I put on my Hendrix album and my son said 'Dad, who's that?' and i said 'Well son, that's God' "- Robert Plant
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Hola, para las "Marcas" (checkbox) tambien podes usar SendMessage con BM_GETCHECK para saber si está tildado, el retorno sería (0 si no está tildado, 1 tildado o 2 si está gris. Y con SendMessage y BM_CLICK le mandas el click si hace falta. (buscá ejemplos)
retorno= SendMessage(Hndl, BM_GETCHECK, 0, 0) If retorno= 0 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)
Saludos
|
|
« Última modificación: 29 Enero 2009, 01:15 am por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
traviatØ
Desconectado
Mensajes: 165
|
hola, ya quedaria asi Const KEYEVENTF_KEYUP = &H2 Const KEYEVENTF_EXTENDEDKEY = &H1 'Declaración del Api keybd_event para la presión de tecla Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) Sub Pulsar_Tecla(Tecla As Long) Call keybd_event(Tecla, 0, 0, 0) Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0) End Sub ' Presiona la tecla Tab Private Sub Timer1_Timer() Call Pulsar_Tecla(vbKeyAdd) End Sub
gracias se las debo salu2s
|
|
|
En línea
|
|
|
|
viviz02
Desconectado
Mensajes: 52
tuentiAlert
|
Por lo que veo ya lo has solucionado. Pero probaste esto que dije unos post mas arriba¿? Supongo que puedes poner su equivalente en ascii -> 43
|
|
|
En línea
|
tuentiAlert - Notificador de cambios en tu perfil de tuenti.www.tuentialert.es Ya esta disponible la v0.3 para descargar
|
|
|
traviatØ
Desconectado
Mensajes: 165
|
hola no probe con ese porque no entiendo mucho de programming y bueno ya esta resuelto gracias! nos vemos! ..
|
|
|
En línea
|
|
|
|
|
|