2个回答
展开全部
Private Sub Form_Click()
'添加一个水平滚动条，运行然后点击窗口就可以看到效果
Dim i As Integer
HScroll1.Max = 30000
HScroll1.Min = 1
For i = 1 To 30000
HScroll1.Value = i '给value赋值就可以移动了
DoEvents
Next
End Sub
如果是控制文本框的滚动条，那么用下面的方法
Text1.SelStart = Len(Text1.Text)
'添加一个水平滚动条，运行然后点击窗口就可以看到效果
Dim i As Integer
HScroll1.Max = 30000
HScroll1.Min = 1
For i = 1 To 30000
HScroll1.Value = i '给value赋值就可以移动了
DoEvents
Next
End Sub
如果是控制文本框的滚动条，那么用下面的方法
Text1.SelStart = Len(Text1.Text)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
HScroll.Value =*** 范围在max和min之间
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
