实例说明
在本实例中，我们将制作一个能够显示空心字的应用程序。程序运行结果如图91-1所示。
图91-1 运行结果
技术要点
l 新建字体
l 空心字体
实现过程
■ 新建项目
打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"EmptyFont"，然后选择保存路径。单击"确认"。
■ 添加控件
向窗体上添加两个Button控件。
■ 设置属性
切换到属性栏，对窗体上的控件设置属性。在本实例中，我们只需要将窗体和Button控件的Text属性设置与界面一致即可。
Private Sub ApplyEmptyFont()
Dim mygp As New System.Drawing.drawing2d.GraphicsPath()
Dim newText As String = "空心字体"
Dim newfamily As FontFamily = New FontFamily("Arial")
Dim newfontStyle As FontStyle = FontStyle.Bold
Dim newemSize As Integer = 100
Dim neworigin As PointF = New PointF(97,50)
Dim newformat As StringFormat = StringFormat.GenericDefault
mygp.AddString(newText,newfamily,newfontStyle,newemSize,neworigin,newformat)
' myGraphicsPath.AddEllipse(New Rectangle(0,200,450))
Me.Region = New Region(mygp)
End Sub
'建立空心字
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
ApplyEmptyFont()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button3.Click
'Me.ShowInTaskbar = False
End
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例介绍了制作空心字的过程，可以看出，在VB.NET中可以很方便的实现这个功能。图91-2是点击"显示空心字体"按钮后的结果。