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) p>
MsgBox "Las coordenadas son (" & Pos.x & "," & Pos.y & "), y el color es " & color
End Sub