| Pregunta: | 54707 - CONTROLAR MOUSE CON CODIGO |
| Autor: | JOHN RUZ |
| NECESITO CONTROLAR EL MOUSE CON CODIGO, EN SI ES QUE EL MOUSE SE PUEDA MOVER Y HACER CLICK O DOBLE CLICK, CLICK DERECHO PERO CON CODIGO, Y ASI LO PUEDA EJECUTAR HA CIERTA HORA . GRACIAS. | |
| Respuesta: | Carlos Piña |
| ¿Qué tal? Tengo la solución para mover el puntero del ratón mediante código. Y también te doy otro código para ocultarlo y mostrarlo. Haz un formulario nuevo en VB y coloca 2 botones (Command1 y Command2). Crea un módulo estándar y coloca las API's allí. El código es el siguiente: '(Esto va en el módulo estándar) 'Esta API asigna la posición del puntero. Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 'Esta API permite mostrar u ocultar el puntero. Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long '========================================== 'Esto va en el formulario: Private Sub Command1_Click() Static ValorRetorno As Long 'Variable para el valor de retorno If ValorRetorno >= 0 Then ValorRetorno = ShowCursor(0) Command1.Caption = "Mostrar puntero" Else ValorRetorno = ShowCursor(1) Command1.Caption = "Ocultar puntero" End If End Sub 'Y para asignar la posición del puntero usa el otro botón: Private Sub Command2_Click() SetCursorPos 0, 0 End Sub Los valores 0, 0 son respectivamente X e Y en la pantalla. Lo de hacer clic mediante código no lo sé. Espero que te sea útil este código. | |