[VB.NET]空心字体

前端之家收集整理的这篇文章主要介绍了[VB.NET]空心字体前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
空心字体

实例说明

在本实例中,我们将制作一个能够显示空心字的应用程序。程序运行结果如图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是点击"显示空心字体"按钮后的结果。

猜你在找的VB相关文章