vb字体的问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 10:10:14
我在网上下了yahoo的字体 可是在别人的机器上就没了 我该怎么设置才能让别的机器上也显示yahoo的字体？？ 把字体文件放到一个文件夹？？？
我试了 可是不是那个意思 阿呀 说不清楚

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click() '安装字体
AddFontResource App.Path & "\xxxx.ttf"
End Sub

Private Sub Command2_Click() '删除字体
RemoveFontResource App.Path & "\xxxx.ttf"
End Sub