VB.Net – Textausgabe auf einer Form drehen bzw. individuell rotieren

VB.Net – Textausgabe auf einer Form drehen bzw. individuell rotieren

Mit dieser kleinen VB.Net Funktion bringen Sie jede Textausgabe auf einer Form zum rotieren.

So wird es gemacht:

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
    Private Sub RotateText( _
        ByVal myForm As System.Windows.Forms.Form, _
        ByVal RightShift As Integer, _
        ByVal [Top] As Integer, _
        ByVal Angle As Integer, _
        ByVal strText As String, _
        ByVal myFont As Font, _
        ByVal TextColor As Color)
 
        Dim g As Graphics = myForm.CreateGraphics()
        g.Clear(Color.Black)
        g.TranslateTransform(RightShift, [Top])
        g.RotateTransform(Angle)
        Dim hBrush As New SolidBrush(TextColor)
        g.DrawString(strText, myFont, hBrush, 0, 0)
        g.Dispose()
        myFont.Dispose()
 
    End Sub

Spendierst du mir eine Tasse Kaffee? Ich würd mich riesig freuen. DANKE !! 🙂

Author: admin

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.