Pages

Wednesday, June 15, 2016

VB .NET Rotate your text in Drawing





Pembuatan Axis label pada Bar Chart dengan rotate 270⁰, stepnya adalah text dibuat image dan kemudian gunakan Rotate270Flip


[Sample Code]

img = New Bitmap(100, 100)

Dim newGraphic As Graphics = Graphics.FromImage(img)
Dim GrpText As Graphics


textSize = newGraphic.MeasureString(xBaseString, myFontRegular).ToSize
imgText = New Bitmap(textSize.Width, textSize.Height)
GrpText = Graphics.FromImage(imgText)

GrpText.DrawString(xBaseString, New Font("Calibri", 9, FontStyle.Regular)
, Brushes.Black, Point.Empty)

imgText.RotateFlip(RotateFlipType.Rotate270FlipNone)

newGraphic.DrawImage(imgText, New Point(10, 10))

PictureBox1.Image = img

No comments:

Post a Comment