Foxtable(狐表)用户栏目专家坐堂 → 如何检查画板上某个点是否是白色?


  共有5556人关注过本帖树形打印复制链接

主题:如何检查画板上某个点是否是白色?

帅哥哟,离线,有人找我吗?
xluoping
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:368 积分:3759 威望:0 精华:0 注册:2016/4/2 12:11:00
如何检查画板上某个点是否是白色?  发帖心情 Post By:2022/10/24 14:29:00 [只看该作者]

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics

Dim clr As Color = '画板上点 10,20 的颜色

If clr.ToARGB = -1 then


end if


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/24 14:41:00 [只看该作者]

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim bmp As New Bitmap(p.Image)
Dim c As color = bmp.GetPixel(10, 20)
Output.Show(c.ToString)
bmp.dispose

 回到顶部