第6章 用户界面设计

图像框控件调整大 小是通过Stretch属 性实现的。Stretch 属性为False时,控件 可以自动调整大小 适应图形。Stretch 属性为True时，图 形将调整大小适应 控件，这可能会使 图形变形。
15
第6章 用户界面设计
6.1.3 图片框和图像框
在VB中，图片可以显示在窗体、图片框、图像框中，支持的 图形文件。 在设计阶段是通过对象的Picture属性，在运行阶段是通过 LoadPicture函数。LoadPicture函数的语法为： [Object.] Picture = LoadPicture (" 图形文件名及路 径" )
21
第6章 用户界面设计
6.1.4 定时器
【例6－5】制作一个动画，使蓝天中地球围绕太阳转。 Private Sub Form_Load() ImgSun.Top = Height / 2 - ImgSun.Height / 2 ImgSun.Left = Width / 2 - ImgSun.Width / 2
17
第6章 用户界面设计
6.1.3 图片框和图像框
Private Sub CmdRestore_Click() Image1.Left = 1400 Image1.Top = 480 Image1.Height = 1515
Image1.Width = 2325
End Sub Private Sub CmdScreen_Click()
12
32
第6章 用户界面设计
6.1.2 滚动条控件

2. 编写Click事件过程代码
Form_load
Private Sub Form_Load() LblRed.Caption = "红色分量值：" & HsbRed.Value LblGreen.Caption = "绿色分量值：" & HsbGreen.Value LblBlue.Caption = "蓝色分量值：" & HsbBlue.Value LblColor .BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value) End Sub
独立于用户 定时性地触发 定时器控件 常用属性有两个 Enabled
有Timer事件
Interval
Timer控件须放在窗体上，但运行时是不可见的
19
第6章 用户界面设计
6.1.4 定时器
1．定时器的常用属性
Enabled属性用于决定定时器是否生效，系统缺省值为True。
Interval属性用于设置定时器触发Timer事件的时间间隔，即决定 每隔多少时间触发一次Timer事件。单位为ms（1/1000s）。 (0ms-65535ms ) 2．定时器的事件 定时器控件只有一个Timer事件，它在一个Timer 控件的预定的时 间间隔过去之后发生。触发Timer事件的两个前提条件是： Enabled属性为True，Interval属性为非0。 【例6－4】窗体中有两个图片框分别是一个航天飞机和一朵云彩， 还有一个计时器，一个“发射”命令按钮。要求在运行时单击“发射” 按钮，则航天飞机每隔0.1秒向上移动一次，当达到云彩的下方时停 止移动 。
对象 窗体 标签框1 属性 Caption 名称 属性值 调色板 LblRed
标签框2
标签框3 标签框4
名称
名称 名称
LblGreen
LblBlue LblColor
滚动条1(滚动条2、滚动条3)
名称
Max SmallChange
HsbRed(HsbGreen、 HsbBlue)
255 8
LargeChange
4
第6章 用户界面设计
6.1.1自定义对话框
【例6-1】设计一个如图6-1所示的对话框，在文本框中输入 某文件所在的路径及名称后，单击“运行” 按钮，按所选择 的运行风格执行该文件，单击“取消”按钮取消本次操作，如 果输入文件名错误，将给出警告并返回该对话框。
5
第6章 用户界面设计
6.1.1自定义对话框
3
第6章 用户界面设计
6.1.1自定义对话框 ④ 在对话框上添加其他控件。根据对话框要完成的功 能在对话框上添加各种控件，如命令按钮、单选按 钮、复选框、文本框、框架、图片框等。 ⑤ 在适当的位置编写显示对话框的代码。自定义对话 框由普通窗体设计而来，所以显示对话框与显示窗 体方法相同，用Show方法实现。 ⑥ 编写从对话框退出的代码。从对话框退出可以使用 Unload语句或Hide方法。
8
第6章 用户界面设计
6.1.2 滚动条控件
滚动条控的常用事件
滚动条能响应的事件主要有Change、Scroll、KeyDown、 KeyUp、KeyPass、LostFocus、GetFocus，其中最常用的是 Change和Scroll事件。

Scroll
当拖动滚动条滑块时触发Scroll事件
① 使用预定义对话框，即由MsgBox或 InputBox函数创建的对话框。
② 使用标准窗体创建自定义对话框。 ③ 使用CommonDialog控件创建通用对活框， 如“颜色”对话框和“打开文件”对话框。
2
第6章 用户界面设计
6.1.1自定义对话框
自定义对话框就是用户所创建的含有控件的窗体,建立步骤： ① 添加窗体。从“工程”菜单中选取“添加窗体”命令，在工程 中添加一个窗体。 ② 定义具有对话框风格的窗体。一般情况下，因为对话框是临时 性的，所以，用户通常不需要对它进行移动、改变尺寸、最大 化或最小化等操作。通过设置窗体的BorderStyle、 ControlBox、MaxButton和MinButton属性，可以将普 通窗体设置成具有对话框风格的窗体。 ③ 在对话框上添加按钮。对话框中通常要有两个按钮，其中一个 用于确定在对话框中完成的设置或回答，另一个用于关闭该对 话框而不做任何改变，例如“确定”与“取消”按钮，通常情 况下，将“确定”按钮的Default 属性设置为 True，而将 “取消”按钮的Cancel 属性设置为True。
单击滚动箭头
单击滚动条空白处
滚动条事件响应过程
10
第6章 用户界面设计
6.1.2 滚动条控件
滚动条控件的应用实例
【例6－2】编写一个调色板程序，利用滚动条作为红绿 蓝三基色值的输入控件，通过调节三基色来改变窗体的 背影颜色。
运行界面
11
第6章 用户界面设计
6.1.2 滚动条控件

设计步骤
1. 设计窗体界面及控件属性
Image1.Width = Image1.Width * 1.05
End Sub Private Sub Cmddwindle_Click() Image1.Height = Image1.Height * 0.95 Image1.Width = Image1.Width * 0.95 End Sub

Change
单击滚动条两端的箭头和滑块之间的区域时均触发Change 事件。 Note:拖动滑块时将触发Scroll事件，并不会触发Change事件， 但拖动滑块结束释放鼠标时，触发Change事件。
9
第6章 用户界面设计
6.1.2 滚动条控件
滚动条控件的常用事件
拖动滚动滑块 触发Scroll事件 触发Change事件 获取新Value值
13
第6章 用户界面设计
6.1.2 滚动条控件

2. 编写Click事件过程代码
红色
Private Sub HsbRed_Change() LblRed.Caption = "红色分量值：" & HsbRed.Value LblColor.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value) End Sub Private Sub HsbRed_Scroll() HsbRed_Change End Sub
6
第6章 用户界面设计
6.1.2 滚动条控件
概念
滚动条的作用在于―当窗口里的内容不能 完全看到时，滚动条可以帮助我们看到想要看 的部分。在VB中提供了两个常规的滚动条控 件—Vscroll和Hscroll，分别代表垂直的和水平 的滚动条，它们只不过是方向不同而已，而它 们的属性，以及会发生的事件都是相同的。
14
第6章 用户界面设计
6.1.3 图片框和图像框
图像框 图片框 图片框
图片框比图像框功 能强，占内存多， 调用慢。其最主要 功能是用绘图方法 绘图。如果仅用来 显示图形，当然应 该选用图像框而不 是图片框。此外， 图片框还可以作为 其他控件的容器。
图片框控件具有 AutoSize属性，当 该属性值为True时 ，图片框能自动调 整大小与显示的图 片相适应。这个特 点表面上很灵活， 实际上，有时会因 此覆盖其他控件， 造成混乱。
若要删除一个图形文件，可以使用格式LoadPicture ("")。
Picture1.Picture=LoadPicture(“d:\Image\P1.jpg”)
16
第6章 用户界面设计
6.1.3 图片框和图像框
【例6－3】将图像框（Image1）Stretch属性为True，可 以实现图像框的放大、缩小、恢复尺寸、全屏显示等操作。 Private Sub Cmdblowup_Click() Image1.Height = Image1.Height * 1.05
20
第6章 用户界面设计
6.1.4 定时器
Private Sub C1_Click() Timer1.Enabled = True Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() Static a As Integer a=a+1 If P1.Top > P2.Top + P2.Height Then P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height Else Timer1.Enabled = False End If End Sub