1、14.1 图形设计基础图形设计基础坐标系统坐标系统 在在Visual BasicVisual Basic中，窗体、框架和图片框等都可以作中，窗体、框架和图片框等都可以作为其他控件的容器，所以这些控件又称为容器控件。每为其他控件的容器，所以这些控件又称为容器控件。每个容器控件都有自己的坐标系统，用来标识置于其中的个容器控件都有自己的坐标系统，用来标识置于其中的其他控件所在的具体位置。其他控件所在的具体位置。各坐标系在使用中可以采用各坐标系在使用中可以采用默认坐标系默认坐标系或或自定义坐标自定义坐标系的坐标值系的坐标值对位置进行标识。对位置进行标识。1.1.默认坐标系默认坐标系 无特殊设置时，容器
2、坐标系为默认设置，即：坐标原无特殊设置时，容器坐标系为默认设置，即：坐标原点在容器的左上角，水平向右为点在容器的左上角，水平向右为X X轴正方向；垂直向下为轴正方向；垂直向下为Y Y轴正方向。轴正方向。在默认坐标系中只有正值，没有负值。在默认坐标系中只有正值，没有负值。14.1 图形设计基础图形设计基础2.2.坐标单位坐标单位 坐标系的单位有坐标系的单位有TwipTwip、PointPoint、PixelPixel、CharacterCharacter、InchInch、MillimeterMillimeter、CentimeterCentimeter和用户自定义这和用户自定义这8 8种。种。
3、坐标系单位不同只改变度量单位和度量精度，不影响坐坐标系单位不同只改变度量单位和度量精度，不影响坐标轴的长度或作图容器和区域的大小。标轴的长度或作图容器和区域的大小。属性值属性值说明说明0-User0-User用户自定义，即用户自定义，即ScaleLeftScaleLeft、ScaleTopScaleTop、ScaleWidthScaleWidth、ScaleHeightScaleHeight属性由用户自行设置属性由用户自行设置1-Twip1-Twip缇，缇，1 1英寸约等于英寸约等于1440Twip1440Twip2-Point2-Point磅，磅，1 1英寸约英寸约7272个点个点3-Pix
4、el3-Pixel像素，像素，1 1像素像素=15Twip=15Twip4-Character4-Character字符，一个字符宽字符，一个字符宽120Twip120Twip、高、高240Twip240Twip5-Inch5-Inch英寸英寸6-Millimeter6-Millimeter毫米毫米7-Centimeter7-Centimeter厘米厘米ScaleModeScaleMode属性设置的语法格式：属性设置的语法格式：对象名对象名.ScaleMode=.ScaleMode=属性值属性值例如：例如：Form1.ScaleMode=3 Form1.ScaleMode=3 设置窗体坐标系的
5、坐标单位为像素。设置窗体坐标系的坐标单位为像素。Picture1.ScaleMode=1 Picture1.ScaleMode=1 设置图片框坐标系的坐标单位为设置图片框坐标系的坐标单位为TwipTwip。注意：注意：窗体与窗体内的容器控件（图片框等）的坐标单位是窗体与窗体内的容器控件（图片框等）的坐标单位是各自独立的。例如窗体的坐标单位设置为各自独立的。例如窗体的坐标单位设置为TwipTwip时，窗体内时，窗体内的容器控件的坐标单位可以为其它的容器控件的坐标单位可以为其它ScaleModeScaleMode属性值。两属性值。两者可以相同，也可以不同，根据用户的需要来设置。者可以相同，也可以不
6、同，根据用户的需要来设置。14.1 图形设计基础图形设计基础14.1 图形设计基础图形设计基础(2)(2)使用使用ScaleScale方法设置坐标系方法设置坐标系语法格式：语法格式：Object.Scale Object.Scale（xLeftxLeft，yTopyTop）-（xRightxRight，yBottomyBottom）其中：其中：ObjectObject：对象名；：对象名；ScaleScale：方法名；：方法名；（xLeftxLeft，yTopyTop）：对象的左上角坐标值；）：对象的左上角坐标值；（xRightxRight，yBottomyBottom）：对象右下角的坐标值。）
7、：对象右下角的坐标值。14.2 绘图控件绘图控件 为了在应用程序中体现出图形创作效果，为了在应用程序中体现出图形创作效果，Visual BasicVisual Basic包含了包含了直线控件直线控件和和形状控件形状控件。利用绘图控件可以在对象中。利用绘图控件可以在对象中绘制特定形状的图形。绘制特定形状的图形。1.1.直线控件（直线控件（LineLine）直线控件可以绘制水平线、垂直线或对角线。在设计时，直线控件可以绘制水平线、垂直线或对角线。在设计时，可以使用线条控件在窗体上、图片框和框架中添加线条。可以使用线条控件在窗体上、图片框和框架中添加线条。即使即使AutoRedrawAutoRedr
8、aw属性（自动重绘）的值被设置为属性（自动重绘）的值被设置为FalseFalse，直，直线控件绘制的线也会保留在窗体上。线控件绘制的线也会保留在窗体上。直线控件的主要属性有：直线控件的主要属性有：1)BorderStyle1)BorderStyle属性：设置线条的类型属性：设置线条的类型,属性值取值属性值取值06 06。属性值属性值说明说明0-vbTransparent0-vbTransparent透明线透明线1-vbBSSolid1-vbBSSolid实线实线2-vbBSDash2-vbBSDash虚线虚线3-vbBSDot3-vbBSDot点线点线4-vbBSDashDot4-vbBSDa
9、shDot点划线点划线5-vbBDDashDotDot5-vbBDDashDotDot双点划线双点划线6-vbBSInsideSolid6-vbBSInsideSolid内实线内实线14.2 绘图控件绘图控件 2 2）BorderWidthBorderWidth属性属性 设置线条的粗细。该属性受边框风格（设置线条的粗细。该属性受边框风格（BorderStyleBorderStyle）属性设置的影响。当属性设置的影响。当BorderWidthBorderWidth属性设置值大于属性设置值大于1 1时，时，BorderStyleBorderStyle属性的有效值为属性的有效值为1 1（实线）和（实
10、线）和6 6（内实线）；若（内实线）；若BorderStyleBorderStyle属性值为属性值为2424时，时，BorderWidthBorderWidth属性设置值只属性设置值只能为能为1 1，否则其表现形式会同实线一样。，否则其表现形式会同实线一样。3 3）BorderColorBorderColor属性属性 设置线条的颜色。设置线条的颜色。14.2 绘图控件绘图控件 2.2.形状控件（形状控件（ShapeShape）形状控件可以绘制矩形、圆等图形。将形状控件添加形状控件可以绘制矩形、圆等图形。将形状控件添加到窗体上时显示为一个矩形，通过属性的设置可确定最终到窗体上时显示为一个矩形，通
11、过属性的设置可确定最终的几何形状。的几何形状。形状控件除了具有与直线控件一样的形状控件除了具有与直线控件一样的BorderStyleBorderStyle、BorderWidthBorderWidth和和BorderColorBorderColor属性外，属性外，ShapeShape和和FillStyleFillStyle属属性是其特有属性。性是其特有属性。1 1）ShapeShape属性：设置控件显示形状。属性值取值属性：设置控件显示形状。属性值取值0606，默认值为默认值为0 0。属性值属性值说明说明0 0矩形矩形1 1正方形正方形2 2椭圆椭圆3 3圆圆4 4圆角矩形圆角矩形5 5圆角正
12、方形圆角正方形14.2 绘图控件绘图控件 2 2）FillStyleFillStyle属性：设置填充效果。属性值取值属性：设置填充效果。属性值取值0606，默认值为默认值为1 1。属性值属性值说明说明0 0实心实心1 1透明透明2 2水平线水平线3 3垂直线垂直线4 4斜线（左上右下）斜线（左上右下）5 5斜线（右上左下）斜线（右上左下）6 6十字线十字线7 7交叉斜线交叉斜线14.3 图形方法图形方法 1.PSet1.PSet方法方法 PSetPSet方法可以在窗体或图片框中指定位置画一个指定颜色的点。方法可以在窗体或图片框中指定位置画一个指定颜色的点。语法格式：语法格式：Object.PS
13、et StepObject.PSet Step（X X，Y Y）ColorColor 其中：其中：1)Object1)Object：使用：使用PSetPSet方法的对象名，可以是窗体和图片框；方法的对象名，可以是窗体和图片框；2)PSet 2)PSet：方法名；：方法名；3)Step3)Step：可缺省参数，在使用该关键字时，所画的点位于由：可缺省参数，在使用该关键字时，所画的点位于由CurrentXCurrentX和和CurrentYCurrentY属性表示的当前位置相对的（属性表示的当前位置相对的（X X，Y Y）处；）处；4)4)（X X，Y Y）：显示点的坐标位置；）：显示点的坐标位置
14、；5)Color5)Color：用来设置显示点的颜色，可使用：用来设置显示点的颜色，可使用RGBRGB函数或函数或QBColorQBColor函函数指定颜色。此参数可以缺省，缺省时为当前数指定颜色。此参数可以缺省，缺省时为当前ForeColorForeColor属性值。属性值。14.3 图形方法图形方法 2.Line2.Line方法方法 LineLine方法可以在窗体或图片框中指定的位置绘制指定方法可以在窗体或图片框中指定的位置绘制指定颜色的直线、曲线、空心矩形或填充矩形。语法格式：颜色的直线、曲线、空心矩形或填充矩形。语法格式：其中：其中：1)Object1)Object：对象名，窗体或图片
15、框。：对象名，窗体或图片框。2)Line2)Line：方法名。：方法名。3)Step3)Step：可缺省参数。：可缺省参数。4)4)（X1X1，Y1Y1）：画线的起始坐标位置。（）：画线的起始坐标位置。（X1X1，Y1Y1）可以）可以省略，若省略就表示从当前点开始绘制到（省略，若省略就表示从当前点开始绘制到（X2X2，Y2Y2）点，）点，当前点坐标可用其当前点坐标可用其CurrentXCurrentX、CurrentYCurrentY属性得到。属性得到。Object.Line Step（X1，Y1）Step（X2，Y2）Color，BF14.3 图形方法图形方法 5)5)（X2X2，Y2Y2）
16、：画线的结束坐标位置。）：画线的结束坐标位置。6)Color6)Color：线条的颜色，可用：线条的颜色，可用RGBRGB函数或函数或QBColorQBColor函数指定函数指定颜色。此参数可以缺省，缺省时以当前颜色。此参数可以缺省，缺省时以当前ForeColorForeColor属性颜属性颜色画线。色画线。7)B7)B：表示绘制矩形，缺省时为线条。：表示绘制矩形，缺省时为线条。8)F8)F：表示绘制填色矩形。：表示绘制填色矩形。14.3 图形方法图形方法注意：注意：1)1)绘制空心矩形或填充矩形时，语句中的（绘制空心矩形或填充矩形时，语句中的（x1x1，y1y1）表示）表示所画矩形左上角顶点
17、的坐标所画矩形左上角顶点的坐标,（x2x2，y2y2）表示所画矩形右）表示所画矩形右下角顶点的坐标。下角顶点的坐标。2)2)绘制的直线或矩形边框线的宽度可由所在对象的绘制的直线或矩形边框线的宽度可由所在对象的DrawWidthDrawWidth属性来设定。语法格式：属性来设定。语法格式：DrawWidth=DrawWidth=值值3)3)绘制的直线或矩形边框线的线型可由所在对象的绘制的直线或矩形边框线的线型可由所在对象的DrawStyleDrawStyle属性来设定。语法格式：属性来设定。语法格式：对象名对象名.属性名属性名 =值值 14.3 图形方法图形方法 3.Circle3.Circle
18、方法方法 CircleCircle方法可以在窗体或图片框指定的位置画一个指定方法可以在窗体或图片框指定的位置画一个指定颜色的圆、椭圆、圆弧或扇形。语法格式：颜色的圆、椭圆、圆弧或扇形。语法格式：其中：其中：1)Object1)Object：对象名，窗体或图片框。：对象名，窗体或图片框。2)Circle2)Circle：方法名。：方法名。3)Step3)Step：可缺省参数。使用该关键字时，（：可缺省参数。使用该关键字时，（x x，y y）的坐标表示）的坐标表示位置为位置为CurrentXCurrentX和和CurrentYCurrentY属性表示的当前位置的相对距离。属性表示的当前位置的相对距
19、离。4)4)（x x，y y）：圆心坐标位置。）：圆心坐标位置。5)Radius5)Radius：圆半径。：圆半径。Object.Circle Step（x，y），），Radius，Color，Start，End，Aspect14.3 图形方法图形方法 6)Color6)Color：绘制形状边框的颜色，可用：绘制形状边框的颜色，可用RGBRGB函数或函数或QBColorQBColor函数函数指定颜色。此参数可以缺省，缺省时为当前指定颜色。此参数可以缺省，缺省时为当前ForeColorForeColor属性颜属性颜色。色。7)Start7)Start：画弧的起始角，单位为弧度。：画弧的起始角，单
20、位为弧度。8)End8)End：画弧的终止角，单位为弧度。：画弧的终止角，单位为弧度。9)Aspect9)Aspect：表示园的纵横比。：表示园的纵横比。注意注意：1)Aspect1)Aspect表示圆的纵横比。表示圆的纵横比。Aspect=1Aspect=1时画圆；时画圆；Aspect 1Aspect 1时时画垂直方向的椭圆，此时画垂直方向的椭圆，此时RadiusRadius参数值为椭圆长轴半径；参数值为椭圆长轴半径；Aspect 1Aspect 1时画水平方向的椭圆，时画水平方向的椭圆，RadiusRadius参数值同样为椭圆长参数值同样为椭圆长轴半径。轴半径。2)Start2)Start
21、为画弧的起始角，为画弧的起始角，EndEnd为画弧的终止角，单位都为弧度。为画弧的终止角，单位都为弧度。当两者都取正值时画弧，两者都取负值时画扇形。当两者都取正值时画弧，两者都取负值时画扇形。14.3 图形方法图形方法 4.Cls4.Cls方法方法 ClsCls方法用于清除方法用于清除FormForm或或PictureBoxPictureBox中由图形方法或打中由图形方法或打印语句生成的图形和文本。清除后，区域以背景颜色填充，印语句生成的图形和文本。清除后，区域以背景颜色填充，光标复位移到原点，但在窗体设计是光标复位移到原点，但在窗体设计是PicturePicture属性设置的属性设置的背景位图和添加的控件不受其影响。背景位图和添加的控件不受其影响。语法格式：语法格式：对象名对象名.Cls.Cls14.3 图形方法图形方法 5.Point5.Point方法方法 PointPoint方法用于返回指定点的方法用于返回指定点的RGBRGB颜色。颜色。语法格式：语法格式：对象名对象名.Point.Point（x x，y y）
