tecla + en sendkeys o otra forma?

[traviatØ]

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

Código (vb) [Seleccionar] Expandir


' 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 

[seba123neo]

Código (vb) [Seleccionar] Expandir

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

[GroK]

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

[Dessa]

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

[traviatØ]

hola, ya quedaria asi

Código (vb) [Seleccionar] Expandir

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

[viviz02]

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

[traviatØ]

hola no probe con ese porque no entiendo mucho de programming y bueno ya esta resuelto gracias! nos vemos! ..