vb 怎么安装字体

你设置打包工具的时候，可以设置字体存放的位置吧，你把字体安装位置设置为目标机器的windows/font目录下，字体就会自动安装了你必须要把你附加的字体copy出来（不要在fonts目录下），你会发现字体文件名变了，然后你把这个字体加入到安装程序里面，然后在复制到目标机器的fonts目录下（安装程序执行这个步骤）

vb一般就是使用的系统自带的字体，如果你自己的电脑安装了fonts并且使用到了vb的设计中，那么必然别人的机器无法显示其中的标题等文字，所以一般不推荐vb安装字体。

自己的系统安装字体可以到windows文件夹下的fonts文件夹

在用VB制作软件封面和界面时经常要用到三维字体 一般的方法是先用专门的软件（如Xara d等）制作出三维字体的图片 然后再用图片框等控件显示出来 这样虽然简单 但其缺点有二 一是要额外增加控件和图片 这样势必会增加程序的大小 二是在VB中图片的加载速度不敢恭维 如能用VB直接编程制作出三维字体 岂不美哉！以下是本人的一点 小技 请笑纳！

先在VB中新建一个 工程 然后在窗体上放置四个Command 以下是源程序

先声明如下 通用变量 :

Dim posx posy As Integer 文字的显示位置

Dim txidth As Integer 文字轮廓宽度

Dim str As String 欲显示的文字

Private Sub Command _Click() 显示凸起三维文字

Dim i As Integer

str = 显示凸起三维文字

Me Cls

Me ForeColor = RGB( )

For i = To txidth

Me CurrentX = posx i

Me CurrentY = posy i

Me Print str

Next i

Me ForeColor = RGB( )

For i = To txidth

Me CurrentX = posx + i

Me CurrentY = posy + i

Me Print str

Next i

Me ForeColor = RGB( )

Me CurrentX = posx

Me CurrentY = posy

Me Print str

End Sub

Private Sub Command _Click() 显示凹陷三维文字

Dim i As Integer

str = 显示凹陷三维文字

Me Cls

Me ForeColor = RGB( )

For i = To txidth

Me CurrentX = posx i

Me CurrentY = posy i

Me Print str

Next i

Me ForeColor = RGB( )

For i = To txidth

Me CurrentX = posx + i

Me CurrentY = posy + i

Me Print str

Next i

Me ForeColor = RGB( )

Me CurrentX = posx

Me CurrentY = posy

Me Print str

End Sub

Private Sub Command _Click() 显示阴影三维文字

str = 显示阴影三维文字

Me Cls

Me ForeColor = RGB( )

Me CurrentX = posx + txidth

Me CurrentY = posy + txidth

Me Print str

Me ForeColor = RGB( )

Me CurrentX = posx

Me CurrentY = posy

Me Print str

End Sub

Private Sub Command _Click() 显示倾斜三维文字

Dim i As Integer

str = 显示倾斜三维文字

Me Cls

Me ForeColor = RGB( )

For i = To txidth

Me CurrentX = x + i

Me CurrentY = y + i

Me Print str

Next i

Me ForeColor = RGB( )

Me CurrentX = posx

Me CurrentY = posy

Me Print str

End Sub

Private Sub Form_Load()

posx =

posy =

txidth =

Me FontSize =

lishixinzhi/Article/program/net/201311/11547

---