hola 1 salu2, me preguntaba si alguien sabe como se 'envia' la tecla + en vb6 , x ejemplo para la tecla flechaabajo es {DOWN} y para + ?? salu2s
"{+}"
Saludos :-*
Supongo que puedes poner su equivalente en ascii -> 43
HI, "{+}" no funciona :huh: si escribe en el bloc de notas + pero intento darle otro uso, para por ejemplo seleccionar y desseleccionar una marca y alli solo suena 'tuu' mmm :huh: salu2s
A que te refieres con seleccionar una marca? :huh:
hola, marcas de este tipo
(http://img99.imageshack.us/img99/4541/1212xk0.jpg)
salu2s
se llaman checkbox :¬¬,ahora no entiendo que tiene que ver el "+" con los checkbox...
Para eso se puede utilizar la barra espaciadora.
hola si, pero tambien hay unos 'arbolitos' que se agrandan con + y estaba probando haber si lo podia abrir todo presionando repetidas veces {DOWN} y + (no se puede con la barra espaciadora) pero y + como se presiona :huh: salu2s
no entiendo tu lenguaje , que se supone que son "arbolitos :xD ¿los nodos de un treeview?,para mandar teclas podes usar api's....
Cita de: seba123neo en 28 Enero 2009, 21:38 PM
no entiendo tu lenguaje , que se supone que son "arbolitos :xD ¿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 Subahora como se que es la tecla + ??? si es que se puede alguna idea :huh: salu2s :D
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Utilizar el Api keybd_event en vez de SendKeys (http://www.recursosvisualbasic.com.ar/htm/listado-api/153-keybd_event-en-ves-de-sendkeys.htm)
Cita de: traviatØ en 28 Enero 2009, 21:55 PM
ahora como se que es la tecla + ??? si es que se puede alguna idea :huh: salu2s :D
La tecla
'+' es
vbKeyAdd, y eso es lo que le pasas por parametro a la funcion Pulsar_Tecla(), te referias a eso?
Saludos
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
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
Por lo que veo ya lo has solucionado. Pero probaste esto que dije unos post mas arriba¿?
Cita de: viviz02 en 28 Enero 2009, 20:32 PM
Supongo que puedes poner su equivalente en ascii -> 43
hola no probe con ese porque no entiendo mucho de programming y bueno ya esta resuelto gracias! nos vemos! ..