estou chamando um form secundário pelo mainmenu no form principal da aplicação, na primeira vez abre normalmente, mas se fechar o form e tentar abrir de novo ele não abre o que poderia ser?
Vou responder baseado em windows forms, mas acho que a causa é a mesma : Os formulários são classes suicidas. Quando são fechados, se destroem internamente (fazem dispose) e por isso não abrem mais.
Testei o isdisposed e realmente não funciona, vou verificar porque.
Você não mostrou ainda seu código para abrir o formulário, mas testei aqui um simples form2.show e funcionou perfeitamente, com o form abrindo quantas vezes eu desejasse.
Class frmPrincipal
Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim vCaminho As String
Dim vConexao As String
Dim sql As String
"Data Source=" & vCaminho & "\financ.sdf"
Try
If Not File.Exists(vCaminho & "\financ.sdf") Then
Dim SqlCeEngine As New SqlCeEngine(vConexao)
SqlCeEngine.CreateDatabase()
Dim conn As New SqlCeConnection(vConexao)
conn.Open()
'Cria tabela Receitas
sql =
"CREATE TABLE Receitas (IdReceita int Primary Key NOT NULL, NmReceita nvarchar(40) NOT NULL)"
Dim cmd As New SqlCeCommand(sql, conn)
cmd.ExecuteNonQuery()
'Cria tabela Despesas
sql =
"CREATE TABLE Despesas (IdDespesa int Primary Key NOT NULL, NmDespesa nvarchar(40) NOT NULL)"
cmd.CommandText = sql
cmd.ExecuteNonQuery()
conn.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub mnCadReceitas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnCadReceitas.Click
'Dim frm As New Form
'If IsNothing(frm) Then
'frm = frmCadReceita
'End If
