关于me
我的程序中有几个窗体需要互相切换，我用如下代码
frm1.show
me.close
出现的情况是窗体一出现就迅速关闭请问这是什么问题

[解决办法]
使用 hide 或是 ?
忘了,前几天有人说过的!
[解决办法]
你把创建对象的窗体给关闭了，对象也被销毁了
个你段可用的代码，才调试过

' Module1.vb

Imports System.Threading

Module Module1
Public Sub Main()
InsCtrlForms.CreateForm( "Form1 ")
End Sub


Private curIdx As Integer = -1

Public InsCtrlForms As CtrlForms = New CtrlForms()

Public Class CtrlForms
Private arrForms As ArrayList = New ArrayList()

Private thForm1 As Thread
Private thForm2 As Thread

Private isWorking As Boolean = False

Public Function GetForm(ByVal idx As Integer) As Form
If ((idx < 0) Or (idx > = Me.arrForms.Count)) Then
Return (Nothing)
End If

Return (Me.arrForms(idx))
End Function

Public Function CreateForm(ByVal frmName As String) As Form
Dim retVal As Form = Nothing

While (isWorking)
Application.DoEvents()
End While

isWorking = True

Select Case frmName
Case "Form1 "
arrForms.Add(New Form1)
retVal = arrForms(arrForms.Count - 1)

curIdx = arrForms.Count - 1
thForm1 = New Thread(AddressOf thShowForm1)
thForm1.Start()

Thread.Sleep(10)
Case "Form2 "
arrForms.Add(New Form2)
retVal = arrForms(arrForms.Count - 1)

curIdx = arrForms.Count - 1
thForm2 = New Thread(AddressOf thShowForm2)
thForm2.Start()

Thread.Sleep(10)
Case Else

End Select

isWorking = False

Return (retVal)
End Function

Public Function DeleteForm(ByVal frmSrc As Form, ByVal frmName As String) As Boolean
While (isWorking)
Application.DoEvents()
End While

Dim idx As Integer = Me.SeekFormIdx(frmSrc)

isWorking = True

Dim retVal As Boolean = False

If (idx > -1) Then
Dim tmpFrm As Form = arrForms(idx)
tmpFrm.Close()
tmpFrm.Dispose()
arrForms.RemoveAt(idx)
arrForms.TrimToSize()

Select Case frmName
Case "Form1 "
isWorking = False
thForm1.Abort()
Case "Form2 "
isWorking = False
thForm2.Abort()
Case Else

End Select
End If

isWorking = False

Return (retVal)
End Function

Private Function SeekFormIdx(ByVal frmSrc As Form) As Integer
While (isWorking)
Application.DoEvents()
End While

isWorking = True

Dim retVal As Integer = -1

Dim nLoop As Integer = 0
While (nLoop < arrForms.Count)
If (arrForms(nLoop).Equals(frmSrc)) Then
Exit While
End If

nLoop = nLoop + 1
End While

If (nLoop < arrForms.Count) Then
retVal = nLoop
End If

isWorking = False

Return (retVal)
End Function
End Class

Private Sub thShowForm1()
Dim tmp As Form = InsCtrlForms.GetForm(curIdx)
If (tmp IsNot Nothing) Then
tmp.ShowDialog()
End If
End Sub

Private Sub thShowForm2()
Dim tmp As Form = InsCtrlForms.GetForm(curIdx)
If (tmp IsNot Nothing) Then
tmp.ShowDialog()
End If
End Sub
End Module


' Form1.vb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InsCtrlForms.CreateForm( "Form2 ")
InsCtrlForms.DeleteForm(Me, "Form1 ")
End Sub
End Class


‘ Form2.vb

Public Class Form2

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
InsCtrlForms.CreateForm( "Form1 ")
InsCtrlForms.DeleteForm(Me, "Form2 ")
End Sub
End Class
[解决办法]
忘记说了，启动项为 sub Main
[解决办法]
原因是：
启动窗口不能关闭，如果关闭，应用程序随之关闭。
所以最开始的引导窗口要保留，在其它非启动窗口间可以切换。