Visual Basic程序设计 教学课件 作者 银红霞 第7章 图形设计.pptVIP

第7章 图形设计 本章主要内容 7.1 坐标系统 7.2 图形控件 7.3 绘制图形 7.1.1 默认坐标系统 构成一个坐标系需要有三个要素：坐标原点、坐标轴的方向、坐标度量单位。 默认坐标系统，都是从容器的左上角(0,0)坐标开始；x轴的正方向水平向右，y轴的正方向垂直向下；默认的度量单位是缇（Twip，即1/1440英寸）。 1．Visual Basic坐标系统的规则 （1）当移动控件或调整控件的大小时，使用控件容器的坐标系统。 （2）所有图形方法和Print方法都使用容器的坐标系统。 （3）当创建用来调整窗体大小或移动窗体的代码时，应先检查屏幕对象的Height属性和Width属性，以确保窗体在屏幕上大小合适。 （4）屏幕的左上角总是（0，0）。 2．Visual Basic坐标系统常用属性 （1）控件在容器中的位置属性 Top属性：控件左上角到所在容器上边沿的距离。 Left属性：控件左上角到所在容器左边沿的距离。 （2）控件自身宽度、高度的属性 Width属性：控件本身的宽度。 Height属性：控件本身的高度。 （3）容器（窗体、图片框）的坐标属性 ScaleMode属性 坐标度量单位由容器对象的ScaleMode属性决定，ScaleMode属性的设置如表7-1所示。 ScaleLeft、ScaleTop属性 ScaleLeft属性为容器左上角的横坐标；ScaleTop属性为容器左上角的纵坐标。 ScaleWidth、ScaleHeight属性 ScaleWidth属性为容器内部的宽度值，ScaleHeight属性为容器内部的高度值。 CurrentX、CurrentY属性 CurrentX属性为当前点在容器内的横坐标，CurrentY属性为当前点在容器内的纵坐标。 7.1.2 用户自定义坐标系统 1．通过对象的坐标属性自定义坐标系。 用户可以利用ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight属性自己定义坐标系。 在标准坐标系统中，ScaleLeft和ScaleTop属性总是0；ScaleWidth和ScaleHeight属性则是根据坐标系统的长度单位计算的内部区域的实际宽度和高度。 ScaleLeft和ScaleTop属性的值用于控制对象左上角坐标，所有对象的ScaleLeft和ScaleTop属性的缺省值为0，坐标原点在对象的左上角。当改变ScaleTop或ScaleLeft的值后，坐标系的X轴或Y轴按此值平移形成新的坐标原点。右下角坐标值为(ScaleLeft+ScaleWidth, ScaleTop+ScaleHeight)。根据左上角和右下角坐标值的大小自动设置坐标轴的正向。X轴与Y轴的度量单位为分别为1／ScaleWidth和1／ScaleHeight。 例如： ScaleLeft = 500 ScaleTop = -500 ScaleWidth = -1000 ScaleHeight = 1000 此时，窗体的左上角坐标为（-500，500），窗体的右下角坐标为（500，-500），整个窗体在水平方向被分为1000 等份，在垂直方向被分为1000等份。 2．使用Scale方法自定义坐标系 用户可以使用Scale方法用于为窗体、图片框或Printer对象设置新的坐标系统，此时系统将自动把ScaleMode属性设置为0。其语法格式为： [对象.]Scale (x1, y1)-(x2, y2) 其中，（x1，y1）设置对象的左上角坐标，（x2，y2）设置对象的右下角坐标。对象在x方向上被分为x2-x1等分，在y方向上被分为y2-y1等分。 例如： Scale (-500, 500)-(500, -500) 该语句将窗体Form1的左上角和右下角设置为(-500, 500)和(500, -500)，整个窗体在水平和垂直方向均被分为1000 等份。 7.1.3 应用范例 例7-1 使用CurrentX和CurrentY属性，在窗体上输出立体字效果。 Private Sub Form_Click() FontName = 隶书 FontBlod = True FontSize = 40 ForeColor = RGB(0, 0, 0) 黑色 CurrentX = 100 CurrentY = 20 在(100,20)处输出 Print 文字的立体效果 ForeColor = RGB(255, 255, 255) 白色 CurrentX = 160: CurrentY = 60 在(160,60)处输出 Print 文字的立体效果 End Sub 例7-2 在窗体的单击事件中，用对象的