知识大全用VB制作三维字体

Posted 2022-07-18 文字

篇首语：人生遇到的每个人，出场顺序很重要，很多人如果换个时间认识，就会有不同的结局。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB制作三维字体相关的知识，希望对你有一定的参考价值。

用VB制作三维字体 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

cha138/Article/program/net/201311/11547

知识大全 用VB制作三维字体

知识大全用VB制作三维字体