forcer la 1er lettre majuscule dans une TxtBoxRésolu

Question

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.

mortalino · Accepted Answer

Salut, il faut jouer avec le numéro ascii dans l'évènement Text1_KeyPress Private Sub Text1_KeyPress(KeyAscii As Integer) If Text1.SelStart = 0 And KeyAscii > 96 And KeyAscii < 123 Then _ KeyAscii = KeyAscii - 32 End Sub ~ Mortalino ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

cs_DARKSIDIOUS · Answer

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

mortalino · Answer

Pas pensé au copier / coller, bien vu ! 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

acive · Answer

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

cs_DARKSIDIOUS · Answer

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

mortalino · Answer

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

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

cs_DARKSIDIOUS · Answer

oui carrément !

jmfmarques · Answer

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

mortalino · Answer

Oui, pas bête.
On ne peut penser à tout 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

jmfmarques · Answer

Quand c'est comme çà, on peut prendre l'habitude (corse à moitié malgré mon patronyme espagnol) de "zigouiller" le clipboard au gotfocus (celà évite la multiplication de contrpôles lors de l'événement Change ou au LostFocus)

cs_cacaboudin · Answer

Autre technique pour faire un uppercase sur la 1er lettre :
text1.text=strconv("text1.text",3)

Forcer la 1er lettre majuscule dans une TxtBox

11 réponses

Votre réponse

Discussions similaires