Faire un effet "miroir" dans un textbox [Résolu]
mySQL15
- Messages postés
- 79
- Date d'inscription
- samedi 5 novembre 2005
- Dernière intervention
- 28 août 2010
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
A voir également:
- Faire un effet "miroir" dans un textbox
- Effet miroir sur une image - Codes sources - Delphi / Pascal (Graphique)
- Effet miroir sur bitmap - Codes sources - C / C++ / C++.NET (API)
- C / C++ / C++.NET : Editeur d'images - c++ devcpp - flou, inversion, rotation, effet miroir... - Co - Guide
- Afficher un effet de texte dans une textbox (ou autre objet) - Codes sources - Visual Basic / VB.NET (Modules)
- Delphi / Pascal : Effets zoom & miroir sur bitmap - CodeS SourceS - Guide
6 réponses
Meilleure réponse
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
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
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
- Messages postés
- 7745
- Date d'inscription
- mercredi 1 septembre 2004
- Dernière intervention
- 24 septembre 2014
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
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.