begin process at 2012 02 16 11:10:58
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

forcer la 1er lettre majuscule dans une TxtBox


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

forcer la 1er lettre majuscule dans une TxtBox

samedi 2 décembre 2006 à 16:00:08 | forcer la 1er lettre majuscule dans une TxtBox

chouchou270403

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.
samedi 2 décembre 2006 à 16:19:57 | Re : forcer la 1er lettre majuscule dans une TxtBox

mortalino

Membre Club
Réponse acceptée !


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 = And KeyAscii > 96 And KeyAscii < 123 Then _
        KeyAscii = KeyAscii - 32
End Sub

~Mortalino~


@++


  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
samedi 2 décembre 2006 à 16:27:07 | Re : forcer la 1er lettre majuscule dans une TxtBox

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
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



samedi 2 décembre 2006 à 16:29:29 | Re : forcer la 1er lettre majuscule dans une TxtBox

mortalino

Membre Club


Pas pensé au copier / coller, bien vu !

@++


  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
samedi 2 décembre 2006 à 18:02:47 | Re : forcer la 1er lettre majuscule dans une TxtBox

acive


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
samedi 2 décembre 2006 à 18:51:55 | Re : forcer la 1er lettre majuscule dans une TxtBox

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Tiens donc, c'est la solution que j'ai proposé... ;)


samedi 2 décembre 2006 à 19:00:07 | Re : forcer la 1er lettre majuscule dans une TxtBox

mortalino

Membre Club


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

@++


  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
samedi 2 décembre 2006 à 19:07:06 | Re : forcer la 1er lettre majuscule dans une TxtBox

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
oui carrément !


samedi 2 décembre 2006 à 19:42:50 | Re : forcer la 1er lettre majuscule dans une TxtBox

jmfmarques

Membre Club
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  
samedi 2 décembre 2006 à 19:49:05 | Re : forcer la 1er lettre majuscule dans une TxtBox

mortalino

Membre Club


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

@++


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

1 2

Cette discussion est classée dans : lettre, 1er, majuscule, forcer, txtbox


Répondre à ce message

Sujets en rapport avec ce message

Forcer l'affichage dans une txtbox : [ par noisy ] Je développe une applic pour gérer des comptes.Or, comme les n° sont gérés en interne, 3 chiffres sont supprimés à gauche, ce qui fait qu'il m'arrive 1 ere lettre en majuscule [ par nico88450 ] Salut !Je veux mettre en majuscule la 1ere lettre du nom que l'utilisateur saisi. Mais j'ai un probleme: ex : je désire rentrer Martin, je vais obteni Question txtbox [ par DraaFil ] Bonjour à tous,controle text = txtallocontrole label = lalbonjour.je voudrais savoir comment faire pour que lorsque je tappe une lettre  danstxtallo e Premiere lettre d'un mot en majuscule. Comment ? [ par nono78220 ] Hello,Comment s'appelle la fonction qui permet de mettre la première lettre d'un mot en majuscule ?UCAse met tout en majuscule.Merci d'avance pour vos Forcer les données du clavier en majuscule [ par osok ] Bonjour j' aurais voulu savoir si une fonction permettait de simuler le fait que la touche majuscule soit on.Je m'explique, je voudrais que l'utilisat la première lettre en majuscule [ par meriemabdelouahab ] bonsoir,je veux que la première lettre dans un champ soit en majuscule,même si l'utilisateur écrit un mot en minuscule la première lettre se transfére Première lettre d'un textbox en majuscule [ par js8bleu ] Bonjour à tous, j'aimerai mettre la première lettre d'un textbox en majuscule (juste la 1ère lettre même si le textbox est constitué de plusieurs mot Première lettre de chaque mot en majuscule [ par fabienfs ] Bonjour, Je cherche à mettre les premières lettres de chaque mot d'une chaîne de caractère en majuscule. L'équivalent de la fonction ucwords en PHP. la 1 ére lettre d'un textbox [ par Ania5 ] Bonjour à tous, j'aimerai mettre la première lettre d'un textbox en majuscule (juste la 1ère lettre même si le textbox est constitué de plusieurs mot Compte le nombre de majuscule [ par ZEPS256 ] Bonjour à tous, J'aimerai connaitre la propriété qui me renvoie le nombre de majuscule dans un texte. Exemple ma cellule contient : AAAAAAA bbbbb cc


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,788 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales