大家好我是   乄.葬花沉吟  今天我教大家 制作个性字体 当然这个还是关于vb的教程

下面我们打开vb  我们需要的是 两个label控件 三个timer控件  下面看操作
timer的位置可以随便你怎么放 在运行程序的时候和commandbutton的效果一样是不显示出来的

下面我们写进去代码

Dim Txt As String, n As Integer, k As Integer  '通用声明
Private Sub Form_Load()
    n = 0
    Txt = "爱你一万年！"
    k = Len(Txt)        ' K是字符串TXT的长度
End Sub
Private Sub Timer1_Timer()      'TIMER设置INTERVAL为250或者别的都可以
    n = n + 1
    If n <= k Then
        Label1.Caption = Left(Txt, n)
    Else
        n = 0
        Label1.Caption = ""
    End If
End Sub                        ' LABEL1中的字体是一个接一个出现并且闪烁
Private Sub Timer2_Timer()      '实现字体闪烁的代码
    a = 255 * Rnd
    b = 255 * Rnd
    c = 255 * Rnd
    Label1.ForeColor = RGB(a, b, c)
    Label2.ForeColor = RGB(b, c, a)
End Sub
Private Sub Timer3_Timer()          ' LABEL2中的字体是有节奏地出现和消失并且字体颜色闪烁变化
    If Label2.Caption = "我爱你！" Then
        Label2.Caption = ""

    Else
        Label2.Caption = "我爱你！"

    End If
End Sub

代码的解释已经打出来了 就不说了 大家自己看 我会打包滴

忘了！~~~~~~~~~~~~~~~~~- -#!  设置timer的属性 就是 我们统一设置成0.1秒 下面看看效果
准备把字体弄打点效果好点的 大家自己弄把 我不弄了

好了教程到这里 我的小站 http://mooer.5d6d.com
刚健成的 希望大家一起来交流。
谢谢收看

• [VIP 线路 - 电信高速下载][非高级会员不可下载]
• [VIP 线路 - 双线高速下载][非高级会员不可下载]

• ☉ 扮靓你的vb

• ☉ 由于私服程序的特殊性，它非常容易被杀毒误报，所以自2011年1月起本站所有软件都不在做杀毒查杀，请下载后自行检测查杀！
• ☉ 为了达到最快的下载速度，推荐使用 迅雷5 下载本站软件。
• ☉ 本站软件均为WinRAR5.6版本压缩，所以请一定升级到WinRAR5.6或最新版才能正常解压本站提供的软件!
• ☉ 如果您发现下载链接错误，或内容与分类不匹配，请点击报告错误。正确报错10个我们将送您VIP会员！
• ☉ 如发现本站软件需要解压密码，均为：www.987654321sf.com