VB第十四讲滚动条和计时器.ppt

Visual Basic 程序设计教程 第十五讲 其他常用控件 本讲主要内容 滚动条、时钟的基本属性 *工程训练中心 内蒙古科技大学工程训练中心 韩 艳 一、滚动条 滚动条分为水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)； 1、主要属性： [1～32767]，单击滚动箭头时Value属性值的变化幅度 整型数据 SmallChange [1～32767]，单击滚动条区域时Value值的增量或减量 整型数据 LargeChange [－32768～32767]，滚动条能表示的最小值 整型数据 Min [－32768～32767]，滚动条能表示的最大值 整型数据 Max 该属性返回滚动块当前位置。 整型数据 Value 说明 属性值 属性名 一、滚动条 2、主要事件 ⑴ Scroll事件：当在滚动条内拖动滚动块时触发的事件； ⑵Change事件：当滚动块被移动到新位置后或在程序执行过程中Value属 性值发生变化触发的事件； 例：用滚动条扩大和缩小窗体。在窗体上画一个垂直滚动条和一个水平滚动条；程序运行后，若滚动滚动条上的滚动滑块，则可扩大和缩小窗体。 解题思路：首先对窗体和滚动条设置属性，利用滚动条的Scroll或Change事件，横滚动条放大窗体的宽度(width)，竖滚动条放大窗体的高度(height)。 Private Sub HScroll1_Change( ) Form1.Width = HScroll1.Value End Sub Private Sub VScroll1_ Change( ) Form1.Height = VScroll1.Value End Sub 思考： 改为“只有拖动滑块时，……”程序该怎么改？ 一、滚动条 例：设计一个用于设置位置的滚动条。 解题思路：由于拖动滚动条或在滚动条区域内点击鼠标，都会改变滚动条的value属性值，根据滚动条返回的value值，显示在文本框和标签里。 Private Sub HScroll1_Change( ) Text1.Text = HScroll1.Value End Sub Private Sub HScroll1_Scroll( ) Label4.Caption = moving to HScroll1.Value End Sub 二、 时钟 VB系统提供了一个时钟控件(Timer)，用户可以通过该控件使用系统时钟来计时，也允许用户自己定制时间，每一个时间间隔内出发一个计时器事件。 1、主要属性 Interval：用于决定时钟触发事件的事件间隔；为整型值， 取值范围：0－65535,单位：毫秒。 Enabled：设置时钟控件是否有效。 2、主要事件 Timer：每经过一个Interval属性设定的时间间隔，就触发一次Timer 事件。 二、时钟 例：设计一个数字时钟。 解题思路：根据Timer控件设置的的Interval属性值为1000，每隔一次Interval，就利用vb的time函数获取一次系统时间。 Private Sub Timer1_Timer() Label1.FontName = times new roman Label1.FontSize = 48 Label1.Caption = Time$ time函数获取当前系统时间 End Sub