扮靓你的vb

软件简介：
( o  C* ]6 `* m$ ~! t大家好我是 乄.葬花沉吟 今天我教大家 制作个性字体 当然这个还是关于vb的教程
下面我们打开vb 我们需要的是 两个label控件 三个timer控件 下面看操作
9 I9 @' ^8 H5 N* f5 p! Btimer的位置可以随便你怎么放 在运行程序的时候和commandbutton的效果一样是不显示出来的
! q- M# C6 V+ f, @* g( g下面我们写进去代码
. k1 _3 s/ B. y. n9 m
Dim Txt As String, n As Integer, k As Integer '通用声明
: o- c/ D$ H$ n$ Y+ aPrivate Sub Form_Load()
n = 0
Txt = 爱你一万年！
k = Len(Txt) ' K是字符串TXT的长度
, W: c- E# @; s2 ~9 `( O. IEnd Sub
Private Sub Timer1_Timer() 'TIMER设置INTERVAL为250或者别的都可以
# }, f" r* x. _' R8 H! w n = n + 1
If n = k Then
Label1.Caption = Left(Txt, n)
/ V, F7 J4 O. N$ K4 K) z Else
n = 0
0 V* ~. D% d3 J/ X6 t  n7 N Label1.Caption =
7 {0 \% z# L9 c. z- d  [& r End If
End Sub ' LABEL1中的字体是一个接一个出现并且闪烁
Private Sub Timer2_Timer() '实现字体闪烁的代码
; q3 I1 `0 n! {" ?+ o a = 255 * Rnd
b = 255 * Rnd
3 ^0 r9 i! @( }$ I0 k9 L/ r4 m) p c = 255 * Rnd
Label1.ForeColor = RGB(a, b, c)
! Z+ s+ o5 I0 A1 O Label2.ForeColor = RGB(b, c, a)
$ n3 w8 }, y" bEnd Sub
Private Sub Timer3_Timer() ' LABEL2中的字体是有节奏地出现和消失并且字体颜色闪烁变化
* x  v4 |, u: F If Label2.Caption = 我爱你！ Then
$ r+ G; s7 z: y% V  K5 o6 c' P Label2.Caption =
Else
Label2.Caption = 我爱你！
End If
+ `, O5 r1 h' }+ ]1 l3 hEnd Sub
  r1 C: Y' D% `* o/ K; j0 L
代码的解释已经打出来了 就不说了 大家自己看 我会打包滴
忘了！~~~~~~~~~~~~~~~~~- -#! 设置timer的属性 就是 我们统一设置成0.1秒 下面看看效果
: t- m3 u/ Y) d4 y6 A( W3 I) V准备把字体弄打点效果好点的 大家自己弄把 我不弄了
% T6 K0 A9 G% j+ f+ {好了教程到这里 我的小站 http://mooer.5d6d.com
" O9 e% E  {% \- o: `5 O5 v刚健成的 希望大家一起来交流。
谢谢收看
下载地址：

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

文件大小:

未知

下载次数:

0

下载权限:

版本vip会员

VIP专享 检测资源

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

VIP专享,点击开通vip

确认