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。

上一个：保持初始的窗体大小
下一个：VB中多级下拉列表的实现