<longre@wanadoo.fr>De: Laurent longre 
Objet: Re: s&eacute;lection automatique du contenu d'un textbox ? (2)
Date : lundi 27 septembre 1999 16:47

Petite correction, pour &eacute;viter que le texte soit de nouveau entièrement
s&eacute;lectionn&eacute; quand on clique dans la zone de saisie après que celle-ci
ait &eacute;t&eacute; activ&eacute;:

dim TBActif As Boolean

Private Sub TBselect(TB As MSforms.TextBox)
  if Not TBActif then Exit Sub
  with TB
    .SelStart = 0
    .SelLength = Len(.Text)
  end with
  TBActif = false
end Sub

Private Sub Zaza1_Enter()
  TBActif = true
end Sub

Private Sub Zaza1_Mousedown(ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  TBselect Zaza1
end Sub

Private Sub Zaza2_Enter()
  TBActif = true
end Sub

Private Sub Zaza2_Mousedown(ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  TBselect Zaza2
end Sub

Private Sub Zaza3_Enter()
  TBActif = true
end Sub

Private Sub Zaza3_Mousedown(ByVal Button As Integer, _
  ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  TBselect Zaza3
end Sub

Private Sub Userform_Activate()
  TBselect Zaza1
end Sub

Cordialement,

Laurent

Michel wrote:
> 
> Bonjour,
> 
> je bute sur le problème suivant :
> 
> Dans un formulaire, j'utilise plusieurs champs de saisie. Avant d'afficher
> le formulaire, j'affecte des valeurs aux diff&eacute;rents champs.
> Comment faire pour que le contenu des champs soit automatiquement
> s&eacute;lectionn&eacute; ( en surbrillance ) lorsqu'il reçoit le contrôle ?
> 
> D'avance, merci  pour vos r&eacute;ponses
> 
> Michel