Chiusura form

[Carmen]

Ciao.

Volevo chiedere il vostro aiuto in quanto non riesco ad risolvere degnamente questo quesito:

In pratica o due form VB, dal Form1 chiamo il Form2 nel modo segente: "Form2.Show(1)" apro così il Form due in modalità "scelta obligatoria".

Fin qui tutto ok, Il problema e che quando chiudo il Form2 per tornare al form1, facendo riferimento ad un determinato campo presente in form1 "Form1.Text1.SetFocus", mi da un errore.

Potete aiutarmi????

Grazie. Carmen

[atragon]

Magari non ti so aiutare ma se dici

<<mi da un errore.

è un po generico per chiunque, ti pare? quindi: che errore ti da?

[xegallo]

prova a fare così

' in un modulo

Public Function isLoaded(frm As Form) As Boolean
    Dim i As Integer
    isLoaded = False
    For i = 0 To Forms.Count - 1
        If Forms(i) Is frm Then
            isLoaded = True
            Exit Function
        End If
    Next
End Function

'----------------------------------------
'nella rotine che chiama form2
Dim x As Boolean
Form2.Show (1)
x = isLoaded(Form2)
If x = False Then Text1.SetFocus

[Carmen]

Ciao.

O risolto il problema semplicemente mettendo ad esempio il comando Text1.SetFocus subito dopo il comando FormX(1)

Grazie comunque, che come sempre siete gentilissimi...

[xegallo]

Originariamente inviato da Carmen
[b]Ciao.

O risolto il problema semplicemente mettendo ad esempio il comando Text1.SetFocus subito dopo il comando FormX(1)

Grazie comunque, che come sempre siete gentilissimi...

di niente cmq in ogni caso se non ti piaceva avevo un esempio di subclassing da postarti

[Carmen]

Chi la detto che non mi piaceva. Anzi, puoi postarmi tranquillamente, l'altro esempio, anche perchè può tornarmi utile in qualche altra circostanza.

Ciao. Carmen