[VB.NET]Limitare una sola istanza di Form

[RaouL_BennetH]

Ciao a tutti

Stavo provando a fare in modo che un'applicazione possa avere soltanto un'istanza di un form già aperto. In soldoni:

Private WithEvents myForm As MioFormPersonalizzato

'nell'evento che gestisce l'apertura del form, per esempio click in un button

If Not IsNothing(myForm) Then
   If Not myForm.IsDisposed Then
      myForm.BringToFront()
   Else
   myForm = new MioFormPersonalizzato
   'blabla per l'apertura del form
   End If
Else
myForm = newMioFormPersonalizzato
End If

Tutto bene, funziona, se il form è già aperto ma è nascosto da qualche altro form, viene messo in primo piano, altrimenti, se è chiuso me ne apre uno nuovo.

Benone ma... ovviamente l'applicazione contiene moltissimi Form, quindi, pensavo di generalizzare il tutto creandomi una routine ad hoc, passando come miei argomenti appunto, il form in oggetto... in soldoni:

private Sub OnAperturaForm(ByVal fInstance as Form, fClass as Form)
If Not IsNothing(fInstance) Then
   If Not fInstance.IsDisposed Then
      fInstance.BringToFront()
   else
   'ecco i problemi:
   fInstance = new fClass
'blablabla

Ovviamente, fClass me lo da come non dichiarato, inizializzato, sconosciuto etc...

in quella fase, non posso dire: New Form, dato che mi genererebbe un form generico, mentre a me serve di istanziare un nuovo MioFormPersonalizzato.


C'è modo di aggirare l'ostacolo?

Grazie.

RaouL.

[^TiGeRShArK^]

basta che inserisci questo metodo nella classe padre da cui estendono tutti i tuoi form personalizzati e lo istanzi con l'equivalente per il vb della keyword this() del c# (che in vb non so come si chiama ) e dovrebbe andare così ad occhio....

[RaouL_BennetH]

Originariamente inviato da ^TiGeRShArK^

basta che inserisci questo metodo nella classe padre da cui estendono tutti i tuoi form personalizzati e lo istanzi con l'equivalente per il vb della keyword this() del c# (che in vb non so come si chiama ) e dovrebbe andare così ad occhio....

Hello

Ehm.. no, ho dimenticato di postarlo ma non funziona, l'equivalente di this è Me

ma con Me lui intende il form corrente, non quello che vorrei controllare.

[^TiGeRShArK^]

Originariamente inviato da RaouL_BennetH

Hello

Ehm.. no, ho dimenticato di postarlo ma non funziona, l'equivalente di this è Me

ma con Me lui intende il form corrente, non quello che vorrei controllare.

ehmm..
a questo punto mi sfugge quello che hai fatto..
quel metodo onAperturaForm dove l'hai messo?
comunque potresti fare così in sintesi:

class MyForm
    {
        Form form;

        public MyForm()
        {
            if (form != null)
            {
                form.TopMost = true;  //sarebbe l'equivalente di brongToFront credo...
            }
        }
        
    }

Le altre tue classi estendono da questa classe e aggiungono al form contenuto in questa classe tutti i componenti che gli servono, istanziando precedentemente il form se esso risulta ancora null.
In questo modo in teoria potresti anche istanziare il form con tipi che estendono direttamente da form in caso tu voglia utilizzare il designer per i tuoi form.

[MarcoGG]

Originariamente inviato da RaouL_BennetH

Ciao a tutti

Stavo provando a fare in modo che un'applicazione possa avere soltanto un'istanza di un form già aperto.
...

Ho dato un'occhiata al tuo metodo...
Perchè invece non includere un piccolo codice aggiuntivo in ogni oggetto di cui vuoi ottenere un comportamento a singola istanza ?
Io farei così :

1. Ho una Form1 che è l'oggetto di avvio del progetto, e un semplice pulsante per verificare che di Form2 esista una sola istanza.

2. Modifica alla Sub New di Form2, in modo che non sia possibile dall'esterno crearne una o più istanze in modo incontrollato :

Public Sub New()

diventa :

Private Sub New()

Il codice completo della Sub New() per Form2 sarà :

    Private Sub New()

        MyBase.New()

        ' Chiamata richiesta da Progettazione Windows Form.
        InitializeComponent()

        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().

    End Sub

3. Subito dopo questa Sub, in Form2 ( e in qualsiasi altro oggetto a singola istanza... ), aggiungo questo codice :

    Private Shared Ist As Form2 = Nothing

    Public Shared Function Istanza() As Form2
        If Ist Is Nothing OrElse Ist.IsDisposed = True Then
            Ist = New Form2
        End If
        Ist.BringToFront()
        Return Ist
    End Function

4. Perciò per aprire Form2 da Form1 ( pulsante... ) molto semplicemente :

        Dim SingIstForm As Form2
        SingIstForm = Form2.Istanza 
        SingIstForm.Show()

Ogni esecuzione successiva alla prima di questo codice produce un semplice "BringToFront" della stessa istanza di Form2, mentre :

Dim SingIstForm As New Form2

come già detto, non sarà più disponibile.

E il gioco è fatto !
Prova...

[RaouL_BennetH]

Lo provo volentieri !

nel frattempo grazie mille

RaouL.