OnTime与类模块，应用滚动字幕。

ningyong58 · 发表于 2010-1-3 08:36

http://club.excelhome.net/thread-520829-1-1.html
目标目标定位是，同电视一样，在状态栏中10秒显示一条内容
这个帖子的网友回帖的程序全是在模块(bas)中运行。
Dim mosstr As String
Dim mosin As Boolean
Sub mosontime()
Application.OnTime Now + TimeValue("00:00:20"), "mosstatebar", , True　
''学习了OnTime的用法．
End Sub
Sub mosstatebar()
mosin = Not mosin
If mosin Then mosstr = "第一次出现的信息（区别123456）" Else mosstr = "第二次出现的信息（区别56789）"
Application.StatusBar = mosstr
mosontime
End Sub

此帖的目标需求　mosstatebar的模块　放在模块（bas)放到类模块中(Cls)

ningyong58 · 发表于 2010-1-3 08:49

现在的问题是
Application.OnTime Now + TimeValue("00:00:20"), "mosstatebar", , True　
"mosstatebar"调用模块程序是在(bas)中
目标需求是
"mosstatebar"与类如何关联。

joforn · 发表于 2010-1-3 10:17

此帖的目标需求　mosstatebar的模块　放在模块（bas)放到类模块中(Cls)

请恕我语言理解能力差，实在是没明白楼你想做什么？

ningyong58 · 发表于 2010-1-3 11:36

原帖由 joforn 于 2010-1-3 10:17 发表
此帖的目标需求　mosstatebar的模块　放在模块（bas)放到类模块中(Cls)

请恕我语言理解能力差，实在是没明白楼你想做什么？

主要目的是打包dll，
bas不能打包到dll,只能放到dll中。
这种写法　Application.OnTime Now + TimeValue("00:00:20"), "mosstatebar", , True　
放到模块中bas是可操作的。
目标需求是
　"mosstatebar"前面要有一个定义才能与类如何关联。

gjj136138139 · 发表于 2010-1-3 20:56

我也没弄明白

		自动登录	找回密码
密码			免费注册

[讨论] OnTime与类模块，应用滚动字幕。