Question

VB程序操作题（编写代码）急！！！

在名称为form1的窗体上画一个标签，其名称为label1,标题为“计算机等级考试”，left属性为0;再画一个水平滚动条，其名称为HScroll1,在属性窗口中设置其属性如下：
min 0
Max 3000
SmallChange 10
LargeChange 100
编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置

Answer 1

private sub HScroll1_Change()
label1.left=HScroll1.Value
end sub
这个的意思是指让标签跟左边框的距离等于滚动条的值。
这样滚动条每动作一下，标签就根据滚动条做相应的左右运动了。

Answer 2

'把下面这段代码保存为 form1.frm ，用VB打开运行就可以看到你要的效果：
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3030
ClientLeft = 120
ClientTop = 450
ClientWidth = 3870
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 3870
StartUpPosition = 3 '窗口缺省
Begin VB.HScrollBar HScroll1
Height = 375
LargeChange = 100
Left = 0
Max = 3000
SmallChange = 10
TabIndex = 0
Top = 1800
Width = 3615
End
Begin VB.Label Label1
Caption = "计算机等级考试"
Height = 255
Left = 0
TabIndex = 1
Top = 360
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub HScroll1_Change()
Label1.Left = HScroll1.Value
End Sub

Answer 3

private sub HScroll1_Change()
label1.left=HScroll1.Value
end sub

追问

它只向左边移动？右边？

追答

靠，你有没有弄明白啊