vb.net GDI+入门——使用DrawString显示文本

• 关 键 词：
• vb.net

以上我们在知道了如何使用DrawString方法，下面我们看看如何格式化文本对象。

二、对齐文本

这本例中，我们初始化StringFormat 对象，并设置它的Alignment和LineAlignmen 属性，其中Alignmen 属性指定每行文本在矩形中水平位置，LineAlignment属性指定文本块在矩形中垂直位置，本例我们设置水平、垂直居中。

完整代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics = PictureBox1.CreateGraphics

Dim mText As String = "欢迎访问巧巧读书网"

Dim mBrush As New SolidBrush(Color.Red)

Dim mFont As New Font("宋体", 16)

'创建字符格式化对象

Dim mStringFormat As New StringFormat

'创建矩形

Dim Rect As New Rectangle(0, 0, 250, 120)

'设置StringFormat对象

mStringFormat.Alignment = StringAlignment.Center

mStringFormat.LineAlignment = StringAlignment.Center

'绘制文本

g.DrawString(mText, mFont, mBrush, RectangleF.op_Implicit(Rect), mStringFormat)

'绘制矩形

Dim mPen As New Pen(Color.Black)

g.DrawRectangle(mPen, Rect)

End Sub

http://www.qqread.com/book/myvbnet/my0047.html

运行后，效果如下图二所示：

图二：运行效果图

【深 度 阅 读】 相 关 文 章

• VB.NET 入门教程
• VB.Net图解入门
• 细说ＶＢ．ＮＥＴ
• 全面剖析VB.NET