- Private Sub Form_Timer()
- Dim intMz As Integer
- Dim blnMz As Boolean
- intMz = intMz + 1
- If intMz> 4 Then
- intMz = 1
- End If
- Select Case intMz
- Case 1
- labXX.Caption = "木子办公助手"
- blnMz = True
- Case 2
- labXX.Caption = "[email protected]"
- blnMz = False
- Case 3
- labXX.Caption = "木子软件工作室"
- blnMz= True
- Case 4
- labXX.Caption = "http://blog.csdn.net/mzoffice/"
- blnMz = True
- End Select
- End Sub
标签变换的代码
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
JavaScript中的window对象
window對象:每一個該對象代表一個瀏覽器窗口 1.常用方法如下 open("要打開的頁面文件名","打開窗口在操作系統中的名稱(任何名稱都可以)", "toolbar=?,menubar=?,
windy8833
2020-07-08 12:23:53
Qt做启动界面
tumblerman
2020-07-08 08:18:05
成功创业的基本要求
1、不說"不可能";2、凡事第一反應: 找方法,不找藉口;3、遇到挫折對自己說聲:太好了,機會來了!4、不說消極的話,不落入消極的情緒,一旦發生立即正
雄牛
2020-07-08 12:18:30
如何增强体质和免疫力
雄牛
2020-07-08 12:18:30
UML 工作流建模
http://se.csai.cn/ANALYZE/200904090924001269.htm http://www.docin.com/p-2086224.html
zrz009
2020-07-08 11:14:16
考研还是不考?
Eutopia_ZJ
2020-07-08 10:42:48
养生需知:世上最健康的作息时间
wsimei
2020-07-08 10:29:28
MQ的通讯模式
itsoft2006
2020-07-08 10:27:39
【组图】地震前线归来--心中的震撼
yizhu2000
2020-07-08 09:39:07
自定义和管理工作项类型 [witadmin]
银月术
2020-07-08 09:14:45
韩剧你是我的命运分集介绍五
eciru
2020-07-08 08:58:07