下面的代码是check2的单击事件,check2是一个复选框,text0是一个文本框。
Private Sub Check2_Click()
If Check2 Then
Text0.Enabled = True
Text0.SetFocus
Else
Text0.Enabled = False
End If
下面的代码是check2的单击事件,check2是一个复选框,text0是一个文本框。
Private Sub Check2_Click()
If Check2 Then
Text0.Enabled = True
Text0.SetFocus
Else
Text0.Enabled = False
End If ...
kangking 发表于 2010-3-30 11:46