程序退出后无法结束进程
WindowsApplication1.rar
(266.06 KB)
Module Module1
Public Frmobj As New MDIParent1()
Sub Main()
'Application.EnableVisualStyles()
'Application.DoEvents()
Application.Run(LoginForm1)
'Dim frm As New LoginForm1
'frm.Show()
'Application.Run()
End Sub
End Module
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim FrmMain As New MDIParent1
'1b.页面从登录窗口登录跳转到主窗口
FrmMain.Show()
'1c.保证主窗体由于登录窗体的关闭而关闭
Me.Finalize()
Me.Close()
End Sub
[ 本帖最后由 plggli 于 2010-6-24 15:50 编辑 ]