顺序执行时,如何不等待调用函数返回而继续执行下一条语句????
例如一段代码attr(0).name = attrname
attr(0).Value = attrvalue
DownloadFile filename1, localdir1, FTP_IMAGE_MODE, 0
msgbox "end"
如何不必等待 DownloadFile 函数执行完毕就执行msgbox? --------------------编程问答-------------------- 把DownloadFile放在一个Timer1控件里面,注意Timer1.Enabled初值为False
Private Sub Timer1_Timer()
DownloadFile filename1, localdir1, FTP_IMAGE_MODE, 0
Timer1.Enabled=False
End Sub
然后主程序执行
Timer1.Interval=1
Timer1.Enabled=True
--------------------编程问答--------------------
我的这一段代码是在类的一个方法里面的,不好放timer控件啊。 --------------------编程问答-------------------- http://www.cnblogs.com/pctgl/articles/1540402.html
下那个单类模块实现的timer,然后稍微改改代码就行,改不明白的话,可以联系我 --------------------编程问答--------------------
Ding ....
--------------------编程问答-------------------- 使用 xmlhttp,异步调用web请求。 --------------------编程问答-------------------- 使用用户控件的异步下载 --------------------编程问答--------------------
请问我在类的成员函数里面怎么触发timer的事件呢? --------------------编程问答-------------------- 那个timer类的使用例子在那个代码里面就有,你参考下
你可以象在窗口中一样,在你的类中使用,使用
Dim WithEvents m As mTimer 声明这个timer类
在你的类初始化时:
set m = new mtimer
m.Interval = 间隔,自己设置
m.enabled= true 这句之后就启动timer了
你的类里面会有
Private Sub m_RaiseTimer(ByVal cHwnd As Long, ByVal TimerMessage As Long, ByVal TimerID As Long, ByVal GetTickCounts As Long)
这个事件,自己调出来,在这里面写代码就行了,如果不希望代码在这个事件里面重复执行,那就在这个事件代码的第1行写 m.enabled = false 停止timer就可以了
--------------------编程问答-------------------- 建立多线程分别去跑。
--------------------编程问答-------------------- 那就不叫顺序执行了. 悖论
补充:VB , 基础类