Pegar a instância atual

[Digowarta]

Pessoal, tenho um Form onde eu posso chamar ele mais de uma vez, e conforme eu vou chamando, eu vou criando novas instâncias dele. pois bem, tem como eu pegar a instancia ATUAL dele em outro form, para que eu possa trabalhar com as propriedades dele dentro desse outro form?

valeuuu

[VB6DeveloperJr]

Veja se isto te ajuda:

http://www.codeproject.com/Articles/37297/...on-Pattern.aspx

Utilizando o padrão Singleton, você terá apenas uma instância da classe, e poderá acessar suas propriedades em qualquer form!

[Digowarta]

eu testei mas não funcionou, eu crio uma instancia via Singleton, depois quando eu preciso abrir o form novamente, eu busco a mesma instancia, ate ai beleza, so que no momento que eu dou o show pra abrir a janela dessa instancia recuperada, ele da erro porque ela já está aberta. ou seja, eu teria que criar uma nova instancia pra poder abri-la novamente.

essa é a classe Singleton

Public Class clsSingleton
    Public Shared instancia As clsSingleton
    Public Shared flag As Boolean
    Public pfrmPesPadrao As frmPesPadrao

    Private Sub New()
        'construtor privado de forma a desabilitar outro a criar um objeto
        pfrmPesPadrao = New frmPesPadrao
    End Sub

    Friend Shared Function getSingletonObject() As clsSingleton
        If flag = False Then
            instancia = New clsSingleton()
            flag = True
            Return instancia
        Else
            Return instancia
        End If
    End Function
End Class

-No momento que eu chamo a tela de pesquisa via menu, esse é o codigo

Private Sub M0240000000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M0240000000.Click

Dim frmPesquisaPadrao As clsSingleton = clsSingleton.getSingletonObject

frmPesquisaPadrao.pfrmPesPadrao.setCamposPesquisa(New String() {"id_fornecedor", "descricao"})

frmPesquisaPadrao.pfrmPesPadrao.setFiltroPesquisa(New String() {"id_fornecedor", "descricao"})

frmPesquisaPadrao.pfrmPesPadrao.SetarDadosPesquisa("cad_fornecedor", "frmCadFornecedor")

Call frmPesquisaPadrao.pfrmPesPadrao.Show(Me)

End Sub

e quando eu vou chamar a pesquisa de dentro do form, o codigo é o mesmo do acima, dai ele da o erro na ultima linha, que chama o show.

valeu pela ajuda