hotkeys
Publicado por gorka (15 intervenciones) el 18/05/2007 09:00:31
Hola a todos!!
TEngo un problema,estpy haciendo una aplicacion en visual . tiene un comand buton que al darle hace referencia a la tecla F5,es decir,que en vez de darle al F5 necesito darle al boton para que asi,en otro programa ejecute una orden ,en este caso sacar una foto.No se si me explico,tengo un programa de camara que con la tecla F5 saca una foto,pero yo no quiero que eso pase,en vez de eso,quiero que en una aplicacion visual pulse el comando que seria el F5 del programa de la camara.
Pues bien,he estado haciendo pruebas con la api de windows,en especial con la WM_hotkey y la sendmessagge.Primero establezco la ventana activa y luego le doy el valor de la hotkey a la sendmmessage:
Private Const WM_HOTKEY = &H74
Private Const VK_F5 = &H74
Public hwndDialog As Long
Public retval, retvali, retvalia, ret As Long
Private Sub Command1_Click()
hwndDialog = FindWindow(CLng(0), "Click")
If hwndDialog <> 0 Then
hwndButton = FindWindowEx(hwndDialog, 0, CLng(0), "No")
retval = SetActiveWindow(hwndDialog)
MsgBox retval
'retvali = RegisterHotKey(retval, retval, MOD_CON, VK_F5)
' MsgBox retvali
' retvalia = GetAsyncKeyState(VK_F5) 'Comentarizado
If retval Then
ret = SendMessage(hwndButton, WM_HOTKEY, ByVal CLng(0), ByVal CLng(0))
MsgBox ret
End If
End If
End Sub
Como lo podria hacer?
Gracias.
TEngo un problema,estpy haciendo una aplicacion en visual . tiene un comand buton que al darle hace referencia a la tecla F5,es decir,que en vez de darle al F5 necesito darle al boton para que asi,en otro programa ejecute una orden ,en este caso sacar una foto.No se si me explico,tengo un programa de camara que con la tecla F5 saca una foto,pero yo no quiero que eso pase,en vez de eso,quiero que en una aplicacion visual pulse el comando que seria el F5 del programa de la camara.
Pues bien,he estado haciendo pruebas con la api de windows,en especial con la WM_hotkey y la sendmessagge.Primero establezco la ventana activa y luego le doy el valor de la hotkey a la sendmmessage:
Private Const WM_HOTKEY = &H74
Private Const VK_F5 = &H74
Public hwndDialog As Long
Public retval, retvali, retvalia, ret As Long
Private Sub Command1_Click()
hwndDialog = FindWindow(CLng(0), "Click")
If hwndDialog <> 0 Then
hwndButton = FindWindowEx(hwndDialog, 0, CLng(0), "No")
retval = SetActiveWindow(hwndDialog)
MsgBox retval
'retvali = RegisterHotKey(retval, retval, MOD_CON, VK_F5)
' MsgBox retvali
' retvalia = GetAsyncKeyState(VK_F5) 'Comentarizado
If retval Then
ret = SendMessage(hwndButton, WM_HOTKEY, ByVal CLng(0), ByVal CLng(0))
MsgBox ret
End If
End If
End Sub
Como lo podria hacer?
Gracias.
Valora esta pregunta


0