13518219792
'绘制图形的三步曲
成都创新互联公司拥有十年成都网站建设工作经验,为各大企业提供成都网站设计、成都网站建设服务，对于网页设计、PC网站建设（电脑版网站建设）、成都APP应用开发、wap网站建设（手机版网站建设）、程序开发、网站优化（SEO优化）、微网站、域名注册等，凭借多年来在互联网的打拼，我们在互联网网站建设行业积累了很多网站制作、网站设计、网络营销经验，集策划、开发、设计、营销、管理等网站化运作于一体，具备承接各种规模类型的网站建设项目的能力。
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '绘制一个实心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '绘制一个空心圆，该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
定义一个画布，来源于picturebox
Dim huabu As Graphics
huabu = picturebox.CreateGraphics
使用的时候还需要定义画笔
Dim pen As New Pen(Brushes.Black, 1)
然后就可以画图了
huabu.DrawLine(pen, 0, 0, 10, 10)
更多的关于绘图和坐标变换的东西可以参考
Paint事件是在控件需要重画时发生，就比如说窗体的Paint事件，只要窗体被其他窗口覆盖后又被重新显示时就会触发Paint事件
没有看到其他代码，暂无法判断哪里有问题
希望回答对你有帮助
