VB中怎样使一个控件不可用 10
我定义了一个ChangShu_Change()要想使它不可用该怎么办呀?我这样做ChangShu_Change.Enabled=False。则提示"未找到方法或数据成员"...
我定义了一个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
我想在另一个
Private Sub Command6_Click()
'清空所有显示数据
ChangShu.Default = False
End Sub
但提示有误
2楼的不行呀
changshu是一个控件数组,而且是一个change()控件函数,好像我听说它总是被调用的。 展开
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
我想在另一个
Private Sub Command6_Click()
'清空所有显示数据
ChangShu.Default = False
End Sub
但提示有误
2楼的不行呀
changshu是一个控件数组,而且是一个change()控件函数,好像我听说它总是被调用的。 展开
4个回答
展开全部
很显然,你定义的是一个过程,为什么要使过程不可用呢!不用时,不调用就可以了啊!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ChangShu你的是1个控件数组???如果让控件不可用ChangShu.Enabled = False
可能你是1个控件数组
可能你是1个控件数组
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我不是很清楚你的ChangShu是一个怎样的控件,所以也不知道怎么答你哦~~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询