重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
画点:
创新互联专注于忠县企业网站建设,响应式网站建设,商城网站建设。忠县网站建设公司,为忠县等地区提供建站服务。全流程按需制作网站,专业设计,全程项目跟踪,创新互联专业和态度为您提供的服务
在PictureBox的Paint事件里面:
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
画圆:
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)
Call Pset(x,y,RGB(Red,Green,Blue))
x,y是坐标
RGB是颜色
可以随时调用!!!
哦,对不起,没看清。
我没用过VB.Net,代码是没办法给你了
但我有办法:
用API函数SetPixel,SetPixelv(后者快一点)
语法参见
画点:
在PictureBox的Paint事件里面:
dim myGraphics=e.Graphics
Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}
myGraphics.DrawPolygon(myPen, myPointArray)
画圆:
Dim g As Graphics
g = PictureBox1.CreateGraphics
g.FillEllipse(Brushes.Red, x, y, 10, 10)