以下是FORM2窗体中程序 frm1.Show SavetempTitle = "保存文件" SavetempName = "temp.txt" Call SaveFile(SavetempTitle, SavetempName)以下是MODULE的程序 Public Sub SaveFile(tempTitle As String, tempName As String) ...... End Sub
我找到方法解决了,但还是有问题,就是计算完以后,要等上一会儿,这个计算操作的过程每个人都是不一样的,所以感觉还是不能用.你们看看如下代码,加到frm1.show的后面. dblEndTime = Timer + 20# Do While dblEndTime > Timer DoEvents Loop
DoEvents
就行了
call cmdok_click()
call mdltest.check()
call subtest()
这个从第一个开始依次执行
但是,并不是要等cmdok_click()的代码执行完毕才允许后面的执行,
这里如果你非要mdltest.check()在cmdok_click()后面执行,
可以尝试把mdltest.check()放到cmdok_click()里面代码的最后.
frm1.Show
SavetempTitle = "保存文件"
SavetempName = "temp.txt"
Call SaveFile(SavetempTitle, SavetempName)以下是MODULE的程序
Public Sub SaveFile(tempTitle As String, tempName As String)
......
End Sub
dblEndTime = Timer + 20#
Do While dblEndTime > Timer
DoEvents
Loop