走近VB.Net（七）在窗体上画图

走近VB.Net（七）在窗体上画图

.Net（七）在窗体上画图

如果看过一些文章一定知道在窗体上画图要使用system.drawing类，在VB.Net中没有line与label控件，需要自已写一些代码，

首先写一个事件过程onpaint.在显示窗体的同时显示图形

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

@#TODO: 请在此处添加绘图代码

End Sub

ByVal e As PaintEventArgs是一个参数类，这个有些象在VB6在使用的自定义类型，在一个集合中有多个成员变量，（参考

《VB.Net核心定义》之集合/成员）。在e后面打点就可以看到相关的参数。在mouse_down，mouse_up等事件中获取X,Y坐标就使用

e.X跟e.Y。在窗体上有些事件需要手工添加，前面几章有相关内容，现在我们要使用的是e.Graphics参数，

请添加如下代码：

Dim gp As Graphics = e.Graphics

当然你要记住在程序代码的起始加了Imports System.Drawing 这样system.drawing.graphics 可以写成graphics，而system.drawing.pen

可以写成pen

另外我们要创建一个画笔对象,这就象现实中一样，画笔是一个对象，我们使用画笔去绘图。

Dim newpen As New Pen(Color.Black,5)

甚至可以这样写：

Dim newpen As New Pen(color.FromARGB(22, 23, 24), 5)

Pen是一个重载性质的函数，也就是有好几种格式，在打逗号以后出现的提示上可以看到一个向下的键头与数字，点击箭头可以