[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 :p) e dovrebbe andare così ad occhio....

[RaouL_BennetH]

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 :p) e dovrebbe andare così ad occhio....

Hello :D

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^]

Hello :D

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.. :fagiano:
quel metodo onAperturaForm dove l'hai messo?:stordita:
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]

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 ! :cool:
Prova...

[RaouL_BennetH]

Lo provo volentieri !

nel frattempo grazie mille :)

RaouL.