关于application.ontime制作实时时间的问题？

wjve

wpxxsyzx 发表于 2013-2-26 09:48
仅供参考：

你好，后来我按照您的思路改编了我的程序，还是不能运行并显示之前的报错语句，不知道为什么，求教？（我的程序如下）我是直接把程序段写在用户窗体中的。

Public Sub 当前时间()
TextBox当前时间.Text = Format(Now, "hh:mm:ss")
Call 实时时间
End Sub

Public Sub 实时时间()
Application.OnTime Now + TimeValue("00:00:01"), "当前时间"
End Sub

Private Sub UserForm_Initialize()
Call 当前时间
End Sub

wjve

wpxxsyzx 发表于 2013-2-26 09:48
仅供参考：

大侠，您好，通过试验，我发现问题在哪里了，我如果把以下两段程序存在“模块”中，那么再运用Private Sub UserForm_Initialize()时，运行正常；但是如果把这两段程序存在“用户窗体”（Userform）里面，那么就会报错。

但是我想知道为什么会有这样的区别呢？请大侠指点，谢谢！

Public Sub 当前时间()
TextBox当前时间.Text = Format(Now, "hh:mm:ss")
Call 实时时间
End Sub

Public Sub 实时时间()
Application.OnTime Now + TimeValue("00:00:01"), "当前时间"
End Sub

wpxxsyzx

放入模块中

wjve

wpxxsyzx 发表于 2013-2-26 14:47
放入模块中

谢谢您耐心的回答~
我还有一个进一步的问题，请问为何放入模块中就可以运行，放在userform中就不能运行呢？
谢谢~~

wpxxsyzx

这个看一下有关vba的基础知识吧，一两句说不清，简单说，模块里的内容可以在任何地方调用

wjve

wpxxsyzx 发表于 2013-2-26 16:10
这个看一下有关vba的基础知识吧，一两句说不清，简单说，模块里的内容可以在任何地方调用

好的，多谢大侠！

transnote

参数的有效范围不同

OKJSJSF

wpxxsyzx 发表于 2013-2-26 16:10
这个看一下有关vba的基础知识吧，一两句说不清，简单说，模块里的内容可以在任何地方调用

这个问题书上找不到答案，只能生搬硬套。照理都是在窗体中运行的私有过程，为什么代码不能写在窗体中，我心里是这么想的。在罗刚君老师的书中，一直强调，代码先写在模块中，尽量写在模块中，不要写在工作表、工作簿或窗体对象中，原因就是模块中的代码可以被多处调用。