Ecrire en miroir

Question

Bonjour &#224; tous.



Je cherche le moyen d'ecrire un texte et d'ensuite l' afficher en miroir.

Ma premi&#232;re id&#233;e &#233;tait d'ecrire dans une picturebox et d'ensuite
retourner l'image dans cette picturebox mais y'a peu &#234;tre plus rapide
et plus simple.



Qu'en pensez vous ... ?



D'avance merci



^Cali^



Ps: pour ceux qui se demenderai l'interret. J'ai souvent &#224; projeter des
photos et du texte sur &#233;cran g&#233;ant et malheureusement les projos sont
pas tjs facile &#224; configurer pour renvers&#233; l'image, c'est pourquoi je
voudrais le faire directement dans mon soft...

Gobillot · Answer

MsgBox StrReverse("La Chaine")

Daniel

jpleroisse · Answer

Option Explicit
Function Inverser(ChaineDepart) As String
Dim LongueurChaine As Integer, i As Integer
Inverser = ""
LongueurChaine = Len(ChaineDepart)
For i = LongueurChaine To 1 Step -1
Inverser = Inverser & Mid(ChaineDepart, i, 1)
Next i
End Function

Private Sub Command1_Click()
Inversion
End Sub

Sub Inversion()
Dim EntreeUtilisateur As String
Text1 = Inverser(Text1.Text)
End Sub

jpleroisse

jpleroisse · Answer

PS tu peux supprimer  Dim EntreeUtilisateur As String

bfjmn · Answer

Merci merci mais vous proposez des solution qui ne font qu'inverser
l'ordre des lettres, hors faire un mirroir implique, c'est vrai une
inversion des lettres, mais implique surtout une rotation de la lettre
&#224; 180 d&#233;gr&#233; sur l'axe horizontal.



Ex: avec votre syst&#232;me, "La Chaine" devient "eniahC aL", hors elle doit devenir

bfjmn · Answer

Bheu, mon image s'affiche pas, voi&#231;i le lien http://www.cali.be/demo.jpg

Ecrire en miroir

5 réponses

Discussions similaires