王章伟网站主页
目前您位于
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