| To: | REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com> |
|---|---|
| Subject: | Re: Imprimer sous tous les angles ... |
| From: | Mark Nutter <manutter51 at yahoo dot com> |
| Date: | Fri, 8 Dec 2006 04:24:55 -0800 (PST) |
| Delivered-to: | listarchive at realsoftware dot com |
| Delivered-to: | realbasic-nug dot fr at lists dot realsoftware dot com |
| Domainkey-signature: | a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.com; h=X-YMail-OSG:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding:Message-ID; b=4fz4D1rQVRaZygguVboS9zWqe0wunLJB9OOFux4VSgviKRvgxM2SNxF+ruf8MgGhiJofQNYGOM+ZJIVIKroVTfdhRCkOyZwob6E657iAbWGRoUoXHl7gMLOWGc6hi/Qaec6Urv3kErbiHhBOpmnAn/Ar2Kocgz0qI4szDWypCK4=; |
--- 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
Quick and easy regex creation and debugging!
http://www.bucktailsoftware.com/products/regexplorer/
____________________________________________________________________________________
Do you Yahoo!?
Everyone is raving about the all-new Yahoo! Mail beta.
http://new.mail.yahoo.com
|
| <Prev in Thread] | Current Thread | [Next in Thread> |
|---|---|---|
| ||
| Previous by Date: | Re: Imprimer sous tous les angles ..., antoine cretaux |
|---|---|
| Next by Date: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
| Previous by Thread: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
| Next by Thread: | Re: Imprimer sous tous les angles ..., Thierry Nauze |
| Indexes: | [Date] [Thread] [Top] [All Lists] |