Question

vb滚动条怎么设置呀

滚动条向下拖动时，窗口大小跟着改变而不是窗口向下拉，怎么回事呢
这是代码：
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
List1.Clear
For n = 1 To 9999
Select Case n
Case n ^ 2 Mod 10
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 100
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 1000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 10000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
End Select
Next
End Sub

Private Sub Form_Load()
VScroll1.Max = List1.Height
End Sub

Private Sub VScroll1_Change()
List1.Height = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
List1.Height = VScroll1.Value
End Sub

Answer 1

1、首先打开VB，然后在VB窗体上添加一个文本框，如图。

2、然后点击这个添加的文本框，接着在右侧的一个窗口中，设置他的相关名称和数值，然后将文本内容清空。如图。

3、紧接着在窗体上面，再添加一个水平滚动条，如图。

4、然后单击这个水平滚动条，设置名称和数值，将Min设置为0，Max设置为100。largechange设置为5，Smallchange设置为2，如图。

5、然后双击这个文本框，将会弹出页面，便可以编辑相应的代码了，如图。

6、最后运行程序，在文本框中输入不同的数值（0-100以内的数值），观察滚动条的滚动框位置，完成效果图。

Answer 2

Private Sub Command1_Click()
Dim n As Integer
List1.Clear
For n = 1 To 9999
Select Case n
Case n ^ 2 Mod 10
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 100
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 1000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 10000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
End Select
Next
VScroll1.Max = List1.ListCount - 1
VScroll1.Value = 0
End Sub
Private Sub Form_Load()
VScroll1.Max = List1.Height
End Sub
Private Sub VScroll1_Change()
List1.ListIndex = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
List1.ListIndex = VScroll1.Value
End Sub

Answer 3

Private Sub Form_Load()
VScroll1.Max = List1.Height
End Sub

Private Sub VScroll1_Change()
List1.Height = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
List1.Height = VScroll1.Value
End Sub
你的这几句是干嘛的啊，删除就好了

追问

删了滚动条就没有反应了。。

追答

你的程序要达到什么目的嘛？List1.Height = VScroll1.Value不就是设置List1的高度为滚动条的值吗

追问

就是 在拖动滚动条的时候，超出文本的部分可以显示出来 ，可是现在加上那些文本框大小跟着变，去掉文本框没有反应了

追答

将List1设置为多行的就行了嘛，超出范围的List1自己都有滚动条的啊，如果还是显示不了的话，就用一个标签放在List1下面专门显示就行了。你这样实际上是调整高度来显示的。