Author:
水如烟
题外话:
微软应用软件界面上的控件图标做得真是令人羡慕,就说这三个吧,我就很喜欢。
可是找来找去,就是找不到这三个图标。自觉得很是没道理,肯定放在一个不知道的角落里头的。今天忽打激灵,急急的回:/Program Files/Microsoft Visual Studio 8/Common7/IDE里头看,一个TrueType字体文件Visualui.TTF映入眼帘,打开一看, 果是在此!原来不是图标,是字体!
检索已安装字样:
Private
Sub Button1_Click()
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Dim mFontCollection As New Drawing.Text.InstalledFontCollection
Dim mInstance As New Action(Of Drawing.FontFamily)(AddressOf GetFontFamilyName)
Array.ForEach(mFontCollection.Families, mInstance)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
End Sub
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
Private
Sub GetFontFamilyName()
Sub GetFontFamilyName(ByVal sender As Drawing.FontFamily)
Console.WriteLine(sender.Name)
End Sub
Private
Sub Button1_Click()
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Dim mFontCollection As New Drawing.Text.InstalledFontCollection
For Each mFontFamily As FontFamily In mFontCollection.Families
Console.WriteLine(mFontFamily.Name)
Next
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
End Sub
项目中添加文件Visualui.TTF
安装
Private
Sub Button1_Click()
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Dim mPrivateFontCollection As New Drawing.Text.PrivateFontCollection
mPrivateFontCollection.AddFontFile("../../Visualui.TTF")
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
End Sub
以下是全过程:
Private
gPrivateFontCollection
As
Drawing.Text.PrivateFontCollection
Private
gInstance
As
New
Action(Of Drawing.FontFamily)(
AddressOf
GetFontFamilyName)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
Private
gStrings
As
String
=
"
ABCDEFGHIJKLMNOPQRSTUVWXYZ
"
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
Private
Sub GetFontFamilyName()
Sub GetFontFamilyName(ByVal sender As Drawing.FontFamily)
Console.WriteLine(sender.Name)
End Sub
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
Private
Sub Button1_Click()
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Console.WriteLine("默认字体显示ABCDEFGHIJKLMNOPQRSTUVWXYZ")
Me.Label1.Text = gStrings
'停顿两秒
Me.Label1.Refresh()
System.Threading.Thread.Sleep(2000)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Console.WriteLine()
Console.WriteLine("查看系统已安装的字样")
Array.ForEach(FontFamily.Families, gInstance)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
'安装字体文件
gPrivateFontCollection = New Drawing.Text.PrivateFontCollection
gPrivateFontCollection.AddFontFile("../../Visualui.TTF")
Console.WriteLine()
Console.WriteLine("查看可安装的字样")
Array.ForEach(gPrivateFontCollection.Families, gInstance)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
'安装字样
Dim mFontFamily As FontFamily = New FontFamily("Visualui", gPrivateFontCollection)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
Console.WriteLine()
Console.WriteLine("查看系统已安装的字样")
Array.ForEach(FontFamily.Families, gInstance)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
'应用字体
Dim mFont As New Font(mFontFamily, Me.Label1.Font.Size)
Me.Label1.Font = mFont
End Sub
题外话:
微软应用软件界面上的控件图标做得真是令人羡慕,就说这三个吧,我就很喜欢。
![](https://i-blog.csdnimg.cn/blog_migrate/1cb667022cf19fdd7b5173fcb4dac9a2.jpeg)
可是找来找去,就是找不到这三个图标。自觉得很是没道理,肯定放在一个不知道的角落里头的。今天忽打激灵,急急的回:/Program Files/Microsoft Visual Studio 8/Common7/IDE里头看,一个TrueType字体文件Visualui.TTF映入眼帘,打开一看, 果是在此!原来不是图标,是字体!
检索已安装字样:
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)
以上代码是Net2.0的。当然,也可以这般实现:
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)
项目中添加文件Visualui.TTF
安装
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)
以下是全过程:
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/e1d325a9544fd9655850835de9aa0988.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/130ae5b8f553cef9daef591fca25f9dd.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/9ca0e8045917fa637f9626c2ffde33c7.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/1a529fe8858c8886aa6e01db8070eb7a.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/bfbc5bcd11195c273c0537af3d4d5e5e.gif)