Question

VB如何实现但TEXT为空时,按钮键（Commond)无法点击

Private Sub Command1_Click()
Dim Chick As Integer
Randomize
Chick = Int(Rnd * 2 + 1)
If Chick - 1 Then
MsgBox "A", , "A"
Else
MsgBox "B", , "B"
End If
End Sub
有这些代码下哪添加

Answer 1

第一种方法: 当text为空时 点击command没有效果

Private Sub Command1_Click()
If Text1.Text = vbNullString Then Exit Sub
'以下是text不为空的代码
'.....
End Sub

第二种方法:当text为空时 command为灰色(不可点击)

Private Sub Text1_Change()
If Text1.Text = vbNullString Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

Answer 2

添加Text控件事件，Text1中如果为空设置按钮1不可使用，否则为可用

Private Sub Text1_Change()
If Text1.Text = "" Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub

Answer 3

Private Sub Text1_Change()
if trim(text1.text) = "" then
command.enabled = false
else
command.enabled = true
end if
End Sub

Answer 4

Private Sub Text1_Change()
If Text1.Text = "" Then
Command1.Enabled = False
End If
End Sub

Answer 5

if text1.text="" then command1.enable=false