Question

vb用代码安装字体

Answer 1

新建模块：
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

窗体代码：
Private Sub Command1_Click()
Dim ziti As String
ziti = "c:\ziti.ttf" '需要安装的字体文件位置
tmp = Right(ziti, Len(ziti) - InStrRev(ziti, "\"))
FileCopy ziti, "c:\WINDOWS\Fonts\" & tmp
Dim lResult As Long
lResult = AddFontResource("c:\WINDOWS\Fonts\" & tmp)
If lResult = 2 Then
MsgBox "安装成功"
Else
MsgBox "安装失败"
End If
End Sub

追问

tmp变量未定义？

追答

'添加模块代码
Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
'添加窗体代码:
Private Sub Command1_Click()
Dim ziti As String
ziti = "d:\New (3).TTF" '需要安装的字体文件位置
tmp = Right(ziti, Len(ziti) - InStrRev(ziti, "\"))
Dim lResult As Long
lResult = AddFontResource("c:\WINDOWS\Fonts\" & tmp)
If lResult = 2 Then
MsgBox "安装成功"
Else
MsgBox "安装失败"
End If
End Sub
'已测试，运行正常，未发现tmp变量未定义提示，请采纳！

追问

追答