如何使用未安装的字体？

 

 

声明:

Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" _

　(ByVal lpFileName As String) As Long

Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" _

　(ByVal lpFileName As String) As Long

 

代码:

 

增加字体：

Dim lResult As Long

lResult = AddFontResource("c:myAppmyFont.ttf")

删除字体：

Dim lResult As Long

lResult = RemoveFontResource("c:myAppmyFont.ttf")

 

 

上一个：如何由两个ASC码（区位码）复原成一个汉字？
下一个：如何取得计算机的所有字型？