软件简介：* B+ ]+ @5 M. [' S+ I$ @. m: D
大家好我是 乄.葬花沉吟 今天我教大家 制作个性字体 当然这个还是关于vb的教程) ], b$ G/ z$ N B, c5 _2 H C
下面我们打开vb 我们需要的是 两个label控件 三个timer控件 下面看操作2 J9 V/ [8 l2 F$ [% T1 V) q
timer的位置可以随便你怎么放 在运行程序的时候和commandbutton的效果一样是不显示出来的* J9 l9 i% b" I* C s, {
下面我们写进去代码( A$ q! W- P! N& y& D' s- Q, |: A
2 p$ c5 C8 s8 J9 b* ?5 y
Dim Txt As String, n As Integer, k As Integer '通用声明/ L! r1 S" ?& E5 E7 j
Private Sub Form_Load()
6 ?- T( o+ O+ c' W U* ?9 L n = 0 H$ t- M+ ~. s% o
Txt = 爱你一万年！7 |% D6 J6 E' z. Z3 E( E& F
k = Len(Txt) ' K是字符串TXT的长度
0 l0 M; o' Z6 x) QEnd Sub
* l1 m! a q; `( c/ ]9 |- E2 ?Private Sub Timer1_Timer() 'TIMER设置INTERVAL为250或者别的都可以
$ A1 x- ?; A" a" E! R n = n + 1
& `) X) ~, n, Z7 a6 c If n = k Then/ e! M. Z4 {$ E9 ]/ ?
Label1.Caption = Left(Txt, n)5 w# _( B @8 q, j N+ l5 D
Else
' Y4 o* {3 |+ h+ S% ` n = 0 i7 l; P3 Z' ^ r
Label1.Caption = . z- A) E/ M/ l& F0 v1 k F
End If" ]( S0 x9 N7 i6 w' |
End Sub ' LABEL1中的字体是一个接一个出现并且闪烁
0 y+ }3 M S. Q9 K+ [Private Sub Timer2_Timer() '实现字体闪烁的代码) t8 O1 W8 e& G# ~
a = 255 * Rnd9 Z5 X& H" p$ c, N }: n3 W$ G
b = 255 * Rnd0 c/ t W0 R" M1 G. x3 Z
c = 255 * Rnd
+ x9 m; ?& D+ @) q" z5 N5 {1 @ Label1.ForeColor = RGB(a, b, c)8 J9 {4 h; l3 O& p6 Y
Label2.ForeColor = RGB(b, c, a)
/ F( S0 S; z6 o; OEnd Sub- {# K5 _5 \6 {2 t/ H
Private Sub Timer3_Timer() ' LABEL2中的字体是有节奏地出现和消失并且字体颜色闪烁变化
- |+ u0 E& G% C3 T/ L6 _% ? If Label2.Caption = 我爱你！ Then
" p" H5 ~* K# u$ O- j+ k/ H Label2.Caption = 7 S Z0 q Q) @- P' ?7 H: C* ?
Else
3 Z) l& F c% G' k6 C% v6 R( A Label2.Caption = 我爱你！- i7 W+ }4 y8 Z
End If+ T6 `) ~: f& z. V# H" o( E; |- N
End Sub# y0 H3 P. D& E Q Z
% w% @9 I& o4 ~4 r代码的解释已经打出来了 就不说了 大家自己看 我会打包滴
% n r. {1 K. M2 B3 y# u忘了！~~~~~~~~~~~~~~~~~- -#! 设置timer的属性 就是 我们统一设置成0.1秒 下面看看效果0 J5 F1 e% E) a
准备把字体弄打点效果好点的 大家自己弄把 我不弄了
, r, y7 {3 D5 j# x# I6 K好了教程到这里 我的小站 http://mooer.5d6d.com2 h2 l( f) t i1 H. O( P% L; u
刚健成的 希望大家一起来交流。
6 F8 K5 X+ l5 Q+ L9 y \谢谢收看
- e4 O5 n# g* C& S5 r下载地址：
|
最新整理Linux手工服务端_末世策略塔防手游
