[VB] Seleziona tutto

[ragno75]

perché non provi così:

Private Sub Seleziona()
MioForm.ActiveControl.selStart = 0
MioForm.Activecontrol.selLenght = Len(Mioform.ActiveControl.Text)
End Sub

Passavo di qua ed ho letto il messaggio penso che così sia più semplice ed intuitivo, però non so se funziona mi è venuto in mente al momento

[imente]

in quel tuo codice ragno75 ci vorrebbe un piccolo trapping
(e peraltro hai scritto Lenght invece di Length=

se infatti ad essere selezionato è un Bottone, farà sicuramente errore

Private Sub Seleziona()
  on error goto lineERR
  MioForm.ActiveControl.SelStart = 0
  MioForm.ActiveControl.SelLength = Len(MioForm.ActiveControl.Text)
  lineERR:
End Sub

voglio anche sottolineare che questa sub SELEZIONA() deve essere chiamata [Call Seleziona()] solo da un menù

poichè se infatti viene chiamata al Click di un bottone...
l'ultimo elemento col focus sarà appunto il BOTTONE...
e quindi non selezionerà proprio nulla!

saluti