用VB安装电脑字体

新建模块： 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 2010如何设置更改字体和样式代码？

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 '前景色

vb换字体的变成代码应该是什么？

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

新闻标题：vb点虐 安装字体代码 vb中设置字体的代码
文章起源：http://cdweb.net/article/ddgjgde.html