不行啊,
Dim frm As New frmLog
frm.Show()
Me.Close()
新frm还没显示,本窗体已经关闭了,使用frm.hide可以,但是如果frm被关掉的话,应用程序没有结束。如何在多个窗体间反复切换,是应该hide,还是dispose呢?看上去很简单的一个问题,却搞不定。我觉得好像还是与application.run有关系,可试了一下,总是提示:
其他信息: 在单个线程上开始第二个消息循环是无效的操作。请改用 Application.RunDialog 或 Form.ShowDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dim frm As new form
Me.close()
frm.show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Run(New frmLog)
Me.Close()
Me.Dispose()
End Sub
Application.Run出现错误
其他信息: 在单个线程上开始第二个消息循环是无效的操作。请改用 Application.RunDialog 或 Form.ShowDialog
另外,我需要在多个窗体间反复切换,是应该hide,还是dispose呢,如何实现?
Public Class Form1
Inherits System.Windows.Forms.Form
'创建Form2的一个新的实例
Dim Frm2 As New Form2()
Public Function Instance2(ByVal frm As Form2)
Frm2 = frm
End Function
Private Sub BtnShowFrm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnShowFrm2.Click
'以下语句保证在Form2以及其他窗体中访问Form1时,
'都将得到Form1的同一个窗体实例。
Frm2.Instance(Me)
Frm2.Show()
Me.Hide()
End Sub
End Class
2、Form2中的代码:
Public Class Form2
Inherits System.Windows.Forms.Form
Dim frm1 As Form1
'借助一个新增的Instance属性来生成窗体frm1的实例
Public Function Instance(ByVal frm As Form1)
frm1 = frm
End Function
Private Sub BtnShowFrm1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnShowFrm1.Click
Me.Hide()
frm1.Show()
End Sub
Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
'如果Form2被关闭,则设置Form1的按钮BtnShowFrm2不可用。
frm1.BtnShowFrm2.Enabled = False
frm1.Show()
End Sub
End Class