1、首先打开VB,然后在VB表单上添加一个文本框,如图所示。
2、然后点击添加文本框,在右边的窗口中设置它的名称和值,然后清空文本。如图所示。
4、然后单击水平滚动条设置名称和值,并将Min设置为0,Max设置为100。设置“Largechange”为2,“Smallchange”为2,如图所示
5、然后双击文本框d出页面,编辑相应的代码,如图所示。
6、最后,运行程序,在文本框中输入不同的值(0到100之间),观察滚动条的位置,完成渲染。
Private Sub Form_Load()
MeCaption = "改变字号"
HScroll1Min = 12
HScroll1Max = 72
Label1Caption = "心想事成"
End Sub
Private Sub HScroll1_Change()
Label1FontSize = HScroll1Value
End Sub
Private Sub Text1_Change()
If Len(Text1Text) > 2 Then
Text1Text = Left(Text1Text, 2)
End If
If Val(Text1) >= 12 And Val(Text1) <= 72 Then
Label1FontSize = Val(Text1Text)
End If
End Sub
以上就是关于VB如何设置水平滚动条全部的内容,包括:VB如何设置水平滚动条、VB滚动条怎么做、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)