IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

première lettre en majuscule


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de amazircool
    Inscrit en
    Décembre 2005
    Messages
    497
    Détails du profil
    Informations forums :
    Inscription : Décembre 2005
    Messages : 497
    Par défaut première lettre en majuscule
    Salut, comment je met la première lettre en majuscule.
    Exemple quant je taperai le nom « amazircool » Il m’affichera Amazircool, dans l’événement bien sure change

  2. #2
    Membre Expert
    Avatar de zazaraignée
    Profil pro
    Étudiant
    Inscrit en
    Février 2004
    Messages
    3 174
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2004
    Messages : 3 174
    Par défaut
    Dans l'événement change, ça m'étonnerais que ca marche! Essaie plutôt
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Text1_KeyPress(KeyAscii As Integer)
        If Text1.Text = "" Then
            Dim s As String
            s = UCase(Chr(KeyAscii))
            KeyAscii = 0
            Text1.Text = s
            Text1.SelStart = 1
        End If
    End Sub
    C'est un peu bourrin, mais ça marche.

  3. #3
    Membre émérite Avatar de avigeilpro
    Homme Profil pro
    Ambulancier
    Inscrit en
    Janvier 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : Ambulancier
    Secteur : Transports

    Informations forums :
    Inscription : Janvier 2004
    Messages : 880
    Par défaut
    valable dans toutes les situations (meme après un copier/coller):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Text1_Change()
    Dim i As Integer
        i = Text1.SelStart
        If Text1.Text <> "" Then
            Text1.Text = UCase(Left(Text1.Text, 1)) & Mid(Text1.Text, 2)
        End If
        Text1.SelStart = i
    End Sub
    La connaissance seule ne suffit pas. La vraie compréhension vient de la mise en expérience.
    Règles|FAQ|Tuto

  4. #4
    Membre éclairé Avatar de amazircool
    Inscrit en
    Décembre 2005
    Messages
    497
    Détails du profil
    Informations forums :
    Inscription : Décembre 2005
    Messages : 497
    Par défaut
    avigeilpro :=)
    Pouvez vous stp commenter un peu le code,
    A quoi sert la fonction SelStart et même la Mid(Text1.Text, 2)
    Merci

  5. #5
    Membre émérite Avatar de avigeilpro
    Homme Profil pro
    Ambulancier
    Inscrit en
    Janvier 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Creuse (Limousin)

    Informations professionnelles :
    Activité : Ambulancier
    Secteur : Transports

    Informations forums :
    Inscription : Janvier 2004
    Messages : 880
    Par défaut
    F1 sur la fonction t'aurais pris moins de temps que de poster, mais bon je répond quand même :
    SelStart renvoie/définie la position du curseur dans la boite texte.
    Mid renvoie une partie d'une chaine (1er paramètre) à partir d'une position (2eme paramètre) d'une certaine longueur (3eme paramètre).
    Si le 3ème paramètre n'est pas spécifié, Mid renvoie toute la chaine à partir de la position donnée en 2eme paramètre (donc la fin de la chaine)
    J'utilise Selstart car losque l'on modifie du texte, le curseur revient au début. Ici je prend la position du curseur, modifie le texte, puis remet le curseur à sa place
    La connaissance seule ne suffit pas. La vraie compréhension vient de la mise en expérience.
    Règles|FAQ|Tuto

  6. #6
    Membre éclairé Avatar de amazircool
    Inscrit en
    Décembre 2005
    Messages
    497
    Détails du profil
    Informations forums :
    Inscription : Décembre 2005
    Messages : 497
    Par défaut
    merci J’ai bien saisie

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [CR 8] Comment mettre la première lettre en majuscule?
    Par js8bleu dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 17/03/2011, 10h50
  2. Première lettre en majuscule dans un combobox
    Par youhibadelphi dans le forum Composants VCL
    Réponses: 6
    Dernier message: 05/10/2009, 19h00
  3. première lettre en majuscule
    Par r83 dans le forum Général JavaScript
    Réponses: 12
    Dernier message: 13/11/2008, 10h17
  4. Comment forcer un champ en minuscule, et première lettre en majuscule
    Par moilou2 dans le forum Macros et VBA Excel
    Réponses: 25
    Dernier message: 08/09/2008, 16h57
  5. Première lettre en Majuscule.
    Par popogendarme dans le forum SQL Procédural
    Réponses: 4
    Dernier message: 08/03/2007, 19h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo