¿Cómo programar el cuadrante de coordenadas VB de la universidad según los requisitos y pasos?

Herramienta de programación de Visual Basic 6.0

Pasos/Métodos

Abra Visual basic6.0 (en adelante denominado vb), cree un nuevo EXE estándar y configure los controles:

p>

Haga doble clic en el formulario Form1: copie el siguiente código y péguelo en la ventana de código de Form1:

Private Sub Command1_Click()

Atenuar Rects como RECT, ExecuteValue como booleano

Atenuar MousePoint como POINTAPI

ExecuteValue = GetDesktopWindowRect(Command2.Hwnd, Rects, MousePoint)

Depurar .Imprimir "ExecuteValue=" & ExecuteValue

Depurar .Imprimir "Rects.Top=" & Rects.Top

Depurar.Imprimir "Rects.Left=" & Rects.Left

Debug.Print "Rect.Bottom=" & Rects .Bottom

Debug.Print "Rect.Right=" & Rects.Right

Debug.Print "MousePoint .X= " & MousePoint.X

Depurar .Print "MousePoint.Y=" & MousePoint.Y

'MsgBox "¡Vea la ventana inmediata para ver los resultados de la ejecución!", 48 , "Preguntar"

Fin Sub

Sub Comando Privado2_Click()

SetCursorToControl Command1.Hwnd

Fin Sub

Private Sub Label2_Click()

End Sub

Copia el código en la ventana de código de Form1

Haz clic en el menú Proyecto "Agregar módulo" y haz clic para abrir :

Copie el siguiente código en la ventana que se muestra:

'Programación por Kejisoft (/Kejisoft)

'Fecha: 2011-02-10

'Funciones:

' GetDesktopWindowRect

' Obtener la posición de un control en la pantalla descrita por Rect

' SetCursorToControl

' Establece el puntero del mouse en un control

'Versión: 1.0.0.0

'IDE:Microsoft Visual Basic 6.0 Enterprise Edition

Declarar función GetDesktopWindow Lib "user32" () siempre y cuando

Declarar función GetWindowRect Lib "user32" (ByVal Hwnd siempre y cuando, lpRect como RECT) siempre

Escriba RECT

Izquierda el tiempo

Arriba el tiempo

Derecha el tiempo

Abajo el tiempo

Tipo final

Declarar función obtener

CursorPos Lib "user32" (lpPoint Como POINTAPI) Mientras

Tipo POINTAPI

X Mientras

Y Mientras

Tipo de fin

Declarar la función SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Función pública GetDesktopWindowRect(Hwnd As Long, Rct As RECT, MousePos As POINTAPI) Como booleano

Dim ejecutar como entero

ejecutar = GetWindowRect(Hwnd, Rct)

GetDesktopWindowRect = IIf(ejecutar = 0, False, True)

GetCursorPos MousePos

Función final

Función pública SetCursorToControl(ControlHwnd As Long) como booleano

Atenuar Rect2 como RECT, MousePos2 como POINTAPI

Atenuar ControlX mientras, ControlY mientras

SetCursorToControl = GetDesktopWindowRect(ControlHwnd, Rect2, MousePos2)

'Calcular las coordenadas de posición central del control

ControlX = Rect2.Left + ((Rect2.Right - Rect2.Left) / 2)

ControlY = Rect2.Top + ((Rect2.Bottom - Rect2.Top) / 2)

SetCursorPos ControlX, ControlY

Función final

5

El siguiente paso es presionar F5 para ejecutar el efecto de prueba, ¡completo!