Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于判断窗口是否已经打开


  共有3782人关注过本帖树形打印复制链接

主题：关于判断窗口是否已经打开
帅哥哟，离线，有人找我吗？
裴保民
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 17:35:00 [显示全部帖子]

最少也有三个窗体同时打开的（如主窗体、导航窗体、菜单窗体）等,那该怎么解决呢？
独立窗体能实现但不想再运行程序时独立窗体在打开时可以操作其他窗体,想实现当客户打开窗体时不能操作其他窗体,所以将窗体改为模式窗体后就不能实现此功能了,请问模式窗体关闭窗体后怎样将值传给主窗体呀？能实现这个功能就能可以实现计时器功能,就卡到这了。或者能实现当独立窗体打开后不能操作本窗体以外的窗体和其他任何操作也可以。该怎么解决呢？
[此贴子已经被作者于2017/12/5 17:46:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 17:48:00 [显示全部帖子]

独立窗体能实现但不想再运行程序时独立窗体在打开时可以操作其他窗体,想实现当客户打开窗体时不能操作其他窗体,所以将窗体改为模式窗体后就不能实现此功能了,请问模式窗体关闭窗体后怎样将值传给主窗体呀？能实现这个功能就能可以实现计时器功能,就卡到这了。或者能实现当独立窗体打开后不能操作本窗体以外的窗体和其他任何操作也可以。该怎么解决呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 17:51:00 [显示全部帖子]

我以前就这样写的代码。可是写到计算器事件中运行程序后计时器不运行
必须写到每个窗体的关闭后事件中才可以,不过独立窗体可以实现这个功能,写到模式窗体的关闭后的事件中不传值所以实现不了这个功能。真的不知道怎么解决。
[此贴子已经被作者于2017/12/5 17:54:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 20:45:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:主窗体测试.rar


我怎么实现（除主窗体、导航窗体、菜单窗体）以外的其他窗体有打开时主窗体的计时器关闭（也就是主窗体的Label1控件不可见），如果只有（主窗体、导航窗体、菜单窗体）打开，其他窗体是关闭着时主窗体的计时器打开（也就是主窗体的Label1控件可见）并由右向左移动


如果关闭其他窗体后经过判断是否还有其他（除主窗体、导航窗体、菜单窗体）以外的窗体打开，如果有主窗体的计时器继续关闭，如果（除主窗体、导航窗体、菜单窗体）以外的窗体都是关闭状态则打开主窗体计时器功能，并显示主窗体的Label1控件可见并由右向左移动


[此贴子已经被作者于2017/12/5 20:50:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 21:32:00 [显示全部帖子]

蓝老师建一个计划任务后在哪调用他呢？

在新计划写了如下代码：
Dim flag As Boolean = False
Dim mf As WinForm.Form = Forms("主窗体")
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> "主窗体" AndAlso f.name <> "停靠窗体" AndAlso f.name <> "菜单窗体"  Then
        flag = True
        Exit For
    End If
Next
If flag = False AndAlso Forms("主窗体").Opened Then
  Dim lbl As WinForm.Label =mf.Controls("Label1")
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = mf.width
   End If
    Forms("主窗体").TimerEnabled = True
End If

当打开某一个模式窗体时主窗体的Label1控件没有隐藏，当再次关闭模式窗体时Label1控件不但没有运行反而被隐藏了
[此贴子已经被作者于2017/12/5 21:53:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 21:54:00 [显示全部帖子]

蓝老师建一个计划任务后在哪调用他呢？

在新计划写了如下代码：
Dim flag As Boolean = False
Dim mf As WinForm.Form = Forms("主窗体")
For Each f As WinForm.Form In forms
    If f.Opened AndAlso f.name <> "主窗体" AndAlso f.name <> "停靠窗体" AndAlso f.name <> "菜单窗体"  Then
        flag = True
        Exit For
    End If
Next
If flag = False AndAlso Forms("主窗体").Opened Then
  Dim lbl As WinForm.Label =mf.Controls("Label1")
    If lbl.left+lbl.width > 0 Then
        lbl.left -= 10
    Else
        lbl.left = mf.width
   End If
    Forms("主窗体").TimerEnabled = True
End If

当打开某一个模式窗体时主窗体的Label1控件没有隐藏，当再次关闭模式窗体时Label1控件不但没有运行反而被隐藏了



图片点击可在新窗口打开查看此主题相关图片如下：点点滴滴.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：45677.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 22:13:00 [显示全部帖子]

都设置好啦蓝老师


此主题相关图片如下：sz.jpg
按此在新窗口浏览图片


不是设置的事，是运行后不是自己要的结果

我想怎么实现（除主窗体、导航窗体、菜单窗体）以外的其他窗体有打开时主窗体的计时器关闭（也就是主窗体的Label1控件不可见），如果只有（主窗体、导航窗体、菜单窗体）打开，其他窗体是关闭着时主窗体的计时器打开（也就是主窗体的Label1控件可见）并由右向左移动
如果关闭其他窗体后经过判断是否还有其他（除主窗体、导航窗体、菜单窗体）以外的窗体打开，如果有主窗体的计时器继续关闭，如果（除主窗体、导航窗体、菜单窗体）以外的窗体都是关闭状态则打开主窗体计时器功能，并显示主窗体的Label1控件可见并由右向左移动


[此贴子已经被作者于2017/12/5 22:16:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 22:33:00 [显示全部帖子]

按您的方法做了就是达不到想要的结果，麻烦蓝老师给看看
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:主窗体测试.rar

我想怎么实现（除主窗体、导航窗体、菜单窗体）以外的其他窗体有打开时主窗体的计时器关闭（也就是主窗体的Label1控件不可见），如果只有（主窗体、导航窗体、菜单窗体）打开，其他窗体是关闭着时主窗体的计时器打开（也就是主窗体的Label1控件可见）并由右向左移动
如果关闭其他窗体后经过判断是否还有其他（除主窗体、导航窗体、菜单窗体）以外的窗体打开，如果有主窗体的计时器继续关闭，如果（除主窗体、导航窗体、菜单窗体）以外的窗体都是关闭状态则打开主窗体计时器功能，并显示主窗体的Label1控件可见并由右向左移动
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/5 22:45:00 [显示全部帖子]

谢谢蓝老师，还有一个问题就是关闭窗体后有延迟

 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/12/6 0:53:00 [显示全部帖子]

用代码怎么关闭或打开计划任务呢？

已解决

[此贴子已经被作者于2017/12/6 1:41:40编辑过]
 回到顶部
总数 21 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询