1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

Réponse 1 / 6
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
Réponse 2 / 6
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
Réponse 3 / 6
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
Réponse 4 / 6
Messages postés
79
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
28 août 2010
Merci beaucoup les gars
Réponse 5 / 6
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é ^^
Réponse 6 / 6
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
Répondre Posez votre question