189 8069 5689
新建模块： 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
创新互联建站-专业网站定制、快速模板网站建设、高性价比宝山网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式宝山网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖宝山地区。费用合理售后完善，十余年实体公司更值得信赖。
vb点虐 和vb6的写法不一样 可以用以下代码来设置字体样式和颜色
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
VB6.0换字体的程序代码是对对象的FontName 属性赋值：
FontName 属性，返回或设置在控件中或在运行时画图或打印操作中，显示文本所用的字体。
该属性的缺省值取决于系统，Visual Basic
中可用的字体取决于系统的配置、显示设备和打印设备。与字体相关的属性只能设置为真正存在的字体的值。
在运行时，可以用 FontCount 和 Fonts
属性获得系统可用字体的信息。
FontCount 属性，返回或设置当前显示设备或活动打印机可用的字体。
获取可用字体信息代码：
Private Sub Command1_Click()
Dim I ' 声明变量.
For I = 0 To Printer.FontCount - 1 ' 确定字体数.
List1.AddItem Printer.Fonts(I) ' 把每一种字体放进列表框.
Next I
End Sub