走近VB.Net（七）在窗体上画图
点击次数：55 次 发布日期：2008-11-06 08:07:43 作者：源代码网
源代码网推荐 如果看过一些文章一定知道在窗体上画图要使用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是一个重载性质的函数，也就是有好几种格式，在打逗号以后出现的提示上可以看到一个向下的键头与数字，点击箭头可以 源代码网推荐 源代码网推荐察看函数的不同版本使用的不同参数。这里使用了一个system.draw.color类的fromARGB的函数，由于他也是一个重载的孙数，你可以写入 源代码网推荐 源代码网推荐A,R,G,B四个参数，也可以写入R,G,B三个参数，一共有四种版本供您使用，也只要在打逗号以后出现的提示上可以看到一个向下的键头与数字即可。 源代码网推荐 源代码网推荐 你可以只使用一个色彩的参数，或者在后面加一个整数，定义画笔的大小，也就是画出来的线条应该有多宽，记住color也是system.drawing 源代码网推荐 源代码网推荐的一个类如：Dim newpen As New Pen(Color.Black) 源代码网推荐 源代码网推荐 现在使用drawline方法画出想要的线条，如下： 源代码网推荐 源代码网推荐 gp.Drawline(newpen, 10, 20, 70, 80) 源代码网推荐 源代码网推荐 Drawline也是一个重载的方法(Overloads Public Sub DrawLine)一般是使用5个参数，后面四个可以是integer类型，也可以是single的 源代码网推荐 源代码网推荐浮点类型。这里使用的是整数 源代码网推荐 源代码网推荐 第一个是代表画笔，后面依次是x1,y1（起点坐标），X2，Y2（终点坐标） 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐画一个矩形如下： 源代码网推荐 源代码网推荐Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) 源代码网推荐 源代码网推荐 Dim gp As Graphics = e.Graphics 源代码网推荐 源代码网推荐 Dim newpen As New Pen(Color.Black, 5) 源代码网推荐 源代码网推荐 gp.DrawRectangle(newpen, 10, 20, 70, 80) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐画正方形要求最后两个参数相同： 源代码网推荐 源代码网推荐 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) 源代码网推荐 源代码网推荐 Dim gp As Graphics = e.Graphics 源代码网推荐 源代码网推荐 Dim newpen As New Pen(Color.Black, 5) 源代码网推荐 源代码网推荐 gp.DrawRectangle(newpen, 10, 20, 80, 80) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐画一抛物线如下： 源代码网推荐 源代码网推荐 源代码网供稿. |
