帮忙一下纠正错误,麻烦~
Private Sub Command1_Click()
HScroll1.Value = Val(Text1.Text)'这里提示错误,错误380 属性值无效~
If HScroll1.Value < HScroll1.Min Then
MsgBox "输入值太小"
End If
If HScroll1.Value > HScroll1.Max Then
MsgBox "输入值太大"
End If
If Val(Text1.Text) = "" Then
MsgBox "请输入数值"
End If
End Sub
题目:6、在文本框中输入一个数,按移动按钮,文本框中是正数则滚动条向右移动相应刻度,超过最大刻度则MsgBox提示“输入值太大” ;负数则向左移,超过最小刻度则不再动,并MsgBox提示。 HScroll1.Value = Val(Text1.Text)'这里提示错误,错误380 属性值无效~
If HScroll1.Value < HScroll1.Min Then
MsgBox "输入值太小"
End If
If HScroll1.Value > HScroll1.Max Then
MsgBox "输入值太大"
End If
If Val(Text1.Text) = "" Then
MsgBox "请输入数值"
End If
End Sub