Le 8 déc. 06 à 16:24, Mark Nutter a écrit :
--- Thierry Nauze <ohmi at wanadoo dot fr> wrote:
Bonjour,
Avec RB, est-il possible d'imprimer un texte avec, par exemple,
un
angle de 45° ?
Oui, ça se fait avec un StringShape dans un Canvas. On met la
texte dans le StringShape.
Sub Paint(g As Graphics)
Dim ss As new StringShape
Dim i As Integer
ss.Text = "Bonjour, monde."
ss.TextSize = 32
ss.TextFont = "Arial"
for i = 0 to 179 step 20
ss.Rotation = i / 57.295779578552 // deg -> radian
g.DrawObject ss, 100, 100
next
End Sub
Mark Nutter
Merci pour la réponse.
C'est ce que j'ai essayé de faire. Mais je doit imprimer du texte
avec une taille de 10 px, voire moins.
Et là le résultat n'est pas brillant :
Dim ss As new StringShape
Dim i As Integer
ss.Text = "Bonjour tout le monde."
ss.TextSize =10
ss.TextFont = "Arial"
ss.Rotation = 45 / 57.295779578552
g.DrawObject ss,200,300
Le message est plus ou moins gris et pas net.
Qu'en est-il chez toi ?
@+
--
Thierry NAUZE Saint-Denis de la Réunion
|