Discussion :

[^Cali^]

Bonjour, je cherche le moyen de réaliser une rotation à 180° d'un texte (label) sur l'axe horizontal, autrement dit afficher le texte en miroir.

J'e suis un peu perdu, j'ai trouver pour les images, j'ai même essayer d'ecrire dans une image et ensuite la retourner mais je ne retourne que l'image et pas mon texte, ensuite je me suis un peu pencher sur l'api gdi3é mais je ne trouve pas, avez vous une idée ???


MErci d'avance

^Cali^

[ProgElecT]

bonjour

utilise la Function StrReverse(Expression As String) As String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1.Caption = StrReverse(Label1.Caption)

[^Cali^]

Bonjour ProgElecT,

le code que tu me propose inverse les lettres, exemple "La Chaine" deveint "eniahC aL". Hors ce n'est pas ça que je cherche, moi je veux lui faire subbir une rotation à 180° sur l'axe horizontal, c'est a dire, voir le texte en miroir.

ex:


Si qq pouvais se pencher sur a question, car j'ai beau faire des fouilles et poser la question sur 3 forums différents, apprament je demande la lune.

Perso je pense qu'au niveau du label même ce n'est pas possible, j'ai penser écrire du texte dans une picturebox et puis retourner son image, mais ça ne fonction pas, est ce que qq sait comment transformer un texte en un élément graphique, ...

[ProgElecT]

Si s'est possible dans un PictureBox.

pour essais, dans une Form, mettre
1 Label
3 CommandButton
2 pictureBox
les nommer suivant le code
la Form et les 2 PictureBox AutoRedaw = true
les 2 PictureBox BorderStyle = 0
Caption du label = "Ma chaine string"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CmdMirH_Click()
CfgPictureSortie
PictureSortie.PaintPicture Picture1.Image, 0, Picture1.Height - 1, Picture1.Width, -Picture1.Height
PictureSortie.Refresh
End Sub
 
Private Sub CmdMirV_Click()
CfgPictureSortie
PictureSortie.PaintPicture Picture1.Image, Picture1.Width - 0, 0, -Picture1.Width, Picture1.Height
PictureSortie.Refresh
End Sub
 
Private Sub CmdRot180_Click()
CfgPictureSortie
PictureSortie.PaintPicture Picture1.Image, Picture1.Width - 1, Picture1.Height - 1, -Picture1.Width, -Picture1.Height
PictureSortie.Refresh
End Sub
 
Public Sub CfgPictureSortie()
Picture1.Cls
Picture1.Width = LabMaChaine.Width: Picture1.Height = LabMaChaine.Height
Picture1.FillColor = LabMaChaine.ForeColor
Picture1.BackColor = LabMaChaine.BackColor
Picture1.Font = LabMaChaine.Font
Picture1.FontBold = LabMaChaine.FontBold
Picture1.FontItalic = LabMaChaine.FontItalic
Picture1.FontName = LabMaChaine.FontName
Picture1.FontSize = LabMaChaine.FontSize
Picture1.FontStrikethru = LabMaChaine.FontStrikethru
Picture1.FontUnderline = LabMaChaine.FontUnderline
Picture1.CurrentX = 0: Picture1.CurrentY = 0
Picture1.Print LabMaChaine
PictureSortie.Cls
PictureSortie.BackColor = Picture1.BackColor
PictureSortie.Height = Picture1.Height: PictureSortie.Width = Picture1.Width
End Sub

j'espere que ce code te seras utile

Salut