![]() |
#2
风吹过b2016-09-02 08:42
|
form1:

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Me.Show
Text1.SetFocus
End Sub
Text1.Text = ""
Text2.Text = ""
Me.Show
Text1.SetFocus
End Sub
form2:

Private Sub Command9_Click(Index As Integer)
myexit = MsgBox("退出并返回登录界面?", vbExclamation + vbYesNo + vbDefaultButton2, "退出确认...")
If myexit = vbYes Then
form1.Show
Unload Me
End If
End Sub
myexit = MsgBox("退出并返回登录界面?", vbExclamation + vbYesNo + vbDefaultButton2, "退出确认...")
If myexit = vbYes Then
form1.Show
Unload Me
End If
End Sub