VB+通讯录信息管理系统+文档PPT及开题报告(十一)
'取消查询
Unload Me
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 10
'在不处于查询状态时,把文本框设置为失效
Text1(i).Text = ""
Text1(i).Enabled = False
Next i
Option1(0).Enabled = Check1(3).Value
Option1(1).Enabled = Check1(3).Value
'判断年龄输入是否有效
Frame2.Enabled = Check1(4).Value
For i = 0 To 1
Check2(i).Enabled = False
Next i
End Sub
Private Sub Check2_Click(Index As Integer)
Text2(Index).Enabled = Check2(Index).Value
End Sub