发表评论(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。
太原 胡建民
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。