以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  程序的中断与恢复  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=38319)

--  作者:fatty_deng
--  发布时间:2013/7/25 22:32:00
--  程序的中断与恢复
我希望点击一个窗口的按钮时,程序跳转调用另外的窗口,当另外的窗口关闭时继续下一行命令,怎么实现呢?
如图,点击上传文件的按钮,代码如下:
Dim FilterTreeTemp As String = FilterTree
Dim FilterWordTemp As String = FilterWord
Dim FilterDateTemp As String = FilterDate
Dim FilterStatusTemp As String = FilterStatus
Dim F As WinForm.Form = Forms("文件查询")
f.Show
Forms("文件录入").Visible=False
FilterTree=FilterTreeTemp
FilterWord=FilterWordTemp
FilterDate=FilterDateTemp
FilterStatus=FilterStatusTemp
Dim Filter As String = FilterDate
If FilterTree<>"" Then
    Filter=Filter & " and " & FilterTree
End If
If FilterWord <> "" Then
    Filter=Filter & " and " & FilterWord
End If
If FilterStatus <> "" Then
    Filter=Filter & " and " & FilterStatus
End If
Tables("归档文件").Filter=Filter

本窗口隐藏,程序跳转至另外的窗口,当另外的窗口关闭后继续执行下一句,就像调用子程序一样
图片点击可在新窗口打开查看此主题相关图片如下:裁剪.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2013/7/26 8:46:00
--  
你将另外的窗口的窗口类型设置为模式窗口即可
--  作者:fatty_deng
--  发布时间:2013/8/4 22:37:00
--  
谢谢,已解决