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 :confused:

[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 ;) ;)