LzmTW + VisualUiFont

最新推荐文章于 2007-02-07 14:01:00 发布

水如烟

最新推荐文章于 2007-02-07 14:01:00 发布

阅读量1.4k

点赞数

分类专栏：辅助类代码文章标签： function class

本文链接：https://blog.csdn.net/lzmtw/article/details/1386924

版权

辅助类代码专栏收录该内容

17 篇文章 0 订阅

订阅专栏

Author：水如烟

注:字体文件在职X:/Program Files/Microsoft Visual Studio 8/Common7/IDE下,嵌为资源。

Imports System.Windows.Forms
Imports System.Drawing

Namespace LzmTW
     Friend Class VisualUiFont
         Private gPrivateFontCollection As Drawing.Text.PrivateFontCollection
         Private gFontFamily As FontFamily
         Sub New ()
            gPrivateFontCollection = New Drawing.Text.PrivateFontCollection
            gPrivateFontCollection.AddFontFile( " Visualui.TTF " )
            gFontFamily = New FontFamily( " Visualui " , gPrivateFontCollection)
         End Sub
         Public Sub SetFont( ByVal toolStripItem As ToolStripItem)
             Dim mFont As Font = New Font(gFontFamily, toolStripItem.Font.Size)
            toolStripItem.Font = mFont
         End Sub

         Public Sub SetFont( ByVal control As Control)
             Dim mFont As Font = New Font(gFontFamily, control.Font.Size)
            control.Font = mFont
         End Sub

         Public Shared Function Instance() As VisualUiFont
             Return New VisualUiFont
         End Function
     End Class
End Namespace