Faire un effet "miroir" dans un textbox

[Résolu]
Signaler
Messages postés
79
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
28 août 2010
-
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
bonjour ou bonsoir tout le monde
je cherche le moyen de lire a l'envers le contenue d'une textbox
je m'explique

disons que on a écrit: "bonjour tout le monde" dans le textbox1
et bien dans le textbox2 ça donnera: "ednom el tuot ruojnob"
j'aimerai faire une textbox qui réécrit ce que je dit a l'envers quoi, comme un miroir
avec un timer sur 1 d'intervalle et 2 textbox ça doit être faisable mais je ne sais pas comment (le timer pour retranscrire en temps réelle dans le textbox2)

merci d'avance

6 réponses

Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
Textbox2.Text = ""
For i = Len(Textbox1.Text) To 1 Step -1
    Textbox2.Text = TextBox2.Text & Mid(Textbox1.Text, i, 1)
Next



Fait en direct live, pas testé, sans garantie de succès.
L'idée est là, mais il se peut qu'il existe meilleur code

---- Sevyc64  (alias Casy) ---- <hr size ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,

Private Sub Text1_Change()
    Text2.Text = StrReverse(Text1.Text)
End Sub

ps : voir codyx.org :)

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
lol, depuis que je ne fais plus de VB6, j'en oublie l'existance de la moitié des fonctions

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php
Messages postés
79
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
28 août 2010

Merci beaucoup les gars
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
casy
-> en même temps c'est pas des fonctions qu'on utilise fréquemment, t'es tout excusé ^^
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
Surtout que moi, la grosse majorité de VB6 que j'ai fait était en fait du VB5, et en VB5 ces fonctions n'existaient pas

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php