Codejock Developer Community : Rotate text on label?

Rotate text on label? : There are many ways to do it... In...

Sat, 09 Jan 2010 12:38:00 +0000

Author: Krog
Subject: 15743
Posted: 09 January 2010 at 12:38pm

There are many ways to do it...

In VB6 we can use the CreateFont API function. Check the following test project:

20100109_120027_RotateText.rar

Another way would to be printing the text in a PictureBox and then rotating it using GetPixel and SetPixel, but it is more difficult.

In VB.Net we can use this:

Public Class Form1

    Public Sub RotateText(ByVal g As Graphics, ByVal MyFont As Font, ByVal MyText As String, ByVal Angle As Single, ByVal MyBrush As Brush, ByVal X As Single, ByVal Y As Single)

        While Angle > 360
            Angle = Angle - 360
        End While
        While Angle < 0
            Angle = Angle + 360
        End While

        ' Create a matrix and rotate it n degrees.
        Dim MyMatrix As New System.Drawing.Drawing2D.Matrix
        MyMatrix.Rotate(Angle, Drawing2D.MatrixOrder.Append)

        ' Draw the text to the screen after applying the transform.
        g.Transform = myMatrix
        g.DrawString(MyText, MyFont, MyBrush, X, Y)

    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Dim NewFont = New Font("Arial", 12, FontStyle.Bold)

        ' Subroutine to alter text angle.
        RotateText(e.Graphics, NewFont, "Hello World", -45, Brushes.DarkBlue, 10, 100)

    End Sub
End Class

In VB.NET with XAML we can use also the RenderTransform or LayoutTransform.

The Codejock markup does not support these transformation functions.

Rotate text on label? : I don't think make this possible....

Tue, 01 Dec 2009 03:56:53 +0000

Author: gibra
Subject: 15743
Posted: 01 December 2009 at 3:56am

I don't think make this possible.

You can only dispose text vertically (not rotate):

    With lblVertical
        .Alignment = xtpAlignCenter
        .Font.Name = "Tahoma"
        .Font.Size = 8
        .Height = 1650
        .Font.Bold = True
        .Width = 120
        .Caption = "V" & vbCr & "E" & vbCr & "R" & vbCr & "T" & vbCr & "I" & vbCr & "C" & vbCr & "A" & vbCr & "L"
    End With

Rotate text on label? : Is there any simple way (using...

Sun, 29 Nov 2009 08:20:29 +0000

Author: chrisABC
Subject: 15743
Posted: 29 November 2009 at 8:20am

Is there any simple way (using CJ controls) to display a label with text rotated 90 degrees?
ie text going vertically down the page instead of horizontal?