Ejemplos usando el Api de windows para Visual basic

108 - SetCursorPos y GetWindoRect para posicionar el mouse en el centro de un objeto

Volver al Listado Api - Anterior - Siguiente

Este ejemplo es muy fácil, lo que hace es primero recuperar el área de un control o ventana mediante GetWindowRect, y luego se utiliza el Api SetCursorPos para posicionar el puntero en el centro del mismo.

GetwindowRect recupera el valor Left, Top, Right y Bottom, A SetCursorPos se le debe enviar la coordenada x e y

Nota: El parámetro de la función Centrar_Puntero es de tipo Object, por lo tanto podemos enviar cualquier control que posea HWND. Si se desea para ventanas externas se debe pasar solo el Hwnd

Colocar 2 CommandButon para el ejemplo:

' APi SetCursorPos para establecer el mouse en una determinado coordenada Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long) 'Obtiene el rectángulo o área de una ventana o control que posea HWND Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lRect As RECT) 'Estructura REct Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Public Sub Centrar_Puntero(ByVal Objeto As Object) Dim r As RECT, ret As Long 'Obtiene el área del objeto ret = GetWindowRect(Objeto.hwnd, r) 'Establece el cursor en el centro SetCursorPos r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2) End Sub Private Sub Command1_Click() Call Centrar_Puntero(Command2) End Sub Private Sub Form_Load() MsgBox " Presioná el Command1 para posicionar el cursor en el centro" _ & "del command2 ", vbInformation End Sub

VB 6.0 - Relacionados

VB.NET - Relacionados

Centrar un control objeto

Buscar en Recursos vb