module1.bas

来自「颜色拾取器」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Option Explicit
Type pointapi
 X As Long
 Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long