forcer la 1er lettre majuscule dans une TxtBox

Bonjour à tous,

voici mon problème je suis sur que c'est tout con mais bon je ne trouve pas mdr.

Je fais un programme de gestion de stock et j'aimerais que dans ma texte box de produits, lorsque l'utilisateur entre le produit, la première lettre se mette automatiquement en majuscule quoi qu'il fasse et tout le reste en minuscule. Je signale aussi que j'ai un filtre dans ma txtbox on ne sait jamais c'est toujours mieux de mettre toutes les infos possibles. ha oui je programme en VB 6.0.

merci beaucou d'avance pour votre aide.

Il vaut mieux, je pense, faire la vérification à chaque fois car si le gars fait un copier coller, je suis pas sûr que ca fonctionne, et surtout, ca ne l'empêche pas de taper des majuscules après la première lettre :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sText As String
    sText = Text1.Text
    Text1.Text = UCase(Left(sText, 1) & LCase(Right(sText), len(sText))

End Sub

Pas pensé au copier / coller, bien vu !

@++

---

Salut,
En VB6 éssaie ca:

Private Sub Text1_LostFocus()
Text1.Text = UCase(Left(Text1.Text, 1)) & Right(Text1.Text, (Len(Text1.Text) - 1))
End Sub

 A+


A.C.I.V.E SARL Automatismes Conception Informatique Vidéo Electronique

Tiens donc, c'est la solution que j'ai proposé... ;)

A part que ça n'a aucun intérêt de mettre ce code dans le LostFocus.
C'est bien mieux sur l'évènement KeyPress

@++

---

oui carrément !

Moi je veux bien, mais j'ai lu plus haut une remarque tout-à-fait justifiée sur les risques d'un copier-coller...
Alors ? Depuis quand le copier-coller déclenche-t-il un événement KeyPress ?
Zisouitoutoui spliquémoi sanfoubli  

Oui, pas bête.
On ne peut penser à tout

@++

---