vb.net 如何获取鼠标点的RGB？

hyb2cs 2017-11-28 02:20:14

vb.net 如何获取鼠标点的RGB？求源码。

...全文

944 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

清晨曦月元老 2018-01-04

打赏
举报

哈，其实那啥，vb.net也不是不能直接做。写一个简单的演示，然后鼠标在窗体上按下，随便拖动。。。。。。。 dim bmp as new bitmap(1,1) dim g as graphics=graphics.fromimage(bmp) private sub form1_mousemove(s as object,e as mouseeventargs)handles me.mousemove g.copyFromScreen(PointooScreen(e.Location), Point.Empty, New Size(1, 1), CopyPixelOperation.SourceCopy) Debug.Print(bmp.GetPixel(0, 0).ToString) end sub 哦，这就可以了。。。大约还是把pointtoscreen(e.location)直接换成mouseposition比较好。。。。

NewScar 2017-12-29

打赏
举报

不错，学习了。当年在VB6时代也是如是操作的。

baidu_38121684 2017-12-20

打赏
举报


    Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer
    Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer
    Private Function GetRGB() As Integer
          Dim ScreenDC = GetDC(0)
          Dim TheRGB = GetPixel(ScreenDC, MousePosition.X, MousePosition.Y)
          Return TheRGB
    End Function

hyb2cs 2017-11-28