用VB制作三維字體

用VB制作軟件封面和界面時經常用到三維字體。壹般的方法是先用專門的軟件(比如Xara d)制作三維字體的圖片，然後用圖片框等控件顯示出來。這雖然簡單，但是有兩個缺點:壹是需要添加額外的控件和圖片，必然會增加程序的大小；第二，VB中圖片的加載速度不敢恭維。如果能用VB直接編程三維字體豈不是很美？以下是我的小技巧，請收下！

首先在VB中創建新項目，然後在窗體上放四個命令。下面是源程序。

首先聲明以下通用變量:

將Dim posx posy的位置顯示為整數文本

Dim txidth為整數文本輪廓寬度

將字符串顯示為字符串文本。

Private Sub Command _Click()顯示凸起的3D文本。

將I標註為整數

Str =顯示凸起的3D文本

我的課程

Me ForeColor = RGB()

對於i = To txidth

Me CurrentX = posx i

我現在= posy i

Me打印字符串

接下來我

Me ForeColor = RGB()

對於i = To txidth

Me CurrentX = posx + i

Me CurrentY = posy + i

Me打印字符串

接下來我

Me ForeColor = RGB()

Me CurrentX = posx

我的當前= posy

Me打印字符串

末端接頭

Private Sub Command _Click()顯示凹陷的3D文本。

將I標註為整數

Str =顯示凹陷的3D文本

我的課程

Me ForeColor = RGB()

對於i = To txidth

Me CurrentX = posx i

我現在= posy i

Me打印字符串

接下來我

Me ForeColor = RGB()

對於i = To txidth

Me CurrentX = posx + i

Me CurrentY = posy + i

Me打印字符串

接下來我

Me ForeColor = RGB()

Me CurrentX = posx

我的當前= posy

Me打印字符串

末端接頭

Private Sub Command _Click()顯示著色的3D文本。

Str =顯示陰影3D文本

我的課程

Me ForeColor = RGB()

Me CurrentX = posx + txidth

Me CurrentY = posy + txidth

Me打印字符串

Me ForeColor = RGB()

Me CurrentX = posx

我的當前= posy

Me打印字符串

末端接頭

Private Sub Command _Click()顯示傾斜的3D文本。

將I標註為整數

Str =顯示傾斜的3D文本

我的課程

Me ForeColor = RGB()

對於i = To txidth

我的電流X = x + i

我當前= y + i

Me打印字符串

接下來我

Me ForeColor = RGB()

Me CurrentX = posx

我的當前= posy

Me打印字符串

末端接頭

私有子窗體_Load()

posx =

posy =

txidth =

Me FontSize =

Lishi Xinzhi/Article/program/net/201311/11547