扮靓你的vb

软件简介：
, G9 L3 }) O0 X: M) A! _: ?2 }; G大家好我是 乄.葬花沉吟 今天我教大家 制作个性字体 当然这个还是关于vb的教程
下面我们打开vb 我们需要的是 两个label控件 三个timer控件 下面看操作
timer的位置可以随便你怎么放 在运行程序的时候和commandbutton的效果一样是不显示出来的
下面我们写进去代码
3 d7 K$ B  q; U  {* k% E
Dim Txt As String, n As Integer, k As Integer '通用声明
Private Sub Form_Load()
) ~9 [: ~& q% R- e  Q( i n = 0
Txt = 爱你一万年！
2 z/ v1 s3 b0 o. V k = Len(Txt) ' K是字符串TXT的长度
End Sub
Private Sub Timer1_Timer() 'TIMER设置INTERVAL为250或者别的都可以
/ L& G  C# D: \% q  ]* j' } n = n + 1
If n = k Then
Label1.Caption = Left(Txt, n)
Else
n = 0
Label1.Caption =
, \5 h3 {& v* P+ b End If
End Sub ' LABEL1中的字体是一个接一个出现并且闪烁
Private Sub Timer2_Timer() '实现字体闪烁的代码
a = 255 * Rnd
0 ^0 s$ M4 K; A. i* G/ j% @$ P b = 255 * Rnd
c = 255 * Rnd
1 H4 W1 ]7 O3 {4 V" l' R; Z Label1.ForeColor = RGB(a, b, c)
Label2.ForeColor = RGB(b, c, a)
- }$ f& W' h1 s# UEnd Sub
' m' U; d& _0 N4 {* V: yPrivate Sub Timer3_Timer() ' LABEL2中的字体是有节奏地出现和消失并且字体颜色闪烁变化
If Label2.Caption = 我爱你！ Then
Label2.Caption =
1 l" E$ F+ e- _. ~4 _/ [6 b Else
Label2.Caption = 我爱你！
  Q9 P: w# [8 h7 f End If
End Sub
3 Y" j# {1 K3 a
代码的解释已经打出来了 就不说了 大家自己看 我会打包滴
  s( s6 H# d" r, H' j忘了！~~~~~~~~~~~~~~~~~- -#! 设置timer的属性 就是 我们统一设置成0.1秒 下面看看效果
准备把字体弄打点效果好点的 大家自己弄把 我不弄了
好了教程到这里 我的小站 http://mooer.5d6d.com
刚健成的 希望大家一起来交流。
2 C3 M! A( x+ D. P3 T2 e7 U谢谢收看
下载地址：

2008-8-18 12:35 上传 扮靓你的vb.rar

下载权限:

版本vip会员

本地下载 检测资源   提取码: 需要终身vip或更高权限

有些游戏资源需要vip下载开通请点击开通vip