Commande selstart

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_JLB59)