VB程序设计第8章图形程序设计.ppt

《VB程序设计第8章图形程序设计.ppt》由会员分享，可在线阅读，更多相关《VB程序设计第8章图形程序设计.ppt（69页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第8 8章章 图形程序设计图形程序设计 第第8 8章章 图形程序设计图形程序设计 8.1 8.1 知识要点知识要点 8.2 8.2 习题与解答习题与解答 8.3 8.3 实训指导实训指导 8.4 8.4 测验题测验题 8.1 8.1知识要点知识要点1 1、图形设计基础、图形设计基础（1 1）坐标系统）坐标系统Visual BasicVisual Basic用坐标来描述一个像素位于存放他用坐标来描述一个像素位于存放他的容器内的位置。而每个容器都有自己的一的容器内的位置。而每个容器都有自己的一个坐标系，构成一个坐标系要包含三个基本个坐标系，构成一个坐标系要包含三个基本要素，那就是：坐标原点、坐标

2、度量单位和要素，那就是：坐标原点、坐标度量单位和坐标轴的长度和方向。坐标轴的长度和方向。缺省情况下，坐标系的坐标原点在对象的左上缺省情况下，坐标系的坐标原点在对象的左上角，横向向右为角，横向向右为X X轴的正方向，纵向向下为轴的正方向，纵向向下为Y Y轴的正方向。轴的正方向。用户可以通过两种方法来自行定义坐标系。用户可以通过两种方法来自行定义坐标系。通过修改通过修改ScaleTopScaleTop、ScaleLeftScaleLeft、ScaleWidthScaleWidth和和ScaleHeightScaleHeight的属性值建立坐标系。的属性值建立坐标系。使用使用ScaleScale方法

3、来设置坐标系。方法来设置坐标系。ScaleScale方法用于定义方法用于定义FormForm、PictureBoxPictureBox或或PrinterPrinter的坐标系的坐标系统，其语法格式为：统，其语法格式为：对象对象.Scale(x1,y1)-(x2,y2).Scale(x1,y1)-(x2,y2)其中：其中：对象为可选项，它可以是对象为可选项，它可以是FormForm、PictureBoxPictureBox或或PrinterPrinter对象。对象。(x1,y1)(x1,y1)为所定义坐标系的左上角的坐标。为所定义坐标系的左上角的坐标。(x2,y2)(x2,y2)为所定义坐标系的

4、右下角坐标。为所定义坐标系的右下角坐标。（2 2）图形层）图形层Visual BasicVisual Basic在构造图形时，在三个不同的屏幕层在构造图形时，在三个不同的屏幕层次上放置可视的组成部分。工具箱中除了标签、次上放置可视的组成部分。工具箱中除了标签、直线、形状外的控件放在最上层，标签、直线和直线、形状外的控件放在最上层，标签、直线和形状控件放在中间层，最下层放置的是由图形方形状控件放在中间层，最下层放置的是由图形方法所绘制的图形。法所绘制的图形。同一图形层上控件对象的排列顺序称为同一图形层上控件对象的排列顺序称为Z-Z-顺序。顺序。调整调整Z-Z-顺序的方法有两中：顺序的方法有两中：

5、在窗体设计阶段时，选中要调整的控件，单击在窗体设计阶段时，选中要调整的控件，单击“格式格式”菜单，选择菜单，选择“顺序顺序”菜单项，再选择菜单项，再选择“置前置前”或或“置后置后”命令即可。命令即可。代码中使用代码中使用ZorderZorder方法。方法。ZorderZorder方法的语法格式为：方法的语法格式为：Object.ZorderObject.Zorder position position其中：其中：ObjectObject为要调整的窗体或其他控件对象。为要调整的窗体或其他控件对象。PositionPosition为一整数，用于指出一个控件相对于另一个控件的为一整数，用于指出一个控

6、件相对于另一个控件的位置。如果位置。如果PositionPosition为为0 0或被省略，则或被省略，则ObjectObject位于位于 Z-Z-顺序的前面；如果顺序的前面；如果PositionPosition为为1 1，则，则ObjectObject位于位于 Z-Z-顺序的后面。顺序的后面。（3 3）颜色设置函数）颜色设置函数Visual BasicVisual Basic提供了两个选择颜色的函数提供了两个选择颜色的函数RGBRGB（）和（）和QBColorQBColor（）。（）。RGBRGB（）函数（）函数RGBRGB（）函数通过红、绿、蓝三种基本色的混合来生成某（）函数通过红、绿、蓝

7、三种基本色的混合来生成某种颜色，其语法格式为：种颜色，其语法格式为：RGBRGB（red,green,bluered,green,blue）其中，其中，redred、greengreen和和blueblue三个参数都是必要参数，分别表三个参数都是必要参数，分别表示红、绿和蓝色的颜色成分，它们的取值范围都是示红、绿和蓝色的颜色成分，它们的取值范围都是02550255间的整数。间的整数。QBColorQBColor（）函数（）函数QBColorQBColor（）函数能提供（）函数能提供1616中颜色，其语法格式为：中颜色，其语法格式为：QBColorQBColor（colorcolor）其中，其中

8、，colorcolor为必要参数，是一个界于为必要参数，是一个界于015015间的整间的整数，每个整数代表一种颜色。数，每个整数代表一种颜色。2 2、图形控件、图形控件 VBVB提供了直线控件（提供了直线控件（LineLine）和形状控件（）和形状控件（ShapeShape）两种）两种常用的图形控件。用户可以使用图形控件方便地完成规常用的图形控件。用户可以使用图形控件方便地完成规则几何图形的绘制。则几何图形的绘制。（1 1）直线控件）直线控件直线控件（直线控件（LineLine）可以用来在窗体或图片框上画直线。分）可以用来在窗体或图片框上画直线。分别用别用x1x1，y1y1和和x2x2，y2y

9、2来返回或控制线条起始点和终止点来返回或控制线条起始点和终止点在在X X轴和轴和Y Y轴方向上的位置。轴方向上的位置。（2 2）形状控件）形状控件形状控件（形状控件（ShapeShape）可以用来画矩形、正方形、椭圆、圆、）可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形，圆角矩形及圆角正方形，6 6种图形分别对应其种图形分别对应其ShapeShape属性属性的的0505的的6 6个属性值。个属性值。3 3、图形方法、图形方法 VBVB提供了绘制点、线、圆等方法，利用它们可提供了绘制点、线、圆等方法，利用它们可以使绘制图形更加灵活。以使绘制图形更加灵活。（1 1）LineLine方法方法

10、 Line Line方法的基本功能是在窗体或图片框上画直线方法的基本功能是在窗体或图片框上画直线和矩形。此外，利用和矩形。此外，利用LineLine方法还可以绘制出各种方法还可以绘制出各种曲线，因为任何曲线都可以近似地看成是由无数曲线，因为任何曲线都可以近似地看成是由无数条小线段组成的。条小线段组成的。LineLine方法的语法格式为：方法的语法格式为：对象对象.Line Step(x1,y1)-Step(x2,y2),.Line Step(x1,y1)-Step(x2,y2),颜色颜色,B F,B F其中：其中：对象可以是窗体或图片框，缺省为窗体。对象可以是窗体或图片框，缺省为窗体。(x1,

11、y1)(x1,y1)和和(x2,y2)(x2,y2)分别表示线段的起始坐标和终止分别表示线段的起始坐标和终止坐标。坐标。（2 2）CircleCircle方法方法CircleCircle方法的基本功能是在窗体或图片框上绘制圆、椭圆、方法的基本功能是在窗体或图片框上绘制圆、椭圆、弧或扇形。它的语法格式如下：弧或扇形。它的语法格式如下：对象对象.Circle Step(x,y),radius,color,start,end,aspect.Circle Step(x,y),radius,color,start,end,aspect 其中：其中：对象是调用对象是调用CircleCircle方法的对象名

12、称。方法的对象名称。(x,y)(x,y)用来指定圆心坐标。用来指定圆心坐标。RadiusRadius表示半径的长度。表示半径的长度。ColorColor为所画图形的颜色。为所画图形的颜色。start start 和和endend分别表示圆弧或椭圆弧的开始和终止角度。分别表示圆弧或椭圆弧的开始和终止角度。aspectaspect是所画圆的纵横尺寸比。是所画圆的纵横尺寸比。（3 3）PsetPset与与PointPoint方法方法 PsetPset方法方法PsetPset方法的基本功能是在窗体或图片框上绘制点。它的语方法的基本功能是在窗体或图片框上绘制点。它的语法格式如下：法格式如下：对象对象.P

13、setPset Step(x,y),color Step(x,y),color其中：其中：对象是调用对象是调用PsetPset方法的对象名称。方法的对象名称。(x,y)(x,y)用来指定点的水平和垂直坐标。用来指定点的水平和垂直坐标。ColorColor用来指定点的颜色。用来指定点的颜色。Point Point方法方法PointPoint方法用来返回窗体或图片框上指定位置的颜色值，用方法用来返回窗体或图片框上指定位置的颜色值，用长整型数据来表示。它的语法格式如下：长整型数据来表示。它的语法格式如下：对象对象.Point(x,y).Point(x,y)其中：对象和其中：对象和(x,y)(x,y)

14、的用法和的用法和PsetPset方法相同。方法相同。PaintPicturePaintPicture方法方法PaintPicturePaintPicture方法可以访问内置操作系统中的位块传送机制方法可以访问内置操作系统中的位块传送机制快速地操作像素，具体来说快速地操作像素，具体来说PaintPicturePaintPicture方法可以在窗方法可以在窗体、图片框或打印机上绘制文件的内容（图形文件的格体、图片框或打印机上绘制文件的内容（图形文件的格式可以是式可以是“.bmp”.bmp”、“.wmfwmf”、“.emfemf”、“.cur”.cur”、“.icoico”或或“.dib”.dib”

15、）。）。PaintPicturePaintPicture方法的语法格式方法的语法格式如下：如下：对象对象.PaintPicturePaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode其中：其中：对象为调用该方法的对象名称，通常是目标图对象为调用该方法的对象名称，通常是目标图形对象。形对象。picturepicture为绘制到对象上的图形源，可以是图为绘制到对象上的图形源，可以是图形框、图像框或窗体

16、的形框、图像框或窗体的picturepicture属性。属性。x1,y1x1,y1指定在对象上绘制指定在对象上绘制picturepicture的目标坐标，的目标坐标，即目标矩形区域的左上角坐标，它可以是目即目标矩形区域的左上角坐标，它可以是目标控件的任意位置。标控件的任意位置。width1,height1width1,height1分别指定分别指定picturepicture的目标的目标宽度和目标高度。宽度和目标高度。x2,y2x2,y2指定指定picturepicture内剪贴区的位置，即内剪贴区的位置，即传送图形矩形的左上角坐标。传送图形矩形的左上角坐标。width2,height2wid

17、th2,height2指定指定picturepicture内剪贴区的内剪贴区的宽度和高度，从而确定传送图形的大宽度和高度，从而确定传送图形的大小。小。第第8 8章章 图形程序设计图形程序设计 8.1 8.1 知识要点知识要点 8.2 8.2 习题与解答习题与解答 8.3 8.3 实训指导实训指导 8.4 8.4 测验题测验题 8.2 8.2习题与解答习题与解答1 1、描述、描述VBVB缺省的坐标系，用户自定义坐标系的方法有哪些缺省的坐标系，用户自定义坐标系的方法有哪些？答案：缺省情况下，坐标系的坐标原点在对象的左上角，答案：缺省情况下，坐标系的坐标原点在对象的左上角，横向向右为横向向右为X X

18、轴的正方向，纵向向下为轴的正方向，纵向向下为Y Y轴的正方向。轴的正方向。用户可以通过两种方法来自行定义坐标系。一种是通过修用户可以通过两种方法来自行定义坐标系。一种是通过修改改ScaleTopScaleTop、ScaleLeftScaleLeft、ScaleWidthScaleWidth和和ScaleHeightScaleHeight的的属性值建立坐标系；另一种是使用属性值建立坐标系；另一种是使用ScaleScale方法来设置坐标方法来设置坐标系。系。2 2、VBVB提供了几个图形控件？它们的功能分别是什提供了几个图形控件？它们的功能分别是什么？么？答案：答案：VBVB提供了直线控件（提供了

19、直线控件（LineLine）和形状控件（）和形状控件（ShapeShape）两种常用的图形控件。分别用来在窗体或图片框上画直两种常用的图形控件。分别用来在窗体或图片框上画直线和矩形、正方形、椭圆、圆、圆角矩形及圆角正方形线和矩形、正方形、椭圆、圆、圆角矩形及圆角正方形3 3、熟悉利用、熟悉利用LineLine画图的方法，说出下面几个语句的含义。画图的方法，说出下面几个语句的含义。（1）Form1.Line(1000,1000)-(3000,3000)（2）Form1.Line-(3000,3000),RGB(255,0,0)（3）Form1.Line Step(1000,1000)-(3000

20、,3000)（4）Form1.Line(1000,1000)-(3000,3000),RGB(255,0,0),B（5）Form1.Line(1000,1000)-(3000,3000),RGB(255,0,0),BF答案：略（读者可以自行上机验证）。答案：略（读者可以自行上机验证）。4 4、熟悉利用、熟悉利用CircleCircle画图的方法，说出下面几个语画图的方法，说出下面几个语句的含义（句的含义（pi=3.1415926pi=3.1415926）。）。（1 1）Form1.Circle Step(2000,2000),1000,QBColor(1)Form1.Circle Step(2

21、000,2000),1000,QBColor(1)（2 2）Form1.Circle(2000,2000),1000,3*pi/2,pi/3Form1.Circle(2000,2000),1000,3*pi/2,pi/3（3 3）Form1.Circle(2000,2000),1000,3*pi/2,0.5Form1.Circle(2000,2000),1000,3*pi/2,0.5（4 4）Form1.Circle(2000,2000),1000,QBColor(2),-3*Form1.Circle(2000,2000),1000,QBColor(2),-3*pi/2,-pipi/2,-pi

22、答案：略（读者可以自行上机验证）。答案：略（读者可以自行上机验证）。5 5、说出、说出PsetPset方法和方法和PointPoint方法的基本功能和使用方法。方法的基本功能和使用方法。答案：答案：PsetPset方法的基本功能是在窗体或图片框上绘制点；方法的基本功能是在窗体或图片框上绘制点；PointPoint方法用来返回窗体或图片框上指定位置的颜色值，方法用来返回窗体或图片框上指定位置的颜色值，用长整型数据来表示。（使用方法略）用长整型数据来表示。（使用方法略）6 6、怎样通过、怎样通过PaintPicturePaintPicture方法实现像素操作。方法实现像素操作。答案：答案：Pain

23、tPicturePaintPicture方法可以访问内置操作系统中的位块方法可以访问内置操作系统中的位块传送机制快速地操作像素。传送机制快速地操作像素。PaintPicturePaintPicture方法常常用来方法常常用来从一个窗体或图片框控件中向另一个对象复制一个矩形从一个窗体或图片框控件中向另一个对象复制一个矩形区域的像素。区域的像素。continuecontinue 在复制时，如果设置要传送的图形宽度位负数，在复制时，如果设置要传送的图形宽度位负数，则复制后的图像水平翻转；如果设置要传送的图则复制后的图像水平翻转；如果设置要传送的图形高度位负数，则复制后的图像上下翻转；设置形高度位负数

24、，则复制后的图像上下翻转；设置要传送的图形宽度和高度均为位负数，则复制后要传送的图形宽度和高度均为位负数，则复制后的图像在两个方向上翻转。目标图形的大小，可的图像在两个方向上翻转。目标图形的大小，可以通过目标图形与源图像大小的比例而得，即如以通过目标图形与源图像大小的比例而得，即如果目标图形比源图形大，就可得到放大的图形。果目标图形比源图形大，就可得到放大的图形。第第8 8章章 图形程序设计图形程序设计 8.1 8.1 知识要点知识要点 8.2 8.2 习题与解答习题与解答 8.3 8.3 实训指导实训指导 8.4 8.4 测验题测验题 8.3 8.3实训指导实训指导8.3.18.3.1技能训

25、练目的技能训练目的 掌握建立用户自定义坐标系的方法。掌握建立用户自定义坐标系的方法。掌握直线和形状控件的使用方法。掌握直线和形状控件的使用方法。掌握利用掌握利用LineLine方法在窗体或图片框上画直线和矩形的方法在窗体或图片框上画直线和矩形的技巧。技巧。掌握利用掌握利用CircleCircle方法在窗体或图片框上绘制圆、椭圆方法在窗体或图片框上绘制圆、椭圆或弧等图形的技巧。或弧等图形的技巧。掌握利用掌握利用PsetPset与与PointPoint方法对点操作的方法。方法对点操作的方法。掌握利用掌握利用PaintPicturePaintPicture方法实现像素操作的方法。方法实现像素操作的方

26、法。8.3.28.3.2技能训练内容技能训练内容【实训实训8.18.1】利用直线和形状控件模拟两个小球相撞过程。利用直线和形状控件模拟两个小球相撞过程。程序运行白球和黑球分别向右和左运动，当两球相撞后，程序运行白球和黑球分别向右和左运动，当两球相撞后，分别向相反方向运动，如图分别向相反方向运动，如图8-18-1所示。所示。提示：在窗体上添加直线控件（提示：在窗体上添加直线控件（Line1Line1）、图形控件）、图形控件（Shape1Shape1）、图形控件（）、图形控件（Shape2Shape2）、时钟控件）、时钟控件（timer1timer1）和时钟控件（）和时钟控件（timer2time

27、r2）。）。Line1Line1的的BorderWidthBorderWidth属性设置为属性设置为2 2，Shape1Shape1的的FillColorFillColor和和BorderColorBorderColor属性设置为黑色，属性设置为黑色，Shape1Shape1的的FillColorFillColor和和BorderColorBorderColor属性设置为白色，属性设置为白色，timer1timer1和和timer2timer2的的IntervalInterval属性设置为属性设置为100100。图图8-1参考代码：参考代码：两个小球相向而行两个小球相向而行Private Su

28、b Timer1_Timer()Private Sub Timer1_Timer()If Shape1.Left Shape2.Left+Shape2.Width+400 Then If Shape1.Left Shape2.Left+Shape2.Width+400 Then Shape1.Left=Shape1.Left=Shape1.LeftShape1.Left-200-200 Shape2.Left=Shape2.Left=Shape2.LeftShape2.Left+200+200ElseElse Timer2.Enabled=True Timer2.Enabled=True Ti

29、mer1.Enabled=False Timer1.Enabled=FalseEnd IfEnd IfEnd SubEnd Sub 两个小球背向而行两个小球背向而行Private Sub Timer2_Timer()Private Sub Timer2_Timer()Shape1.Left=Shape1.Left=Shape1.LeftShape1.Left+200+200 Shape2.Left=Shape2.Left=Shape2.LeftShape2.Left-200-200End SubEnd Sub【实训实训8.28.2】在窗体上画出从同一起点出发的在窗体上画出从同一起点出发的100

30、100条条长度不等的射线，如图长度不等的射线，如图8-28-2所示。所示。图图8-2参考代码：参考代码：Private Sub Form_Click()Dim i As IntegerForm1.ClsFor i=1 To 100RandomizeCurrentX=Rnd()*Form1.ScaleWidthCurrentY=Rnd()*Form1.ScaleHeightForm1.Line-(0,0)Next iEnd Sub【实训实训8.38.3】在窗体上画出螺旋线，如图在窗体上画出螺旋线，如图8-38-3所示。所示。图图8-3参考代码：参考代码：Private Sub Form_Pain

31、t()Dim pi as singlepi=4*Atn(1)Form1.Scale(-60,60)-(60,-60)Form1.Line(0,60)-(0,-60)Form1.Line(-60,0)-(60,0)Form1.Circle(0,0),5,pi,2*piForm1.Circle(-3,0),8,0,piForm1.Circle(0,0),11,pi,2*piForm1.Circle(-3,0),14,0,piForm1.Circle(0,0),17,pi,2*piForm1.Circle(-3,0),20,0,piForm1.Circle(0,0),23,pi,2*piForm1.

32、Circle(-3,0),26,0,piForm1.Circle(0,0),29,pi,2*piEnd Sub【实训实训8.48.4】窗体上两个按钮的功能分别是在图片窗体上两个按钮的功能分别是在图片框里画出同心圆和同心矩形，如图框里画出同心圆和同心矩形，如图8-48-4和图和图8-58-5所所示。示。提示：在窗体上添加图片框（提示：在窗体上添加图片框（picture1picture1）、两个命令按钮）、两个命令按钮（command1command1和和command2command2），命令按钮的），命令按钮的CaptionCaption属属性分别设置为性分别设置为“同心圆同心圆”和和“同心矩

33、形同心矩形”。图图8-4图图8-5参考代码：参考代码：画同心圆画同心圆Private Sub Command1_Click()Private Sub Command1_Click()Form1.Caption=Form1.Caption=同心圆同心圆 Picture1.ClsPicture1.ClsPicture1.Scale(-100,100)-(100,-100)Picture1.Scale(-100,100)-(100,-100)r=10r=10For i=1 To 10For i=1 To 10Picture1.Circle(0,0),r+5*iPicture1.Circle(0,0)

34、,r+5*iNext iNext iEnd SubEnd Sub 画同心矩形画同心矩形Private Sub Command2_Click()Private Sub Command2_Click()Form1.Caption=Form1.Caption=同心矩形同心矩形 Picture1.ClsPicture1.ClsPicture1.Scale(-100,100)-(100,-100)Picture1.Scale(-100,100)-(100,-100)r=10r=10For i=1 To 10For i=1 To 10r=r+5*ir=r+5*iPicture1.Line(r+5,Pict

35、ure1.Line(r+5,r)-(-rr)-(-r-5,-r),B-5,-r),BNext iNext iEnd SubEnd Sub【实训实训8.58.5】分别利用点和小线段模拟分别利用点和小线段模拟y=(sin(x)+cos(2x)/2y=(sin(x)+cos(2x)/2数学函数曲线，如图数学函数曲线，如图8-68-6所所示。示。图图8-6参考代码：参考代码：1 1、利用点实现、利用点实现Private Sub Private Sub Form_PaintForm_Paint()()Dim i As Single,pi As DoubleDim i As Single,pi As Do

36、ublepi=4*Atn(1)pi=4*Atn(1)Form1.Scale(-2*pi,1)-(2*pi,-1)Form1.Scale(-2*pi,1)-(2*pi,-1)Form1.Line(-2*pi,0)-(2*pi,0)Form1.Line(-2*pi,0)-(2*pi,0)Form1.Line(0,1)-(0,-1)Form1.Line(0,1)-(0,-1)For i=-2*pi To 2*pi Step 0.01For i=-2*pi To 2*pi Step 0.01Form1.PSet(i,(Form1.PSet(i,(Sin(iSin(i)+Cos(2*i)/2)+Cos(

37、2*i)/2)Next iNext iEnd SubEnd Sub2 2、利用小线段实现、利用小线段实现Private Sub Private Sub Form_PaintForm_Paint()()Dim i As Single,pi As DoubleDim i As Single,pi As Doublepi=4*Atn(1)pi=4*Atn(1)计算圆周率计算圆周率Form1.Scale(-2*pi,1)-(2*pi,-1)Form1.Scale(-2*pi,1)-(2*pi,-1)建立新坐标系建立新坐标系Form1.Line(-2*pi,0)-(2*pi,0)Form1.Line(-

38、2*pi,0)-(2*pi,0)绘制绘制x x轴轴Form1.Line(0,1)-(0,-1)Form1.Line(0,1)-(0,-1)绘制绘制y y轴轴CurrentXCurrentX=-2*pi=-2*piCurrentYCurrentY=(=(Sin(CurrentXSin(CurrentX)+Cos(2*)+Cos(2*CurrentXCurrentX)/2)/2For i=-2*pi To 2*pi Step 0.01 For i=-2*pi To 2*pi Step 0.01 用小线段来模拟曲线用小线段来模拟曲线Form1.Line-(i,(Form1.Line-(i,(Sin(

39、iSin(i)+Cos(2*i)/2)+Cos(2*i)/2)Next iNext iEnd SubEnd Sub【实训实训8.68.6】利用利用pointpoint方法把标签中的文本复制到方法把标签中的文本复制到窗体上，如图窗体上，如图8-78-7所示。所示。提示：在窗体上添加图片框（提示：在窗体上添加图片框（picture1picture1），设置合适的字），设置合适的字体，体，AutoRedrawAutoRedraw属性设置为属性设置为“true”true”。图图8-7参考代码：参考代码：Private Sub Private Sub Form_ActivateForm_Activate

40、()()Picture1.Print Picture1.Print 我爱北京天安门！我爱北京天安门！图图8-78-7End SubEnd SubPrivate Sub Private Sub Form_ClickForm_Click()()Form1.Scale(0,0)-(500,500)Form1.Scale(0,0)-(500,500)Picture1.Scale(0,0)-(500,500)Picture1.Scale(0,0)-(500,500)For i=1 To 500For i=1 To 500 For j=1 To 500 For j=1 To 500 Form1.PSet(

41、i,j),Picture1.Point(i,j)Form1.PSet(i,j),Picture1.Point(i,j)Next j Next jNext iNext iEnd SubEnd Sub【实训实训8.78.7】利用学过的画图方法画出颜色渐变背利用学过的画图方法画出颜色渐变背景，如图景，如图8-88-8所示。所示。图图8-8参考代码：参考代码：Private Sub Private Sub Form_PaintForm_Paint()()Dim i As Integer,x As Single,y As Single,h As SingleDim i As Integer,x As S

42、ingle,y As Single,h As Singlex=Form1.ScaleWidthx=Form1.ScaleWidthy=Form1.ScaleHeighty=Form1.ScaleHeighth=255/yh=255/yFor i=0 To yFor i=0 To y Form1.Line(0,Form1.Line(0,i)-(xi)-(x,i),i),RGB(iRGB(i*h,i*h,255)*h,i*h,255)Next iNext iEnd SubEnd Sub读者可以分析下面代码，然后上机验证代码所产生的效果。读者可以分析下面代码，然后上机验证代码所产生的效果。Priva

43、te Sub Private Sub Form_PaintForm_Paint()()Dim x As Single,y As Single,t As SingleDim x As Single,y As Single,t As SingleDim i As SingleDim i As SingleForm1.DrawWidth=2Form1.DrawWidth=2x=Form1.ScaleWidthx=Form1.ScaleWidthy=Form1.ScaleHeighty=Form1.ScaleHeightIf x y Then t=y 2 Else t=x 2If x y Then t

44、=y 2 Else t=x 2Form1.ScaleMode=1Form1.ScaleMode=1Form1.DrawStyle=0Form1.DrawStyle=0Form1.FillStyle=1Form1.FillStyle=1For i=0 To tFor i=0 To t Form1.Line(i,Form1.Line(i,i)-(xi)-(x-i,y-i),RGB(0,0,255-(i*255)t),BF-i,y-i),RGB(0,0,255-(i*255)t),BFNext iNext iEnd SubEnd Sub【实训实训8.88.8】模拟带有时针、分针、秒针及刻度的模拟带有

45、时针、分针、秒针及刻度的时钟，如图时钟，如图8-98-9所示。所示。提示：在窗体上添加时钟控件（提示：在窗体上添加时钟控件（timer1timer1）、直线控件数组）、直线控件数组（Line1Line1，只画出，只画出line1line1（0 0），长度、位置任意）。），长度、位置任意）。图图8-9参考代码：参考代码：Option ExplicitOption ExplicitPrivate Sub Private Sub Form_LoadForm_Load()()Timer1.Interval=1000Timer1.Interval=1000Form1.Width=4000Form1.Wi

46、dth=4000 Form1.Height=4000 Form1.Height=4000 Form1.Left=Form1.Left=Screen.WidthScreen.Width 2-2000 2-2000 Form1.Top=(Form1.Top=(Screen.HeightScreen.Height-Height)2-Height)2End SubEnd SubPrivate Sub Private Sub Form_ResizeForm_Resize()()Dim i,Angle Dim i,Angle Static flag As Boolean Static flag As Bo

47、olean If flag=False Then If flag=False Then flag=True flag=True 画出表盘画出表盘1212个点和时、分、秒共个点和时、分、秒共1515个个LineLineFor i=0 To 14For i=0 To 14 If i 0 Then Load Line1(i)If i 0 Then Load Line1(i)Line1(i).Visible=True Line1(i).Visible=True Line1(i).BorderWidth=5 Line1(i).BorderWidth=5 Line1(i).BorderColor=RGB(

48、0,128,0)Line1(i).BorderColor=RGB(0,128,0)设置设置LineLine的粗细和颜色的粗细和颜色 Next iNext i End If End If Scale(-1,1)-(1,-1)Scale(-1,1)-(1,-1)For i=0 To 14 For i=0 To 14 Angle=i*2*Atn(1)/3 Angle=i*2*Atn(1)/3 Line1(i).X1=0.9*Line1(i).X1=0.9*Cos(AngleCos(Angle)Line1(i).Y1=0.9*Line1(i).Y1=0.9*Sin(AngleSin(Angle)Lin

49、e1(i).X2=Line1(i).X2=Cos(AngleCos(Angle)Line1(i).Y2=Line1(i).Y2=Sin(AngleSin(Angle)Next i Next iEnd SubEnd SubPrivate Sub timer1_Timer()Private Sub timer1_Timer()Const HH=0 Const HH=0 Const MH=13 Const MH=13 Const SH=14 Const SH=14 Dim Angle Dim Angle Angle=0.5236*(15-(Angle=0.5236*(15-(Hour(NowHour

50、(Now)+)+Minute(NowMinute(Now)/60)/60)设置时针设置时针 Line1(HH).X1=0Line1(HH).X1=0 Line1(HH).Y1=0 Line1(HH).Y1=0 Line1(HH).X2=0.3*Line1(HH).X2=0.3*Cos(AngleCos(Angle)Line1(HH).Y2=0.3*Line1(HH).Y2=0.3*Sin(AngleSin(Angle)Angle=0.1047*(75-(Angle=0.1047*(75-(Minute(NowMinute(Now)+)+Second(NowSecond(Now)/60)/60)