Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Rotierende Fonts
Autor: GröVBaZ
Datum: 01.11.02 15:04
Hi Thorsten Hier ein Beispiel: Imports System.Math Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ResizeRedraw = True End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim gr As Graphics = e.Graphics Dim angle As Single Dim x0, y0, x, y, radius As Single Dim s As String = "Textausgabe mit GDI+" Dim br1 As Brush = Brushes.Black Dim br2 As Brush = Brushes.Gray Dim pn As Pen = Pens.Gray Dim fnt As New Font("Arial", 20, FontStyle.Regular, GraphicsUnit.Pixel) Dim sf As StringFormat = StringFormat.GenericTypographic sf.LineAlignment = StringAlignment.Center Dim sizf As SizeF x0 = CSng(Me.ClientSize.Width / 2) 'Fenstermittelpunkt y0 = CSng(Me.ClientSize.Height / 2) radius = 70 'Innenkreisradius For angle = 0 To 359 Step 30 ' Koordinatenpunkt für die Ausgabe ermitteln x = x0 + radius * CSng(Cos(angle / 180 * PI)) y = y0 + radius * CSng(Sin(angle / 180 * PI)) ' Koordinatentransformation gr.ResetTransform() gr.TranslateTransform(x, y) gr.RotateTransform(angle) ' Text ausgeben gr.DrawString(s, fnt, br1, 0, 0, sf) ' Startkoordinate und Ausgaberechteck darstellen gr.FillEllipse(br2, -5, -5, 10, 10) sizf = gr.MeasureString(s, fnt, 0, sf) gr.DrawRectangle(pn, 0, -sizf.Height / 2, sizf.Width, sizf.Height) Next fnt.Dispose() sf.Dispose() End Sub End Class Cheers GröVBaZ

Rotierende Fonts	129	thpohl	01.11.02 10:33
Re: Rotierende Fonts	105	GröVBaZ	01.11.02 15:04
Re: Rotierende Fonts	71	thpohl	01.11.02 18:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen