展开全部
新建vb工程添加一个textbox 和一个 commandbutton
'窗体load事件 设置 command控件的enabled属性为false 变灰 禁用
Private Sub Form_Load()
Command1.Enabled = False
End Sub
'textbox的change事件 判断 textbox的text属性的 字符串长度
Private Sub Text1_Change()
If Len(Text1.Text) = 12 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
'窗体load事件 设置 command控件的enabled属性为false 变灰 禁用
Private Sub Form_Load()
Command1.Enabled = False
End Sub
'textbox的change事件 判断 textbox的text属性的 字符串长度
Private Sub Text1_Change()
If Len(Text1.Text) = 12 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询