● VB中阴影字体的实现 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: garyHU (REGET), 信区: Program
标  题: VB中阴影字体的实现
发信站: BBS 荔园晨风站 (Mon Apr 17 19:05:47 2000), 转信

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。

--
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.250]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店