VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB中阴影字体的实现
发表评论(0)作者:, 平台:, 阅读:11391, 日期:2000-03-12
VB中阴影字体的实现

太原 胡建民

Visual Basic确实是一种很不错的应用程序开发工具。笔者在使用中,也确实

感到用VB设计程序,许多方法的实现是那么的简单。有时,仅仅需要几条语句,就

可实现一种方法、效果或功能。下面就介绍一下,阴影字体在VB中的实现。程序如

下:

Private Sub Form-Click()

CurrentX=700

CurrentY=1000

FontSize=30

ForeColor=QBColor(8)

Print”Software Weekly”

CurrentX=750

CurrentY=1050

FontSize=30

ForeColor=QBColor(12)

Print”Soft?ware Weekly”

End Sub

在属性(properties)窗口中设置:Auto3D为true Font选一种True Type字体。

该程序是把代码加到Form的Click事件中,通过先打印字体的阴影部分,再打

印出字体,以实现阴影字体效果的。试运行该程序,单击窗体后,即呈现出阴影字

体Software Weekly。