vb.net 控件使用外部字体自动选择

vb.net将vb一族带到了一个新的时代。

程序中默认均使用 “宋体“ 或者 ”新宋体“ 这种任何系统windows自带的字体。

但是”宋体“到现在看来已经与艺术和美观脱轨，严重的锯齿问题和点阵式的字体样式让人越来越难以接受。

那么如何在控件中使用”微软雅黑“或者其他自定义字体呢？API是有提供解决办法，但是还是太麻烦而且容易出错。

其实只要做个简单的判断即可：

 Dim Msyh As String = Replace(Environ("Windir") & "\Fonts\msyh.ttf", "\\", "\")
            If Dir(Msyh) <> "" Then
                me.Font = New System.Drawing.Font("微软雅黑", Me.Font.Size, FontStyle.Regular)
            Else
                Me.Font = New System.Drawing.Font("宋体", Me.Font.Size, FontStyle.Regular)
            End If

判断自定义字体是否存在，不存在则使用默认”宋体“字体。当然，微软雅黑还可以替换成其他字体。

在使用以上代码前可以先将字体文件复制到  系统盘:\windows\fonts 文件夹中即可。

这样程序就可以比较简单的实现自适应选择优化字体。

==================================================

已经封装好到控件包，包含：

基于NET2.0编写的类库


在系统自带的控件：
【Button】
 开启自适应微软雅黑字体，如果可以将尝试使用微软雅黑字体而不是丑陋的宋体




【CheckBox】
 开启自适应微软雅黑字体，如果可以将尝试使用微软雅黑字体而不是丑陋的宋体
 新增鼠标单击、移入、移出颜色变化功能，在属性表中可以找到


【Label】
 开启自适应微软雅黑字体，如果可以将尝试使用微软雅黑字体而不是丑陋的宋体
 新增鼠标单击、移入、移出颜色变化功能，在属性表中可以找到 


【Panel】
 大幅减少控件移动、背景变换时的闪烁，重写OnPaint开启双缓冲




【PictureBox】
 大幅减少控件移动、背景变换时的闪烁，重写OnPaint开启双缓冲
  新增鼠标单击、移入、移出图片改变功能，在属性表中可以找到 


【RadioButton】
 开启自适应微软雅黑字体，如果可以将尝试使用微软雅黑字体而不是丑陋的宋体
 新增鼠标单击、移入、移出颜色变化功能，在属性表中可以找到


以上控件所有方法、用法与系统控件一至，完全继承自系统控件。




使用方法：工具箱 右键  选择DLL即可

到我的资源下载即可