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

《VB 第十四讲 滚动条和计时器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第十五讲其他常用控件VisualBasic程序设计教程内蒙古科技大学工程训练中心韩艳本讲主要内容滚动条、时钟的基本属性ptc.imust.cn2工程训练中心一、滚动条滚动条分为水平滚动条(HScrollBar)和垂直滚动条(VScrollBar)；1、主要属性：属性名属性值说明Value整型数据该属性返回滚动块当前位置。Max整型数据[－32768～32767]，滚动条能表示的最大值Min整型数据[－32768～32767]，滚动条能表示的最小值LargeChange整型数据[1～32767]，单击滚动条区域时Value值的增量或

2、减量SmallChange整型数据[1～32767]，单击滚动箭头时Value属性值的变化幅度ptc.imust.cn3工程训练中心一、滚动条2、主要事件⑴Scroll事件：当在滚动条内拖动滚动块时触发的事件；⑵Change事件：当滚动块被移动到新位置后或在程序执行过程中Value属性值发生变化触发的事件；例：用滚动条扩大和缩小窗体。在窗体上画一个垂直滚动条和一个水平滚动条；程序运行后，若滚动滚动条上的滚动滑块，则可扩大和缩小窗体。解题思路：首先对窗体和滚动条设置属性，利用滚动条的Scroll或Change事件，横滚动条放大窗体的

3、宽度(width)，竖滚动条放大窗体的高度(height)。PrivateSubHScroll1_Change()Form1.Width=HScroll1.ValueEndSubPrivateSubVScroll1_Change()Form1.Height=VScroll1.ValueEndSub思考：改为“只有拖动滑块时，……”程序该怎么改？ptc.imust.cn4工程训练中心一、滚动条例：设计一个用于设置位置的滚动条。解题思路：由于拖动滚动条或在滚动条区域内点击鼠标，都会改变滚动条的value属性值，根据滚动条返回的valu

4、e值，显示在文本框和标签里。PrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueEndSubPrivateSubHScroll1_Scroll()Label4.Caption="movingto"&HScroll1.ValueEndSubptc.imust.cn5工程训练中心二、时钟VB系统提供了一个时钟控件(Timer)，用户可以通过该控件使用系统时钟来计时，也允许用户自己定制时间，每一个时间间隔内出发一个计时器事件。1、主要属性Interval：用于决定时钟触发事件的事件间隔

5、；为整型值，取值范围：0－65535,单位：毫秒。Enabled：设置时钟控件是否有效。2、主要事件Timer：每经过一个Interval属性设定的时间间隔，就触发一次Timer事件。ptc.imust.cn6工程训练中心二、时钟例：设计一个数字时钟。解题思路：根据Timer控件设置的的Interval属性值为1000，每隔一次Interval，就利用vb的time函数获取一次系统时间。PrivateSubTimer1_Timer()Label1.FontName="timesnewroman"Label1.FontSize=48

6、Label1.Caption=Time$'time函数获取当前系统时间EndSubptc.imust.cn7工程训练中心二、时钟例：利用Timer控件，移动窗体上的控件。解题思路：在Form的Load事件中，设置Timer控件的Interval和Enabled属性，每隔一次Interval，标签的Top就减一次100个单位，向上移动一次。PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Enabled=FalseTimer1

7、.Interval=500EndSubPrivateSubTimer1_Timer()IfLabel1.Top>0ThenLabel1.Top=Label1.Top-100EndSubptc.imust.cn8工程训练中心四、综合应用程序举例例[6-22]设计一个加密程序。该程序对第一个文本框中输入的英文字符串（称为明文）加密。加密结果为”密文“，显示在第二个文本框中。解题思路：选中一个单选钮，单击”加密“后，根据选中的单选钮后面的数字n，把明文的每个字母改为它后面的第n个字母（如”z”后面的字母为“a”，“Z”后面的字母为”A“

8、）ptc.imust.cn9工程训练中心