Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 793 fois - Téléchargée 31 fois
Private Sub Text1_Click() 'Formate le textBox avec le mot "Période" If Text1.SelStart < 7 Then Text1.Text = "Période" & " " Text1.SelStart = Text1.SelStart + 8 End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) ' Inscrit le mot "période" dans le textbox ' et force le curseur après l'espace If Text1.SelStart < 9 Then Text1.Text = "Période" & " " Text1.SelStart = Text1.SelStart + 8 End If ' Autorise le retour arrière et Force les caratères numériques If KeyAscii = 8 Then KeyAscii = 8 ElseIf Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then KeyAscii = 0 End If End Sub
25 nov. 2003 à 22:04
24 nov. 2003 à 23:21
Private Sub Text1_Click()
If Text1.SelStart < 8 Then Text1.SelStart = 8
End Sub
24 nov. 2003 à 18:54
24 nov. 2003 à 09:45
Pour faire EXACTEMENT la même chose, on aurait pu écrire :
Private Sub Text1_GotFocus()
If Not Text1.Text Like "Période *" Then Text1.Text = "Période "
If Text1.SelStart < 8 Then Text1.SelStart = 8
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
If Text1.SelStart <8 Then KeyAscii 0
ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If
End Sub
'****************************************************
bien sur, il manque encore certaines choses, comme verifier le "Format" de ce que l'on affecte par le code : si je fais Text1.text = "coucou" , ca ne respecte pas le "masque" que tu as definis.
d'autre part, tu ne bloques le presse papiers.... tu autorise le Retour Chariot (8) mais tu bloque le Copier (3) et le couper (23) et le coller(22)
j'ai fait une modification dans ton code, car il etait assez deplaisant de perdre ce que l'on tape, chaque fois que l'on clique dans le textbox...
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.