2023学年完整公开课版图形与图像

第十一讲图形与图像胡小江e-mail:jtclass@163.com课程内容安排坐标系统图形属性图形控件图形方法综合练习思考和习题坐标系统在VisualBasic6.0中绘制图形是在VisualBasic6.0定义的对象坐标下完成的。VisualBasic6.0的对象坐标系统与直角坐标系类似。不同的是，系统默认的坐标系是以对象左上角为坐标原点（0，0），以Twips（缇）为量度单位，如图11.2所示。对象坐标的X轴沿水平方向向右，而Y轴方向沿垂直方向向下。坐标的量度由对象的ScaleMode属性决定，默认单位为Twips，还可以根据需要使用磅、像素及厘米等单位。对窗体来说，屏幕的左上角是坐标原点。窗体的Height属性值是指包括标题栏和水平边框的宽度；窗体的Width属性值包括了垂直边框的宽度。而ScaleHeight属性和ScaleWidth属性决定了窗体内部可用尺寸，也就是通常所讲的客户区。

图形属性上一节介绍了图形的基本知识。在了解这些基本知识的基础上，本节主要介绍绘制图形时需要掌握的一些图形的基本属性。VisualBasic6.0中的图形绘制都是以这些基本属性为基础的，希望读者能够熟练掌握本节内容。CurrentX属性和CurrentY属性CurrentX属性和CurrentY属性分别返回或设置下一次打印或绘图的水平或垂直坐标，这两个属性在设计时不可用。可以通过CurrentX属性和CurrentY属性来获取当前坐标，或者是设置要绘制图形的下一个坐标位置。坐标从对象的左上角开始测量，在对象的左边的CurrentX属性值为0，上边的CurrentY属性值为0。坐标以缇为单位表示。语法如下所示。object.CurrentX[=x]object.CurrentY[=y]根据CurrentX和CurrentY属性的值，在窗体上输出“CurrentX属性和CurrentY属性”字样。代码如下所示。示例代码11-101 OptionExplicit02 'CurrentX属性和CurrentY属性03 PrivateSubForm_Load()04 frmMain.Font.Size=20 '设置窗体字号05 frmMain.CurrentX=800 '设置窗体CurrentX值06 frmMain.CurrentY=800 '设置窗体CurrentY值07 Print"CurrentX属性和CurrentY属性" '显示内容08 EndSubBackColor属性和ForeColor属性BackColor属性用于返回或设置对象的背景颜色；ForeColor属性用于返回或设置对象中显示图形或文本的前景颜色。语法如下所示。object.BackColor[=color]object.ForeColor[=color]用窗体的BackColor属性和ForeColor属性随机改变窗体及窗体上文本的颜色。代码如下所示。示例代码11-201 OptionExplicit02 DimrndColor(1To3)AsInteger '定义颜色数组03 PrivateSubTimer1_Timer() Timer事件04 DimiAsInteger '定义循环变量05 Fori=1To3 '用For循环初始化06 Randomize07 rndColor(i)=255*Rnd '随机生成颜色08 Nexti09 10 frmMain.ForeColor=RGB(rndColor(2),rndColor(1),rndColor(3)) '设置前景演示11 frmMain.CurrentX=500 '在指定位置输出文本12 frmMain.CurrentY=50013 frmMain.Font.Size=20 '设置窗体文本字体大小14 Print"背景颜色和前景颜色演示" '打印标题15 frmMain.BackColor=RGB(rndColor(1),rndColor(2),rndColor(3)) '设置背景颜色16 EndSubDrawWidth属性、DrawStyle属性和DrawMode属性DrawWidth属性用于返回或设置图形输出的线宽。随着该属性值的增加，对象上输出的图形线宽也会相应增加。语法如下所示。object.DrawWidth[=size]用不同的DrawWidth属性值画出直线。代码如下所示。示例代码11-301 OptionExplicit02 'DrawWidth属性03 PrivateSubForm_Load()04 DimiAsInteger '定义循环变量05 DrawWidth=1 '初始化线宽为106 07 Fori=1To20Step2 '每隔2个线宽单位08 DrawWidth=i '设置线宽09 frmMain.Line(0,i*200)-(5000,i*200) '绘制不同线宽的直线10 Nexti11 EndSubFillColor属性和FillStyle属性FillColor属性返回或设置用于填充形状的颜色。例如，可以用该属性来填充由Circle和Line图形函数生成的圆和方框。语法如下所示。object.FillColor[=value]FillStyle属性用于FillStyle属性用于返回设置由Shape控件、Circle方法和Line方法生成的圆和方框的模式。以及由Circle和Line图形方法生成的圆和方框的模式。例如，在绘制机械零件的剖面图时，需要为不同剖面填充不同的图形以表示区别。语法如下所示。object.FillStyle[=number]在窗体上单击鼠标，并以鼠标单击位置为圆心画出半径为500单位的圆。用FillColor和FillStyle属性来设置填充颜色和填充样式。代码如下所示。示例代码11-601 OptionExplicit02 'FillColor和FillStyle属性使用演示03 PrivateSubForm_Load()04 DimiAsInteger '定义填充样式变量05 06 FillColor=RGB(10,99,124) '设置填充颜色07 Fori=0To708 FillStyle=i '设置填充样式09 Circle(i*1200+600,500),500 '根据填充颜色和填充样式画圆10 Nexti11 EndSub图形控件图形控件用于完成基本图形的绘制，读者可以借助图形控件提供的属性和方法，方便地绘制出基本图形。在VisualBasic6.0中提供了Shape控件与Line控件用于图形的绘制。下面分别对这两种控件予以介绍。Shape控件通过Shape控件在不用编写代码的情况下绘制出基本的图形。例如，矩形、正方形、椭圆、圆角矩形或者是圆角正方形。该控件也可以设置图形的颜色、填充样式、边框颜色和边框样式。Shape控件最主要的属性为value属性，读者只需设置相应的属性值，即可画出所需的图形样式。Line控件Line控件用于在窗体或其他容器控件中画出直线。Line控件虽然比较简单，但在窗体或容器控件的AutoRedraw属性设置为False时，Line控件绘制的直线也会保留在窗体或容器控件上。Line控件的主要属性是X1、X2、Y1及Y2属性，其他属性可以参考11.2节的内容。其中的X1和Y1指的是起点的水平和垂直坐标，X2和Y2指的是终点的水平和垂直坐标。语法如下所示。object.X1[=value]object.Y1[=value]object.X2[=value]object.Y2[=value]利用Line控件的X1、X2、Y1及Y2属性，在窗体上随机画出直线。在程序中加入一个Timer控件，设置Interval属性为500。为Timer事件添加代码，如下所示。示例代码11-701 OptionExplicit02 'Line控件使用演示03 PrivateSubTimer1_Timer()04 WithLine1 '设置Line控件的属性05 Randomize06 .BorderColor=QBColor(Int(Rnd*16)) '设置Line控件的颜色07 .X1=2000 '设置起点坐标08 .Y1=200009 .X2=3000*Rnd+500 '随机生成终点坐标10 .Y2=3000*Rnd+50011 EndWith12 EndSub图形方法PSet方法用于将对象上的点设置为指定的颜色。该方法其实是通过改变指定点的颜色来绘制点，当PSet方法的颜色设置与对象相同时，是没有绘图效果的。语法如下所示。object.PSet[Step](x,y)[color]Line方法用于在对象上画直线或矩形。Line方法是VisualBasic6.0中画线最常用的方法，通过该方法，读者可以根据需要在运行时画出图形。语法如下所示。object.Line[Step](x1,y1)[Step](x2,y2),[color],[B][F]Circle方法可画出圆形和椭圆形的各种形状。此外，Circle方法还可以画出圆弧和楔形饼块。在设计需要绘制图形来表示数据的程序中，该方法可以实现很多绘图功能。灵活地使用Circle方法，可以画出多种曲线。语法如下所示。object.Circle[Step](x,y),radius,[color],[start],[end],[aspect]Cls方法用于清除运行时Form或PictureBox控件中所生成的图形和文本。该方法的使用比较