'竖着绘制文字
Private Sub drawstringshu()
Dim g As Graphics = Me.CreateGraphics
Dim strformat As New StringFormat()
strformat.FormatFlags = StringFormatFlags.DirectionVertical
g.DrawString("我爱拉芳", New Font("Arial", 12), Brushes.Red, 20, 20, strformat)
g.Dispose()
End Sub
博客给出了一段竖着绘制文字的代码。通过创建Graphics对象、StringFormat对象并设置其格式标志为垂直方向,使用DrawString方法绘制文字,最后释放Graphics对象资源。
239

被折叠的 条评论
为什么被折叠?



