Pre-formate un textbox avec un texte déterminé pour entrer une valeur à la suite de ce texte

Commenter

Contenu du snippet

Débutant novice en VB, je récupère régulièrement et honteusement les idées des autres sur ce site, en strict consommateur des gestations laborieuses des génies du VB. Alors, subitement, un source mûrement réfléchi a jailli de mes réflexions. Je ne sais pas s’il existe sur le site (si oui, désolé … si non : chouette, j’ai enfin trouvé quelque chose !). Il s’agit de pré formater un textBox afin d’y inscrire une valeur à la suite d’un texte prédéfini.
Sur une forme mettez un textBox nommé Text1
Puis inscrivez le code suivant dans la form :

Source / Exemple : 


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

Conclusion :


Bon, je sais, ca ne révolutionnera pas la programmation française, mais néanmoins, si ca existe déjà ... Faites moi plaisir ... ne me le dites pas ;-) Je continuerai à croire que je suis un génie! ;-)

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.