![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb用代码更改Command的Enabled属性
PrivateSubForm_Load()DoDimiAsSingleIfText1=""Or"0"Or"1"ThenCommand2.Enabled=FalseComm...
Private Sub Form_Load()
Do
Dim i As Single
If Text1 = "" Or "0" Or "1" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
Exit Do
Loop
End Sub
大神啊,我没办法让Command恢复可用啊!我的代码到底出了什么错啊!帮我改一下吧!!! 展开
Do
Dim i As Single
If Text1 = "" Or "0" Or "1" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
Exit Do
Loop
End Sub
大神啊,我没办法让Command恢复可用啊!我的代码到底出了什么错啊!帮我改一下吧!!! 展开
1个回答
展开全部
Private Sub Text1_Change()
If Text1.Text = "" Or Text1.Text = "0" Or Text1.Text = "1" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
End Sub
If Text1.Text = "" Or Text1.Text = "0" Or Text1.Text = "1" Then
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Else
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询