karim_orooji
|
چاپ متن رو به صورت Vertical ( عمودی ) بر روی فرم
سلام
دوستان پیش دستی کردند دمشون گرم ایول الله
اساتید ، مدیران ، کاربران گرامی ، لطفا در پربار شدن این تاپیک کمک کنید .
این کد که میزارم میتونه واستون یه متن رو به صورت Vertical ( عمودی ) روی فرم چاپ کنه . امیدوارم خوشتون بیاد :
کد:
Dim formgraphic As System.Drawing.Graphics = Me.CreateGraphics
Dim drawstring As String = "http://www.video-learn.net/"
Dim drawfont As New Font("Tahoma", 25)
Dim drawbrush As New SolidBrush(Color.Blue)
Dim x As Single = 150.0
Dim y As Single = 50.0
Dim drawformat As New StringFormat
drawformat.FormatFlags = StringFormatFlags.DirectionVertical
formgraphic.DrawString(drawstring, drawfont, drawbrush, x, y, drawformat)
drawfont.Dispose()
drawbrush.Dispose()
formgraphic.Dispose()
منبع : برنامه نویس
|
|
جمعه 20 شهریور 1394 - 20:22 |
|