vb点虐 2010中如何在窗口中建立画布

'绘制图形的三步曲

成都创新互联公司拥有十年成都网站建设工作经验,为各大企业提供成都网站设计、成都网站建设服务，对于网页设计、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所划的矩形区域内

vb点虐 中如何把picturebox定义为画布

定义一个画布，来源于picturebox

Dim huabu As Graphics

huabu = picturebox.CreateGraphics

使用的时候还需要定义画笔

Dim pen As New Pen(Brushes.Black, 1)

然后就可以画图了

huabu.DrawLine(pen, 0, 0, 10, 10)

更多的关于绘图和坐标变换的东西可以参考

为什么VB点虐 2005使用paint事件没效果？

Paint事件是在控件需要重画时发生，就比如说窗体的Paint事件，只要窗体被其他窗口覆盖后又被重新显示时就会触发Paint事件

没有看到其他代码，暂无法判断哪里有问题

希望回答对你有帮助

本文标题：vb点虐 pen的简单介绍
链接分享：http://myzitong.com/article/ddchedo.html