VB程序设计第3版第11章.pptVIP

图 形 设 计;11.1 图形设计基础;1. 刻度单位：缺省刻度单位: 缇(Twip) 改变刻度单位: 对象名.ScaleMode = 属性值;2. 改变坐标系 1) ScaleLeft、ScaleTop属性 重定义对象的左上角坐标，改变坐标系的原点位置。;使用自定义的坐标系统： Private Sub Command1_Click() Form1.ScaleLeft = 200 Form1.ScaleTop = 300 Label1.Left = 0 Label1.Top = 0 End Sub ;2) ScaleWidth和ScaleHeight属性 表示容器对象的内部宽度与高度。 用于自定义一个刻度单位。 例:使用ScaleWidth和ScaleHeight改变窗体刻度单位 设窗体高度是2000Twips，宽度是3000Twips。 此时水平和垂直刻度单位均为1Twips。 如果设置: ScaleHeight=500 则将窗体的高度划分为500个单位, 每个单位为2000/500，即4Twips 如果设置: ScaleWidth=1000 则将窗体的宽度划分为1000个单位， 每个单位为3000/1000，即3Twips ;在使用以上方法定义了新的刻度单位后，如果容器对象的实际尺寸发生变化，这一刻度也不会改变。 设置ScaleWidth和ScaleHeight属性为负数，将反转坐标轴的方向。 将 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop 属性设置为任何值都自动将 ScaleMode 设置为 0。;【例11-2】将一个图形(Shape1)的左上角移动到窗体的中央位置。;【例11-3】定义窗体的左下角为原点(0，0)，y坐标轴正方向向上。;例：定义窗体的中央位置为原点(0，0)，y坐标轴正方向向上。;3) Scale方法 Scale方法用于将容器对象的左上角坐标定义为(x1,y1)，右下角坐标定义为(x2,y2)。 不带任何参数调用Scale方法，可以将坐标系还原成系统缺省的坐标系。 格式: [对象名.]Scale [(x1,y1)-(x2,y2)] 其中： x1，y1: 决定了ScaleLeft和ScaleTop属性的值； (x1,y1)与(x2,y2)两点x坐标的差值和y坐标的差值分别决定了ScaleWidth和ScaleHeight属性的值。;例：在图片框Picture1中打印5行5列的单位矩阵。 Private Sub Picture1_Click() Dim a(5, 5) As Integer Picture1.Scale (0, 0)-(6, 6) For i = 1 To 5 Picture1.CurrentY = i For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = 0 Picture1.CurrentX = j Picture1.Print a(i, j); Next j,i End Sub;3. 当前坐标 CurrentX属性: 设置或返回的当前坐标的水平坐标 CurrentY属性: 设置或返回的当前坐标的垂直坐标 例如: 在点(200,200)处显示“当前坐标为(200,200)” Form1.CurrentX = 200 Form1.CurrentY = 200 Form1.Print 当前坐标为(200,200);4. 与位置和大小有关的属性;颜色值: 四字节、长整型。 最低的三个字节: 红色、绿色、蓝色。 每个字节取值: 00~FF(或0~255) 1. 在设计阶段设置颜色;2. 在运行阶段设置颜色 1） RGB函数 格式：RGB(red，green，blue) 例: Form1.BackColor = RGB(255,0,0) 设置窗体的背景色为红色 2） QBColor函数 格式： QBColor(value) value: 0~7、8~15(为0~7颜色加亮) 0—黑色 1—蓝色 2—绿色 3—青色 4—红色 5—紫红