以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何检查画板上某个点是否是白色？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183101)
--  作者：xluoping
--  发布时间：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
--  作者：有点蓝
--  发布时间：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