Commande selstart

Soyez le premier à donner votre avis sur cette source.

Vue 12 269 fois - Téléchargée 488 fois

Description

Sélectionnez tout un texte dans un Textbox sans manipulation.

Source / Exemple :


Private Sub Form_Load()
Text1 = "Enfantin de sélectionner tout le texte"
Text2 = "Fastoche de la faire avec [TAB] ou la commande"
End Sub

Private Sub text1_GotFocus()
 
 Text1.SelStart = 0
 
 Text1.SelLength = Len(Text1.Text)

End Sub
Private Sub text2_GotFocus()
 
 Text2.SelStart = 0
 
 Text2.SelLength = Len(Text2.Text)

End Sub

Private Sub Command1_Click()
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Text2.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 17 juillet 2003
Statut
Membre
Dernière intervention
13 novembre 2008

bien
Messages postés
9
Date d'inscription
vendredi 12 décembre 2003
Statut
Membre
Dernière intervention
15 mai 2011

Super!
c est bien !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.