Download... the project. (3 kb)
There is an API to do rotated text, but not vertical text. Luckily it is easy enough to do
just by using the venerable Print method, which has managed to live on since the GWBASICA days.
In addition, this example provides alignment options, which allows you to print vertical text
aligned to the left, center and right. Screenshot below shows how the output works for each of the alignments.
As with anything on vbRad.com, the class works out of the box. You download it, pop it in to
your project, set properties and it just works. Here is how easy this is: you set the canvas to
print on (PictureBox or a Form), x and y positions (left and top, respectively), set the alignment and
then just Print. If your form AutoRedraw property is set to False and you want your text to
survive a window repaint, place the code into the Form_Paint event.
Private Sub btnPrint_Click()
Dim oVerticalText As cVerticalText
Me.Picture1.Cls
Set oVerticalText = New cVerticalText
With oVerticalText
Set .Canvas = Me.Picture1
.x = 1500
.y = 500
.Alignment = Align_Center
.PrintText "Whacky"
End With
Set oVerticalText = Nothing
End Sub
The download contains the class as well as a demo project. To use the class, simply drop it into
your project.
Download... the project. (3 kb).