发表评论(0)作者：, 平台：, 阅读：11760, 日期：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。