VB程序设计第2版第11章

vB PPT 实验 skydarken

11.1 图形设计基础第 十 一 章 图 形 设 计 (0,0) x轴 11.1.1 坐标系统

缺省坐标系统: 缺省坐标系统:

y轴1

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

1. 刻度单位：缺省刻度单位: 缇(Twip) 刻度单位：缺省刻度单位 改变刻度单位: 对象名.ScaleMode = 属性值 改变刻度单位 对象名值 常量 0 vbUser 1 2 3 4 vbTwips vbPoints vbPixels vbCharacters 说明 用户自定义。可设置ScaleHeight、 用户自定义。可设置 、 ScaleWidth、ScaleTop、ScaleLeft属性 、 、 属性 缺省值), ),1440缇等于一英寸 缇(缺省值), 缇等于一英寸 点，72点等于一英寸 点等于一英寸 像素， 像素，表示分辩率的最小单位 字符

5 vbInches 英寸 6 vbMillimeters 毫米 7 vbCentimeters 厘米

例如：Form1.ScaleMode=3 例如：

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

2. 改变坐标系 1) ScaleLeft、ScaleTop属性 、 属性 重定义对象的左上角坐标， 重定义对象的左上角坐标，改变坐标系的原点 位置。 位置。 【例11-1】 】 使用缺省的坐标系统： 使用缺省的坐标系统： Private Sub Command1_Click() Label1.Left = 0 Label1.Top = 0 End Sub (0,0) Command13

Label1

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

使用自定义的坐标系统： 使用自定义的坐标系统： Private Sub Command1_Click() Form1.ScaleLeft = 200 Form1.ScaleTop = 300 Label1.Left = 0 Label1.Top = 0 End Sub

(200,300)

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

2) ScaleWidth和ScaleHeight属性 和 属性 表示容器对象的内部宽度与高度。 表示容器对象的内部宽度与高度。 用于自定义一个刻度单位。 用于自定义一个刻度单位。 使用ScaleWidth和ScaleHeight改变窗体刻度单位 例:使用 使用 和 改变窗体刻度单位 设窗体高度是2000Twips,宽度是3000Twips。 ,宽度是 设窗体高度是 。 此时水平和垂直刻度单位均为1Twips。 此时水平和垂直刻度单位均为 。 如果设置: 如果设置 ScaleHeight=500 则将窗体的高度划分为500个单位 个单位, 则将窗体的高度划分为 个单位 每个单位为2000/500,即4Twips 每个单位为 ， 如果设置: ScaleWidth=1000 如果设置 则将窗体的宽度划分为1000个单位， 个单位， 则将窗体的宽度划分为 个单位 每个单位为3000/1000,即3Twips 每个单位为 ，5

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

在使用以上方法定义了新的刻度单位后， 在使用以上方法定义了新的刻度单位后，如果 容器对象的实际尺寸发生变化， 容器对象的实际尺寸发生变化，这一刻度也不 会改变。 会改变。 设置ScaleWidth和ScaleHeight属性为负数，将 属性为负数， 设置 和 属性为负数 反转坐标轴的方向。 反转坐标轴的方向。 ScaleHeight、ScaleWidth、 将 ScaleHeight、ScaleWidth、ScaleLeft 与 ScaleTop 属性设置为任何值都自动将 ScaleMode 设置为 0。 。

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

【例1

1-2】将一个图形 】将一个图形(Shape1)的左上角移动到窗 的左上角移动到窗 体的中央位置。 体的中央位置。 Private Sub Command1_Click() Form1.ScaleHeight = 2 Form1.ScaleWidth = 2 Shape1.Left = 1 Shape1.Top = 1 (0,0) End Sub

(1,1)

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

【例11-3】定义窗体的左下角为原点 ，0),y坐标 】定义窗体的左下角为原点(0, , 坐标 轴正方向向上。 轴正方向向上。 Private Sub Form_Load() ScaleHeight = -4 ScaleWidth = 4 ScaleTop = 4 End Sub Private Sub Command1_Click() Shape1.Left = 1 Shape1.Top = 1 End Sub (1,1) (0,0)

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

例：定义窗体的中央位置为原点(0,0),y坐标轴 定义窗体的中央位置为原点 ， , 坐标轴 正方向向上。 正方向向上。 Private Sub Form_Load() ScaleHeight = -4 (1,1) ScaleWidth = 4 ScaleTop = 2 (0,0) ScaleLeft = -2 End Sub Private Sub Command1_Click() Shape1.Left = 1 Shape1.Top = 1 End Sub9

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

3) Scale方法 方法 Scale方法用于将容器对象的左上角坐标定义为 方法用于将容器对象的左上角坐标定义为 (x1,y1),右下角坐标定义为 ，右下角坐标定义为(x2,y2)。 。 不带任何参数调用Scale方法，可以将坐标系还 方法， 不带任何参数调用 方法 原成系统缺省的坐标系。 原成系统缺省的坐标系。 格式: <对象名> 格式 [<对象名>.]Scale [(x1,y1)-(x2,y2)] 其中： 其中： x1,y1: 决定了 决定了ScaleLeft和ScaleTop属性的值； 属性的值； , 和 属性的值 (x1,y1)与(x2,y2)两点 坐标的差值和y坐标的差值 与 两点x坐标的差值和 坐标的差值 两点 坐标的差值和 分别决定了ScaleWidth和ScaleHeight属性的值。 属性的值。 分别决定了 和 属性的值 使用Scale方法设置各种容器对象的坐标系统，更 方法设置各种容器对象的坐标系统， 使用 方法设置各种容器对象的坐标系统 直观、更快捷。 直观、更快捷。10

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

中打印5行 列的单位矩阵 列的单位矩阵。 例：在图片框Picture1中打印 行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 Sub11

vB PPT 实验 skydarken

3. 当前坐标 第 十 一 章 图 形 设 计 CurrentX属性 设置或返回的当前坐标的水平坐标 属性: 属性 CurrentY属性 设置或返回的当前坐标的垂直坐标 属性: 属性 例如: 在点(200,200)处显示“当前坐标为 处显示“ 例如 在点 处显示 当前坐标为(200,200)” ” Form1.CurrentX = 200 Form1.CurrentY = 200 Form1.Print "当前坐标为 当前坐标为(200,200)" 当前坐标为

vB PPT 实验 skydarken

4. 与位置和大小有关的属性 第 十 一 章 图 形 设 计ScaleHeight ScaleWidth Height (S

caleLeft,ScaleTop) (Left,Top)

Width

vB PPT 实验 skydarken

11.1.2 颜色第 十 一 章 图 形 设 计 颜色值: 四字节、长整型。 颜色值 四字节、长整型。 最低的三个字节: 红色、绿色、蓝色。 最低的三个字节 红色、绿色、蓝色。 每个字节取值: 每个字节取值 00~FF(或0~255) 或 1. 在设计阶段设置颜色

系统颜色

调色板14

vB PPT 实验 skydarken

第 十 一 章 图 形 设 计

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—青色 黑色 蓝色 绿色 青 …… 此处隐藏：2720字，全部文档内容请下载后查看。喜欢就下载吧 ……