Quiero hacer un prototipo ¿Me ayudas?
Hola mi nombre es Dioniso estoy estudiando la carrera de ing. Ambiental.
Quiero hacer un medidir de flujo, pretendo unir un dispositivo mecánico con uno de los ejes del mouse (no se como se llama, pero si giras el mouse y lo abres donde esta la esfera lo puedes ver), y que sea este movimiento el que la computadora reconozca, con un programa utilizando "MoveMouse" determine un movimiento recto y que al llegar a un punto el cursor se regrese al punto de inicio, pero no puedo hacer que el mouse regrese a la posición de partida. Este es mi problema ¿Qué comando crees que me pueda ayudar?
Gracias por tu ayuda
Quiero hacer un medidir de flujo, pretendo unir un dispositivo mecánico con uno de los ejes del mouse (no se como se llama, pero si giras el mouse y lo abres donde esta la esfera lo puedes ver), y que sea este movimiento el que la computadora reconozca, con un programa utilizando "MoveMouse" determine un movimiento recto y que al llegar a un punto el cursor se regrese al punto de inicio, pero no puedo hacer que el mouse regrese a la posición de partida. Este es mi problema ¿Qué comando crees que me pueda ayudar?
Gracias por tu ayuda
1 Respuesta
Respuesta de marcosz
1
Para posicionar el mouse debes usar un API de Windows en donde solo le pasas las coordenadas POR y Y.
En un módulo (. Vas) colocas este código
Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Y desde tu formulario solo guardas los valores en una variable y llamas el API. Por ejemplo:
Private Sub Form_Load()
lPosX = 100
lPosY = 100
End Sub
Private Sub Command2_Click()
'Posiciona el mouse.
SetCursorPos lPosX, lPosY
End Sub
Si tienes alguna duda dímelo
En un módulo (. Vas) colocas este código
Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Y desde tu formulario solo guardas los valores en una variable y llamas el API. Por ejemplo:
Private Sub Form_Load()
lPosX = 100
lPosY = 100
End Sub
Private Sub Command2_Click()
'Posiciona el mouse.
SetCursorPos lPosX, lPosY
End Sub
Si tienes alguna duda dímelo
