用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
我。打印字符串
末端接头
位律师回复
0条评论