Problema con vettori di form

[rambco]

'dal form principale
Private Sub Command1_Click()
    If messaggio(0) Is Nothing Then
        Set messaggio(0) = New frmMessaggio
        messaggio(0).Label1 = "Pippo"
        messaggio(0).Show
    Else
        messaggio(0).Label1 = "Pippo2"
    End If
End Sub

'in un modulo
Public messaggio(2) As frmMessaggio 

Ora la domanda e' questa ! Quando premo la X per chiudere il form caricato la variabile messaggio(0) non riva in nothing e quindi non mi scarica il form ! Cosa devo e dove devo aggiungere per ovviare !? TNX

[vonkranz]

set messaggio([indice]) = nothing

La metti nel punto dove vuoi scaricare il form dalla memoria.
Se lo fai subito dopo la chiamata al metodo .Show, il metodo .Shov deve essere chiamato in modalita' modale (messaggio(0).Show vbModal)

[rambco]

questo lo sapevo pero lo dovrei inserire dentro il form da scaricare ! Pero non so come passargli l'indice !

[vonkranz]

Non puoi settare a Nothing un'istanza ancora attiva, per questo non puoi inserirlo all'interno dell'unload del form (o in qualsiasi altro punto al suo interno)

Il settaggio a nothing deve essere necessariamente fatto all'esterno.

Se pero' vuoi provare, basta che l'indice lo metti in una variabile globale e poi usi la variabile al posto del numero.

Public varIndex
....
varIndex=1
messaggio(varIndex).Show
....

set messaggio(varIndex)=nothing

[rambco]

non va ! e quindi come faccio !?

[vonkranz]

Partendo dal presupposto che il tipo di incapsulamento che stai facendo non e' molto "ortodosso", sinceramente non capisco cosa vorresti fare con quel pezzo di programma...

In pratica, se il form non e' in memoria, lo crei e passi 'pippo1' alla label, se e' gia' in memoria passi 'pippo2'...a questo punto, anziche' ricorrere all'incapsulamento, perche' non testi le poprieta' del form ? (visible ad esempio)

Forse stai guardando il problema da un punto di vista non corretto, magari se spieghi cosa vuoi fare e' piu' facile trovare una soluzione.

[xegallo]

e comunque ogni form caricato è presente nella collection forms

[rambco]

in pratica dovrei fare una cosa tipo icq che quando arriva il messaggio se il form c'e' gia non ne apre un'altro e allo stesso tempo per ogni utente che manda un messaggio a pre una nuova finestra

[xegallo]

Originariamente inviato da rambco
in pratica dovrei fare una cosa tipo icq che quando arriva il messaggio se il form c'e' gia non ne apre un'altro e allo stesso tempo per ogni utente che manda un messaggio a pre una nuova finestra

dim frm as form
for each frm in forms
   'se il form c'è c'è usalo
   'altrimenti caricalo
next

[rambco]

Private Sub Command1_Click()
    Dim frmMsg As Form
    Dim frmNew As frmMessage
    For Each frmMsg In Forms
        
       If frmMsg.User = "Paolo" Then
        frmMsg.Text1 = frmMsg.Text1 & " " & "Paolo"
       Else
        Set frmNew = New frmMessage
        frmNew.User = "Paolo"
        frmNew.Text1 = "Paolo"
        frmNew.Show
       End If
       'altrimenti caricalo
    Next

End Sub 

me la correggi please lol tnx