vb上机实验
实验十一 滚动条
【实验目的】
1．掌握滚动条的应用。 2．熟悉滚动条的属性。
【实验内容】
设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。
【实验步骤与指导】
1．设计界面
在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图11－1所示。
图11－1 初始界面
2．设置属性
表11－1 属性设置
对象 Hscroll1 Hscroll1 Hscroll1 Vscroll1 Vscroll1 Vscroll1 Text1 Command1 属性 max min largechange max min largechange text caption 31
属性值 1200 100 300 800 50 300 Vb6.0程序设计语言 退出 zjh
vb上机实验
设置属性后的界面如图11－2所示。
图11－2 设置属性后的界面
3．编写程序代码
Private Sub Command1_Click() End End Sub
Private Sub HScroll1_Change()
Text1.Left = 800 + HScroll1.Value End Sub
Private Sub VScroll1_Change()
Text1.Top = 300 + VScroll1.Value End Sub
4．运行程序
分别拖动水平滚动条或者垂直滚动条，程序运行效果如图11－3所示。
图11－3 程序运行效果
32
zjh
vb上机实验
实验十二 定时器
【实验目的】
1．掌握定时器控键的用法。 2．熟悉定时器控键的属性。
【实验内容】
编写一个程序利用计时器计时。 制作一个日历时钟应用程序。
【实验步骤与指导】
1．设计界面
在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始界面如图12－1所示。
图12－1 初始界面
2．设置属性，如表11－1所示。
表12－1 属性设置
对象 Command1 Command2 Command3 Label1 Label1 Timer1 Timer1
33
zjh
属性 Caption Caption Caption BorderStyle Caption enable interval 属性值 开始计时 停止 重新开始 1-Fixed Single 0 true 400 vb上机实验
设置属性后的界面如图12－2所示
图12－2 设置属性后的界面
编写程序代码
Private Sub command1_Click() Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Command3_Click() Label1.Caption = \End Sub
Private Sub Command4_Click() End End Sub
Private Sub Form_Load()
Me.Caption = Format(Now, \End Sub
Private Sub Timer1_Timer() Dim count As Long count = Label1.Caption count = count + 1
Label1.Caption = count End Sub
34 zjh
３．vb上机实验
4．运行程序
单击“开始计时”命令按钮，程序运行效果如图12－3所示。
图12－3 程序运行效果
35
zjh