vb6 GotFocus su oggetto textbox

[liana79]

Ciao a tutti,
ho creato un ocx con una textbox che al dblclick apre un'altra form e riporta da quest'altra (seconda frm) dei dati. Il problema e che non scatta il gotfocus della textbox dell'ocx quando chiudo la seconda form aperta . Come devo fare, sto impazzendo???

Ocx:

Private Sub TextRicerca_DblClick() 
    
    NameMyControl = Extender.Name    
    varFrmRicerca.Show
    varFrmRicerca.ZOrder (0)  
  
End Sub

Private Sub TextRicerca_GotFocus()

        If Extender.Name = NameMyControl Then ' se il nome del contenitore è uguale dal nome della variabile globale     
        	TextRicerca.Text = MyTextRicerca
             LblDes.Caption = MyLblRicerca               
         End If

End Sub

Form richiamata

Private Sub SCGridMov_CellDblClick(ByVal Row As Integer, ByVal Col As Integer) 
       
        MyTextRicerca = SCGridMov.Text(Row, 0)
        MyLblRicerca = SCGridMov.Text(Row, 1)

        FrmPrincipale.SetFocus
        FrmPrincipale.ZOrder (0)
        Unload Me    

End Sub

Non so più che cosa provare !
grazie

[LeleFT]

Il forum per tutte le versioni di VB è Visual Basic e .NET Framework.

Ho spostato la discussione.

Inoltre, quando si posta del codice, si devono usare gli sppositi tag CODE (già sistemato da me).

Prendi visione anche del Regolamento interno, dove è tutto spiegato.


Ciao.

[liana79]

hai ragione... grazie

[MdE2005]

Originariamente inviato da liana79
Ciao a tutti,
ho creato un ocx con una textbox che al dblclick apre un'altra form e riporta da quest'altra (seconda frm) dei dati. Il problema e che non scatta il gotfocus della textbox dell'ocx quando chiudo la seconda form aperta . Come devo fare, sto impazzendo???

Ocx:

Private Sub TextRicerca_DblClick() 
    
    NameMyControl = Extender.Name    
    varFrmRicerca.Show
    varFrmRicerca.ZOrder (0)  
  
End Sub

Private Sub TextRicerca_GotFocus()

        If Extender.Name = NameMyControl Then ' se il nome del contenitore è uguale dal nome della variabile globale     
        	TextRicerca.Text = MyTextRicerca
             LblDes.Caption = MyLblRicerca               
         End If

End Sub

Form richiamata

Private Sub SCGridMov_CellDblClick(ByVal Row As Integer, ByVal Col As Integer) 
       
        MyTextRicerca = SCGridMov.Text(Row, 0)
        MyLblRicerca = SCGridMov.Text(Row, 1)

        FrmPrincipale.SetFocus
        FrmPrincipale.ZOrder (0)
        Unload Me    

End Sub

Non so più che cosa provare !
grazie

Hai provato a inserire nell'evento Unload del tuo form secondario questo codice?

formocx.tuotextbox.SetFocus

Fammi sapere..


Ciao

[liana79]

Ciao,
si avevo provato ad impostare il focus sull'oggetto textricerca all'interno dell'ocx ma non funziona perché non lo vedeva.
Alla fine sono riuscita creando una textbox(TextNew) nella formPrincipale e settare il focus prima su TexNew poi di nuovo sul controllo ocx... funziona al momento...

grazie

ciaoo

[MdE2005]

Prego..