Visual Basic确实是一种很不错的应用工具。笔者在使用中,也确实感到用VB设计程序,许多方法的实现是那么的简单。有时,仅仅需要几条语句,就可实现一种方法、效果或功能。下面就介绍一下,阴影字体在VB中的实现。程序如下:

Private Sub Form-Click()

CurrentX=700

CurrentY=1000

FontSize=30

ForeColor=QBColor(8)

PrintSoftware Weekly

CurrentX=750

CurrentY=1050

FontSize=30

ForeColor=QBColor(12)

PrintSoftware Weekly

End Sub

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

  该程序是把代码加到Form的Click事件中,通过先打印字体的阴影部分,再打印出字体,以实现阴影字体效果的。试运行该程序,单击窗体后,即呈现出阴影字体Software Weekly。