Discussion :

[bruce207]

Bonjour,
mon probleme est que :
a)j'ai un groupe de controles textbox, mais je voudrais mettre du code pour pouvoir afficher la date sous forme de jj/mm/aaaa à 2 d'entre eux, et je ne sais pas comment l'appliquer rien qu'a ces 2 là. après avoir taper mon code dans private sub textbox1_change() qui ici fait reference à tous les textbox j'ai un message d'erreur, je voudrais savoir comment faire pour que le code n'affecte que ces 2 champs là.
b) j'ai taper le code suivant pour avoir la date sous forme jj/mm/aaaa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Text1_Change(index as integer)
	Dim Valeur As Byte
	Text1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
	Valeur = Len(Text1)
	If Valeur = 2 Or Valeur = 5 Then Text1 = Text1 & "/"
End Sub

mais après avoir taper les 2 premieres chiffres de la date, il y a ajout du / et le curseur revient au debut et ne continue plus comme demandé. Est-ce une erreur de code ? Comment faire ?
Merci

[ucfoutu]

Bonjour,

déjà : te référer toujours à l'index du contrôle pour te rérérer à un contrôle particulier d'un groupe indexé (c'est cet index qui le caractérise)

ensuite : il vaut toujours mieux préciser la propriété concernée (ici : text)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Text1_Change(index as integer)
	Dim Valeur As Byte
	Text1(index).MaxLength = 10 'nb caractères maxi autorisé dans le textbox
	Valeur = Len(Text1(index).text)
	If Valeur = 2 Or Valeur = 5 Then Text1(index).text = Text1(index).text & "/"
End Sub

enfin : si tu veux qu'après modif, ton curseur se place à la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text1(index).selstart = len(Text1(index).text)

[Delbeke]

Pour ne faire tes test que sur deux des textbox tu peux utiliser la propriété index

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Text1_Change(index as integer)
  Dim Valeur As Byte
  select case index
  case 2,5
	Text1(index).MaxLength = 10 'nb caractères maxi autorisé dans le textbox
	Valeur = Len(Text1(index).text)
	If Valeur = 2 Or Valeur = 5 Then Text1(index).text = Text1(index).text & "/"
  end Select
End Sub

Ou encore mettre une indication dans la propriété tag des textbox concerné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Text1_Change(index as integer)
  Dim Valeur As Byte
  If Text1(Index).Tag="Date" then
	Text1(index).MaxLength = 10 'nb caractères maxi autorisé dans le textbox
	Valeur = Len(Text1(index).text)
	If Valeur = 2 Or Valeur = 5 Then Text1(index).text = Text1(index).text & "/"
  End If
End Sub