以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于独立窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69260)
--  作者：sara
--  发布时间：2015/6/2 11:48:00
--  关于独立窗口

Vars("AddKeHu") = True
If Forms("客户资料").Opened = True Then
    Vars("IsKeHuOpened") = True
MessageBox.Show("aa")
Else
MessageBox.Show("bb")
    Vars("IsKeHuOpened") = False
  \'  Forms("客户资料").Open
End If

我这段代码导致的结果是什么都不输出，窗口死在那里了，如图，我想判断如果独立窗口打开着的话就不弹出窗口了，把各个控件里面的内容清空，那我该如何判断独立窗口是否已经打开呢


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/6/2 12:09:00
--  
 呃，你设置了窗口置顶，遮住了弹出框。键盘 Alt+F4 关闭
--  作者：sara
--  发布时间：2015/6/2 13:09:00
--  
还是没有弹出框
--  作者：大红袍
--  发布时间：2015/6/2 14:12:00
--  
 呃，你窗口不要设置最顶层好吗？
--  作者：sara
--  发布时间：2015/6/2 15:51:00
--  
不设置最顶层点击下面那个窗口控件时候上面窗口就到了最后面了
--  作者：大红袍
--  发布时间：2015/6/2 15:59:00
--  
以下是引用sara在2015/6/2 15:51:00的发言：
不设置最顶层点击下面那个窗口控件时候上面窗口就到了最后面了

 

1、不设置最顶层，改成模式窗口；

 

2、或者所有的窗口，都不要用模式窗口。
--  作者：sara
--  发布时间：2015/6/2 16:28:00
--  
我在打开窗口时候有这个提示，杂么回事，就是新增，里面
--  作者：大红袍
--  发布时间：2015/6/2 16:29:00
--  

什么提示