UC知道vb作业 滚动条
来源：百度知道 编辑：UC知道 时间：2024/05/16 15:08:44
实验十 滚动条
一、实验目的
1．掌握滚动条的应用。
2．熟悉滚动条的属性。
二、实验内容
设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。
三、实验步骤与指导
1．设计界面
在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图2－10－1所示。
图2－10－1 初始界面
2．设置属性
表2－10－1 属性设置
对象 属性 属性值
Hscroll1 max 1200
Hscroll1 min 100
Hscroll1 largechange 300
Vscroll1 max 800
Vscroll1 min 50
Vscroll1 largechange 300
Text1 text Vb6.0程序设计语言
Command1 caption 退出
设置属性后的界面如图2－10－2所示。
图2－10－2 设置属性后的界面
3．编写程序代码
4．运行程序
分别拖动水平滚动条或者垂直滚动条，程序运行效果如图2－10－3所示。
图2－10－3 程序运行效果
给代码.加QQ53096214
一、实验目的
1．掌握滚动条的应用。
2．熟悉滚动条的属性。
二、实验内容
设计一程序，当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动。
三、实验步骤与指导
1．设计界面
在窗体上添加一个垂直滚动条，一个水平滚动条，一个文本框，一个命令按钮。初始界面如图2－10－1所示。
图2－10－1 初始界面
2．设置属性
表2－10－1 属性设置
对象 属性 属性值
Hscroll1 max 1200
Hscroll1 min 100
Hscroll1 largechange 300
Vscroll1 max 800
Vscroll1 min 50
Vscroll1 largechange 300
Text1 text Vb6.0程序设计语言
Command1 caption 退出
设置属性后的界面如图2－10－2所示。
图2－10－2 设置属性后的界面
3．编写程序代码
4．运行程序
分别拖动水平滚动条或者垂直滚动条，程序运行效果如图2－10－3所示。
图2－10－3 程序运行效果
给代码.加QQ53096214
很简单
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Form1.Scale (100, 50)-(1200, 800)
Text1.Top = VScroll1.Value
Text1.Left = HScroll1.Value
End Sub
Private Sub HScroll1_Change()
Text1.Top = VScroll1.Value
Text1.Left = HScroll1.Value
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub VScroll1_Change()
Text1.Top = VScroll1.Value
Text1.Left = HScroll1.Value
End Sub
页面自己设计一下