Cuando se utiliza la función WindowFromPoint en VB6.0, ¿cómo pasarle las coordenadas actuales del mouse como parámetro?

Visual Studio 98 viene con una herramienta muy importante llamada API Text Viewer, que puede satisfacer sus necesidades. Consulte la Figura 2 para conocer su uso. Figura 2: Escriba el nombre de la función API que necesita declarar y presione el botón Agregar. La función API seleccionada se agregará al cuadro de lista a continuación. Después de presionar el botón Copiar, la declaración VB correspondiente a la función API se agrega al portapapeles y puede usarla directamente en el archivo del proyecto VB. Si necesita determinar la posición del clic del mouse en un PictureBox, además de la función GetCursorPos que se muestra en la figura, también debe usar otra función ScreenToClient. Dado que la función GetCursorPos devuelve coordenadas relativas a toda la pantalla, este valor de coordenadas debe convertirse en coordenadas relativas al propio PictureBox, lo que debe hacerse mediante la función ScreenToClient. La siguiente es la implementación específica. Tipo privado POINTAPI　x As Long　y As Long　Tipo final　' Declaración de función exportada de USER32.DLL' GetCursorPos: obtiene las coordenadas de pantalla del mouse actual en las coordenadas relativas de una determinada ventana Función de declaración privada ScreenToClient Lib "user32" (ByVal hwnd As Long , lpPoint As POINTAPI) As Long　Private Sub Picture1_Click()　Dim pt As POINTAPI　Dim x, y, res As Integer　 'Obtiene las coordenadas de la pantalla y guarda el resultado En la variable de estructura pt, res = GetCursorPos(pt). las coordenadas relativas de Picture1.res = ScreenToClient(Picture1.hwnd, pt x = pt.x * 15. y = pt.y * 15. End Sub. x e y guardan la posición en la que se hizo clic. La razón por la que necesitamos multiplicar xey por 15 es porque VB usa otra unidad de longitud.