Selezione Testo

[raffaele.p]

SALVE A TUTTI.

VORREI FARE UN FUNZIONE PER IL MIO PROGETTO
DA RICHIAMARE NELL'EVENTO GOT_FOCUS DEI VARI CONTROLLI.

QUESTA FUNZIONE, DOVREBBE SELEZIONARE IL TETSO EVENTULMANTE CONTENUTO
NEL CONTROLLO SE AD ESEMPIO E' UNA TEXT BOX....

Chi mi aiuta???

[Sypher]

Una cosa del genere ti può servire?
Private Sub SelezionaTesto()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

[raffaele.p]

Il fatto è che io vorrei scrivere una funzione che possa essere utilizzata per tutti i controlli e non solo per 'Text1' come è specificato in questa funzione.
Io gli vorrei passare il controllo come parametro.

Comunque grazie.

[Sypher]

Non avevo capito bene la domanda...qualcosa del genere può servire?

Private Sub Form_Load()
    SelezionaTesto Text1
End Sub
    
Private Sub SelezionaTesto(controllo As Control)
    If TypeOf controllo Is TextBox Then
        controllo.SelStart = 0
        controllo.SelLength = Len(controllo )
    End if
End Sub

[raffaele.p]

Grazie.
Un ottimo esempio!