Red de conocimiento informático - Espacio del host - Quiero expresar un punto (x, y) en la pantalla en vb. En vfp, es este screen.piont= (x, y), pero realmente quiero usarlo en vb, así que

Quiero expresar un punto (x, y) en la pantalla en vb. En vfp, es este screen.piont= (x, y), pero realmente quiero usarlo en vb, así que

Función de declaración privada GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'API para obtener las coordenadas del mouse

Tipo privado POINTAPI 'Tipo de datos relacionados con esta API

x As Long

y As Long

Tipo final

Función de declaración privada CreateDCA& Lib "gdi32" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Long) 'Crear dispositivo

Función de declaración privada DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long 'Eliminar dispositivo

Función de declaración privada GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 'Obtener color

Función privada GetColor(ByVal x As Long, ByVal y As Long) As Long 'Obtener color de un punto determinado (formato hexadecimal de vb)

Dim DC As Long

DC = CreateDCA("DISPLAY", vbNullString, vbNullString, 0)

GetColor = GetPixel(DC, x, y)

EliminarDC DC

Función final

Subcomando privado1_click()

Atenuar pos como POINTAPI ' Coordenadas

GetCursorPos Pos 'Obtener coordenadas

Dim color As Long 'Color

color = GetColor(Pos.x, Pos.y)

MsgBox "Las coordenadas son (" & Pos.x & "," & Pos.y & "), y el color es " & color

End Sub