用VB制作三维字体

用VB制作软件封面和界面时经常用到三维字体。一般的方法是先用专用软件(如Xara3d等)制作三维字体的图片。)，然后用图片框之类的控件显示出来。这虽然简单，但是有两个缺点:一是需要添加额外的控件和图片，必然会增加程序的大小；第二，VB中图片的加载速度不敢恭维。如果能用VB直接编程出一个三维字体岂不是很美？以下是我的一些“小贴士”，请接受！

首先，在VB中创建一个新项目，然后在窗体上放置四个命令。以下是源程序:

首先声明以下“通用变量”:

Dim posx，posy As Integer & acute文本的显示位置

Dim txtwidth为整数& acute文本轮廓宽度

dim String As String & acute；要显示的文本

Private子命令1 _ Click()& acute；显示凸起的三维文本

将I标注为整数

Str = "显示凸起的3D文本"

我。清屏

我。ForeColor = RGB(255，255，255)

对于i = 1至txtwidth

我。CurrentX = posx - i

我。CurrentY = posy - i

我。打印字符串

接下来我

我。ForeColor = RGB(0，0，0)

对于i = 1至txtwidth

我。CurrentX = posx + i

我。CurrentY = posy + i

我。打印字符串

接下来我

我。ForeColor = RGB(0，0，255)

我。CurrentX = posx

我。CurrentY = posy

我。打印字符串

末端接头

私有子命令2 _ Click()& acute；显示凹陷的3D文本

将I标注为整数

Str = "显示凹陷的3D文本"

我。清屏

我。ForeColor = RGB(0，0，0)

对于i = 1至txtwidth

我。CurrentX = posx - i

我。CurrentY = posy - i

我。打印字符串

接下来我

我。ForeColor = RGB(255，255，255)

对于i = 1至txtwidth

我。CurrentX = posx + i

我。CurrentY = posy + i

我。打印字符串

接下来我

我。ForeColor = RGB(0，0，255)

我。CurrentX = posx

我。CurrentY = posy

我。打印字符串

末端接头