用VB制作三维字体

在用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

在VB6中可运颂谨以通过设置对象的Font属性设置字体字号，ForeColor属性设旁基置字体颜色。\x0d\x0a例如，下面代码实现设置文本框中的字体樱吵为”隶书“字号28磅，字体颜色为红色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隶书"\x0d\x0aText1.ForeColor = vbRed\x0d\x0aEnd Sub

---