|
|
第一个窗口中
Private Sub Command1_Click()
Me.Hide
Form2.Show
End Sub
Private Sub Form_Load()
Me.Caption = "第一个窗口"
End Sub
第二个窗口中
Private Sub Command1_Click()
Me.Hide
Form3.Show
End Sub
Private Sub Command2_Click()
Me.Hide
Form1.Show
End Sub
Private Sub Form_Load()
Command1.Enabled = False
Me.Caption = "第二个窗口"
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Command1.Enabled = True
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Command1.Enabled = False
End If
End Sub
|
|
已绑定手机
发表于 2013-1-28 13:14:21
