Question

用VB编程 单击鼠标在任意时刻在屏幕任意位置出现任意颜色的点

VB程序啊啊啊…求具体代码

Answer 1

相当简哦，我做一下代码给你。

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Form_Load()
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
    Dim pt As POINTAPI
    GetCursorPos pt

    Label1.BackColor = GetPixel(GetDC(0), pt.x, pt.y)
    Text1.Text = Hex(Label1.BackColor)
    
    Label2.Caption = pt.x & " , " & pt.y
End Sub

追问

麻烦了…我二级能过，这个也还做不出来。。。

追答

有点问题，稍等哦。
说具体一点吧

追问

老师给我们的题目就是这样额…可能他说的很随意，给我们了就是难题啊…

追答

不难

追问

能不能再发一遍，分行…

追答

这个不对。

Answer 2

这个题目不简单,要使用全局鼠标钩子和Ellipse函数.

看下附件.