FORM

JOHNHEY 06/08/2011 08:23:51
#380957
Cá estou eu mais uma vez.
Como faço para abrir o form apenas uma vez?
tenho essa linha de comando, mas toda vez que clico no menu para abrir ele abre, se eu clicar 10 vezes ele abrir 10 forms e queria somente um.


Try
Dim childform As New Pesquisa
childform.MdiParent = Principal [ô]Coloca o pesquisa como children
childform.Show() [ô]Exibe o formulário
childform.Top = [Ô]241[Ô]
childform.Left = [Ô]922[Ô]
Catch EX As Exception
MsgBox([Ô]erro - [Ô] + EX.Message)
End Try
RODRIGOFERRO 06/08/2011 08:35:24
#380958
Crie uma função com parametros que basicamente fara isso !



Private Sub btnViewChild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewChild.Click
    For Each child In Me.MdiChildren
        If TypeOf child Is Form2 Then
            child.WindowState = FormWindowState.Normal
            child.Focus()
            Exit sub
        End If
    Next
    Dim frm As New Form2
    frm.MdiParent = Me
    frm.Show()
End Sub



Abraços
FROSTYNHO 06/08/2011 09:23:09
#380959 Resposta escolhida
ou deixa o Dim childform As New Pesquisa, onde se inicia a classe...
ex:

Dim childform As New Pesquisa
Public Class Form1

End Class
JOHNHEY 06/08/2011 10:03:05
#380960
Frostynho fazendo o que você me disse dá um erro.
JOHNHEY 06/08/2011 10:05:27
#380962
Isso acontece quando fecho e volto a tentar a abrir e depois desse erro o botão não funciona mais.
e Depois desse erro tenho que alterar a opção close para hide para funcionar, mas ai o erro acontece quando fecho atraves do [Ô]X[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar