Rotated Font

  • Thread starter Thread starter kurt sune
  • Start date Start date
K

kurt sune

I am trying to do a rotated font. I get a handle alright which I convert to
a font-object by
Font2 = Font.FromHfont(handleFont)
g.DrawString(Text-to draw, Font2, Brush, CurrentX, CurrentY)


However the font doesnt get rotated.
Anybody any tips?

/k


I create the font thus:
Private Function CustomFont( _
ByVal hgt As Int32, _
ByVal wid As Int32, _
ByVal escapement As Int32, _
ByVal orientation As Int32, _
ByVal wgt As Int32, _
ByVal is_italic As Int32, _
ByVal is_underscored As Int32, _
ByVal is_striken_out As Int32, _
ByVal face As String) As IntPtr
Const CLIP_LH_ANGLES As Int32 = 16
CustomFont = CreateFont( _
hgt, wid, escapement, orientation, wgt, _
is_italic, is_underscored, is_striken_out, _
0, 0, CLIP_LH_ANGLES, 0, 0, face)
End Function

The API-declaration:
Private Declare Auto Function CreateFont Lib "gdi32" _
(ByVal Height As Int32, ByVal Width As Int32, _
ByVal Escapement As Int32, ByVal Orientation As Int32, _
ByVal Weight As Int32, ByVal Italic As Int32, _
ByVal Underline As Int32, ByVal StrikeOut As Int32, _
ByVal CharSet As Int32, ByVal OutPrecision As Int32, _
ByVal ClipPrecision As Int32, ByVal Quality As Int32, _
ByVal PitchAndFamily As Int32, ByVal FaceName As String) As IntPtr
 
Hello,

kurt sune said:
I am trying to do a rotated font.
Click to expand...

Why don't you rotate using something like this:

\\\
Private Sub Form1_Paint( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs _
) Handles MyBase.Paint
e.Graphics.RotateTransform(20)
e.Graphics.DrawString("Hello World!", Me.Font, Brushes.Blue, 0, 0)
End Sub
///

HTH,
Herfried K. Wagner
 
Back
Top