[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是点击"显示空心字体"按钮后的结果。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |