王章伟网站主页
目前您位于
Visual Basic 页
布 告 栏
欢迎来到王章伟网站,本网站将重新建立。相信需时一至两个月来修改。 新网站将加入Visual Basic、Visual C++、PHP 及其他电脑程序语言的讨论园地和程序公开。
星期一至星期五,每日更改中。
星期六与星期日,睡觉。
开始建立日期
2000年10月9日
最后更改日期
2000年10月11日
每逢星期三登录一新例子
Visual Basic
目 录
1
跑马灯
2
变色跑马灯
跑马灯
2000年10月11日登录
这是一个很简单的跑马灯源码,它还有很多的变化。以方便初学者学习,所以
我先登录比较简单的跑马灯源码。
Dim
labelshow
Dim
I
Private Sub
Form_Load()
labelshow = " Ong Chang Wei"
I = 0
End Sub
Private Sub
Timer1_Timer()
If I = Len(labelshow) Then I = 0
Label1.Caption = Right(labelshow, I)
I = I + 1
End Sub
Timer1 Interval = 300
变色跑马灯
10月18日登录
我的电子邮件:
ongchangwei@hotmail.com
© Copyright 1997-2000 By Ong Chang Wei