COMMANDE SELSTART

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 zip