Visual BasicNET程序设计教程第13章.pptVIP

上面的程序还可以写成： Dim p As Pen = New Pen(Color.Red, 10) ? p.DashStyle = Drawing.Drawing2D.DashStyle.Dot p是红色、宽度为10、样式为点线的钢笔 Dim g As Graphics g是Graphics类变量 e.Graphics.DrawRectangle(p, 10, 10, 100, 150) 图13-5 绘制矩形 本处程序没有创建矩形变量，而是直接绘制矩形，运行结果完全相同。程序运行结果如图13-5所示。 先在窗体上添加命令按钮Button1，单击某个命令按钮(Button1)在窗体上绘制矩形的程序如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim p As Pen = New Pen(Color.Red, 10) p.DashStyle = Drawing.Drawing2D.DashStyle.Dot p是红色、宽度为10、点线的钢笔 Dim g As Graphics g是Graphics类变量 g = Me.CreateGraphics g.DrawRectangle(p, 10, 10, 100, 150) End Sub 13.3.3 绘制椭圆(圆) 可以把圆理解成为高度和宽度都相同的椭圆。这样在VB.NET中就没有专门的用于绘制圆的方法了。绘制椭圆可以使用Graphics类提供的方法DrawEllipse()。与绘制矩形的方法十分相似，绘制椭圆的参数和绘制矩形的参数完全一样，语法为： Object.DrawEllipse(pen,rectangle) 可以这样理解：矩形是用来限定椭圆的，矩形的宽度就是椭圆的宽度，矩形的高度就是椭圆的高度，因此一个矩形可以惟一确定一个椭圆(或者圆)。 如果没有一个矩形对象(而且我们也不想创建这样的对象)，这时可以使用DrawEllipse( )方法的另外一种格式来绘制椭圆或者圆： Object. DrawEllipse (pen,x,y,width,height) 例13-2 在窗体上添加命令按钮(Button1)，单击该按钮，绘制椭圆。程序如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim p As Pen = New Pen(Color.Red, 10) p.DashStyle = Drawing.Drawing2D.DashStyle.Dot p是红色、宽度为10、点线的钢笔 Dim g As Graphics g是Graphics类变量 g = Me.CreateGraphics g.DrawEllipse(p, 10, 10, 100, 150) End Sub 图13-6 绘制椭圆 13.3.4 填充矩形与椭圆(圆) Graphics类提供的FillRectangle( )方法用于填充矩形，提供的FillEllipse()方法用于填充椭圆。 语法分别为： Object. FillRectangle(brush,rect)和Object. FillEllipse(brush,rect) 其中brush是一个Brush类对象，可以是前面章节中提到的SolidBrush类、TextureBrush类和LinearGradientBrush类等，而rect是一个矩形类对象。 如果没有声明矩形类变量可以使用另外一种语法格式： Object. FillRectangle(brush, x,y,width,height) 和 Object. FillEllipse (brush, x,y,width,height) 下面是一个填充椭圆的例子，在窗体上有命令按钮Button1，单击Button1填充椭圆。程序如下： P