Comment bien combiner StrConv et SelStart ?Résolu

Question

Bonjour,

j'ai un textbox nommé "txtprenom". Dans le Change de txtprenom, j'ai saisi le code suivant:

txtprenom.Text = StrConv(txtprenom, vbProperCase)
txtprenom.SelStart = Len(txtprenom)

En supposant que j'ai saisi les prénoms "Alberttyne Jeanne" dans txtprenom. Lorsque je veux supprimer le "t" en plus et remplacer le "y" par un "i", si je clique par exemple entre les deux "t" et que j'en supprime un, il me ramène automatiquement en fin de ligne alors que j'aimerai qu'il reste là-bas pour que je puisse remplacer le "y" par un "i".

Merci d'avance.

Cordialement.

cs_Jack · Accepted Answer

Salut

S'il va en fin de ligne, c'est parce que tu le lui a demandé.
De toute façon, le fait de changer le texte suffit à lui faire perdre l'emplacement du curseur, le "là-bas" comme tu dis.
Il te suffit de mémoriser le SelStart avant de toucher au texte et de le remettre ensuite.
    Dim r As Long
    With txtprenom
        r = .SelStart
        .Text = StrConv(.Text, vbProperCase)
        .SelStart = r
    End With
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

js8bleu · Answer

Bonjour jack et Merci pour ton aide. ça marche hyper bien, c'est vraiment tout ce que je voulais . 

Parfois, je me demande si on est sur la même planète .

Encore Merci, excellente journée et prends bien soin de toi.

Cordialement.

Comment bien combiner StrConv et SelStart ?

2 réponses

Votre réponse

Discussions similaires