Startseite .Net Visual Basic Archive nach Kategorien "Grafik"

Kategorie: Grafik

Text vertikal in einer Grafik ausgeben 

Dim fntScaleFont As New System.Drawing.Font("Arial", 10, FontStyle.Regular)

Dim layout_rect As New RectangleF(0, 0, 18, 64)

Dim string_format As New StringFormat

string_format.Alignment = StringAlignment.Far
string_format.LineAlignment = StringAlignment.Center
string_format.FormatFlags = StringFormatFlags.DirectionVertical
        
m_Graphics.DrawString("Teststring", fntScaleFont, Brushes.Black, layout_rect, string_format)

Grafik drehen 

' gr ... Grafik, die gedreht werden soll
' cx, cy ... Koordinaten
' angle ... Drehwinkel
Private Sub RotateAt(ByVal gr As Graphics, ByVal cx As Integer, ByVal cy As Integer, ByVal angle As Single)
    gr.ResetTransform()
    gr.TranslateTransform(-cx, -cy, Drawing2D.MatrixOrder.Append)
    gr.RotateTransform(angle, Drawing2D.MatrixOrder.Append)
    gr.TranslateTransform(cx, cy, Drawing2D.MatrixOrder.Append)
End Sub