Chp7：用户界面设计.ppt

第7章：用户界面设计 主要内容： 1：滚动条 2：定时器 3：驱动器列表框、目录列表框、文件列表框 4：图片框、图像框 5：公用对话框 6：菜单 滚动条（ScrollBar） 滚动条可以作为输入设备，或者速度、数量的指示器来使用，分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar），除方向不一样外，水平滚动条和垂直滚动条的结构与操作是完全相同的，如下图所示。 滚动条 常用属性1）Max：表示滚动条所能表示的最大值2）Min：表示滚动条所能表示的最小值3）Value：表示滚动条的当前值4）LargeChang：表示当用户单击滚动区域时，滚动条 Value 属性值的改变量。默认值为1，可以设置为1 和 32767 之间的整数5）SmallChange：表示当用户单击滚动条滚动箭头时，Value属性值的改变量。默认值为1，可以设置为1 和 32767 之间的整数 常用事件1）Change：当滚动条的值改变时发生2）Scroll：当拖动滚动块时发生 常用方法：无 例7.1 题目：建立一个用滚动条调整字体大小的窗口，如下图所示。字体大小为9磅~72磅。 定时器（Timer） 定时器每隔一定的时间间隔产生一次Timer事件。可以根据这个特性来定时控制某些操作，如进行计时或动画定时器控件在设计时显示为一个小时钟图标，而在运行时并不显示在屏幕上，通常另设标签或文本框来显示时间 常用属性1）Enabled：设置定时器是否可用2）Interval：设置定时器自动触发Timer事件的间隔时间，单位为毫秒（千分之一秒）。若设置为500，则每隔500ms（即0.5秒）就会触发一次Timer事件 常用事件1）Timer：在预定的时间间隔后自动发生 常用方法：无 例7.2 题目：电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时。当计到0分0秒时，通过消息对话框显示“倒计时结束”。 例7.2 Dim m As Integer, s As Integer 声明模块级变量Private Sub Form_Load() Timer1.Interval = 1000 设置每隔1秒触发1次Timer事件 Timer1.Enabled = False 关闭计时器End SubPrivate Sub Command1_Click() 倒计时 m = Val(Text1.Text) s = Val(Text2.Text) Timer1.Enabled = True 打开计时器End Sub 例7.2 Private Sub Timer1_Timer() If s 0 Then s = s - 1 Else If m 0 Then m = m - 1 s = 59 End If End If Text1.Text = Format(m, 00) Text2.Text = Format(s, 00) If s = 0 And m = 0 Then Beep 响铃，即让喇叭发一声响 MsgBox 计时结束 Unload Me End If End Sub 驱动器、目录和文件列表框 驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）三个控件是文件类控件，可分别对驱动器、目录、文件进行操作。可以单独使用，但通常是共同使用 驱动器列表框 运行时，DriveListBox 控件用来显示用户系统中所有有效磁盘驱动器的列表 ，用户可选择一个有效的磁盘驱动器 常用属性1）Drive：返回或设置运行时选择的驱动器。在设计时不可用。Drive 属性的值是一个指示驱动器盘符的字符串，如c:，其缺省值为当前驱动器 常用事件1）Change：当选择一个新的驱动器或通过代码改变 Drive 属性的设置时发生 目录列表框 运行时，DirListBox 控件显示目录和路径。这个控件可以显示分层的目录列表 常用属性1）Path：返回或设置当前路径。在设计时是不可用的，属性的值是一个指示路径的字符串，例如 C:\Ob 或 C:\Windows\System ，其