UC知道VB中怎样使一个控件不可用
来源：百度知道 编辑：UC知道 时间：2024/07/08 20:41:52
我定义了一个ChangShu_Change（）要想使它不可用该怎么办呀？我这样做ChangShu_Change.Enabled = False。则提示"未找到方法或数据成员"。
ChangShu_Change（）是一个文本框的激活控件，以下是源代码：
Private Sub ChangShu_Change(Index As Integer)
E = ChangShu(0).Text
mu = ChangShu(1).Text
t = ChangShu(2).Text
If Index = 0 Then
If E <= 0 Or Not IsNumeric(E) Then
E = MsgBox("说明:参数 E 必须>0且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(0).Text = ""
End If
ElseIf Index = 1 Then
If mu < 0 Or mu >= 1 Or Not IsNumeric(mu) Then
mu = MsgBox("说明:参数 mu 必须0>mu<1且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(1).Text = ""
End If
ElseIf Index = 2 Then
If t < 0 Or Not IsNumeric(t) Then
t = MsgBox("说明:参数 t 必须>0且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(2).Text = ""
End If
End If
End Sub
我想在另一个
Priva
ChangShu_Change（）是一个文本框的激活控件，以下是源代码：
Private Sub ChangShu_Change(Index As Integer)
E = ChangShu(0).Text
mu = ChangShu(1).Text
t = ChangShu(2).Text
If Index = 0 Then
If E <= 0 Or Not IsNumeric(E) Then
E = MsgBox("说明:参数 E 必须>0且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(0).Text = ""
End If
ElseIf Index = 1 Then
If mu < 0 Or mu >= 1 Or Not IsNumeric(mu) Then
mu = MsgBox("说明:参数 mu 必须0>mu<1且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(1).Text = ""
End If
ElseIf Index = 2 Then
If t < 0 Or Not IsNumeric(t) Then
t = MsgBox("说明:参数 t 必须>0且必须是数值型数据,请重新输入!", 0, "数据有误")
ChangShu(2).Text = ""
End If
End If
End Sub
我想在另一个
Priva
我明白了 是一个文本控件组
如果让这个组不可用
for i = 0 to 改组控件数-1
changshu(i).enabled = false
next
如果是不想被更改则
for i = 0 to 改组控件数-1
changshu(i).locked= true
next
我不是很清楚你的ChangShu是一个怎样的控件，所以也不知道怎么答你哦~~
很显然，你定义的是一个过程，为什么要使过程不可用呢！不用时，不调用就可以了啊！
ChangShu你的是1个控件数组？？？如果让控件不可用ChangShu.Enabled = False
可能你是1个控件数组