Question

vb label里的数值用滚动条调整问题

如图，

第一个label1里有滚动条，我想实现当label1.caption里没有数据时，滚动条不可用，有数据时可用。当label1.caption里有数据时，label1.caption可以用滚动条上下的小箭头调整大小。多谢了
我用的label+vscroll控件

Answer 1

textbox控件+vscroll控件才能实现，label不能输入，那么没有数据时，滚动条不可用。你数据从哪里来？
textbox控件可以输入，输入数据，如果是有效的，出现滚动条，无效，滚动条不可用。

追问

那textbox控件怎么实现我说的这种功能啊？求具体做法，谢谢。

追答

Private Sub Form_Load()
VScroll1.Visible = False
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1) = True Then '判断是否数字
 If Format(Text1, 0) < 101 And Format(Text1, 0) > 0 Then '是否1-100内的数据
    VScroll1.Max = 100 '设置最大100
    VScroll1.Value = Format(Text1, 0)
    VScroll1.Visible = True
 Else
    Text1 = ""
    VScroll1.Visible = False
    Text1.SetFocus
 End If
Else
    Text1 = ""
    VScroll1.Visible = False
    Text1.SetFocus
End If
End Sub

Private Sub VScroll1_Change()
Text1 = Format(VScroll1.Value, "0") '转换数值
End Sub

 

追问

textbox+vscroll控件？

追答

对啊，你看我的代码里只有text和vscroll吧。没有别的控件代码啊。

Answer 2

是label还是textbox？
label没有滚动条事件。

追问

我用的是label+vscroll控件
textbox控件能实现我说的功能？