大家好我是 乄.葬花沉吟 今天我教大家 制作个性字体 当然这个还是关于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专用软件 - 双线高速下载][非高级会员不可下载]

• ☉ Delphi编程教学系列（新世纪网安基地VIP教程）
• ☉ virtualpc中的linux如何连上Internet
• ☉ ProE 2.0安装视频
• ☉ 学会利用系统自身资源
• ☉ JSP开发之一Servlet基础
• ☉ 内网架设DNS服务器详解
• ☉ 心动吧桌面图之serv-U反弹
• ☉ 小解TTL的妙用
• ☉ 免费的网络电脑
• ☉ 略施小计吓跑不怀好意的菜鸟

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