Faire un effet "miroir" dans un textboxRésolu

Question

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

cs_casy · Accepted Answer

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

PCPT · Answer

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

cs_casy · Answer

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

mySQL15 · Answer

Merci beaucoup les gars

PCPT · Answer

casy
 -> en même temps c'est pas des fonctions qu'on utilise fréquemment, t'es tout excusé ^^

cs_casy · Answer

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

Faire un effet "miroir" dans un textbox

6 réponses

Votre réponse