'绘制图形的三步曲
成都创新互联公司拥有十年成都网站建设工作经验,为各大企业提供成都网站设计、成都网站建设服务,对于网页设计、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事件
没有看到其他代码,暂无法判断哪里有问题
希望回答对你有帮助
分享文章:vb点虐
pen的简单介绍
网址分享:https://www.cdcxhl.com/article10/ddchedo.html
成都网站建设公司_创新互联,为您提供网站维护、云服务器、动态网站、ChatGPT、网站内链、网站策划
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联