Visual Basic - Asociar botones a teclas de windows mediante vb

Life is soft - evento anual de software empresarial
   
Vista:

Asociar botones a teclas de windows mediante vb

Publicado por pitiavila (2 intervenciones) el 01/02/2015 17:15:35
Hola a todos!
Tengo unos botones externos al pc que se comunican a el mediante un puerto rs232. Para saber cuando son pulsados tengo un pequeño programa en vb que es capaz de identificar cuando se pulsan dichos botones. Mi duda esta en que necesito asociar dichos botones( son tres) a ciertas teclas del teclado de windows para usar como control de otro progrma que corre en windows. ¿Cómo puedo hacerlo?

Muchas gracias y un saludo a todos los del foro!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Asociar botones a teclas de windows mediante vb

Publicado por Andres Leonardo (702 intervenciones) el 02/02/2015 16:51:42
Hola como estas ...

Si tu sabes que boton presiono y tu quieres emular que presiona por ejemplo el enter puedes leer sobre el comando SENDKEYS

Private Sub el que tu identificas

SendKeys "{tab}"
'aqui podrias envbiar la tecla q requieres espero te ayude


End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Asociar botones a teclas de windows mediante vb

Publicado por LUIS FRANCO franco_luis776@yahoo.es (72 intervenciones) el 03/02/2015 03:58:34
Private Sub Text1_KeyPress(KeyAscii As Integer)

IF KEYPRESS=13 THEN
PROGRAMA QUE DESEAS EJECUTAR
ELSE
NADA
END IF

End Sub


KEYPRESS TE DARA EL NUMERO DE LA TECLA QUE APRETASTE, EL NUMERO 13 ES LA TECLA ENTER SI APRETAS ENTER O EL BOTON QUE DESEAS EJECUTA EL PROGRAMA QUE QUIERES. CUALQUIER DUDA NO DUDEZ EN CONSULTARME.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Asociar botones a teclas de windows mediante vb

Publicado por pitiavila (2 intervenciones) el 03/02/2015 22:33:50
Muchas gracias a los dos
si es mas o menos lo que andaba buscando, solo que los botones no son para ejecutar un programa, sino para controlar tres funciones de un programa. para explicarme bien os dejo el código en vb que muestra los botones provenientes del puerto rs232:

Option Explicit

Sub leer_entradas()
Do
DoEvents
If MSComm1.CTSHolding = False Then
Shape1.FillColor = QBColor(2)
Else
Shape1.FillColor = QBColor(10)

End If
If MSComm1.DSRHolding = False Then
Shape2.FillColor = QBColor(2)
Else
Shape2.FillColor = QBColor(10)

End If
If MSComm1.CDHolding = False Then
Shape3.FillColor = QBColor(2)
Else
Shape3.FillColor = QBColor(10)

End If
Loop
End Sub

Private Sub Form_Activate()
If App.PrevInstance = True Then
MsgBox " El programa ya está corriendo ", vbCritical + vbSystemModal
End
End If
Form1.Caption = "On/Off Serial"
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
Call leer_entradas
End Sub


Private Sub Form_Unload(Cancel As Integer)
MSComm1.DTREnable = False
MSComm1.RTSEnable = False
MSComm1.PortOpen = False
End
End Sub

De esta manera consigo en un pequeño ejecutable, que cuando pulse un botón el shape cambie de color, y a esto es a lo que quiero asociar las teclas de windows para controlar el otro programa.
En un principio me servirían cualquier tecla (pej: a, b , c), ya que en ese programa puedo variar los controles.

Se que soy un poco nuevo en esto por lo tanto agradezco muchísimo vuestra ayuda.
¿de que manera tengo que integrar esa orden en el codigo vb que os he puesto?

Muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

Asociar botones a teclas de windows mediante vb

Publicado por Andres Leonardo (702 intervenciones) el 04/02/2015 14:49:43
Pues ... entiendo el codigo y lo que haces solo deberias en el momento que cambias de color enviar
SendKeys "{A}" y eso te escribira A donde se encuentre el cursor.

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar