Foxtable(狐表)用户栏目专家坐堂 → [求助]切换页面隐藏独立窗口


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

主题:[求助]切换页面隐藏独立窗口

帅哥哟,离线,有人找我吗?
5159518
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2065 威望:0 精华:0 注册:2015/11/27 19:09:00
  发帖心情 Post By:2018/2/13 20:37:00 [只看该作者]

以下是引用有点甜在2018/2/13 16:40:00的发言:

全局代码

 

Public Sub Form1_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs)

    msgbox(123)

    sender.windowstate = 1

End Sub

 

窗口afterLoad事件,写代码

 

addHandler e.form.baseform.Deactivate, addressof Form1_Deactivate


谢谢老师,可以实现自动最小化了,但是现在又不能自动显示,因为我是在表中双击单元格通过代码打开窗口的,现在每次打开窗口了之后都要手动点击一下任务栏才能显示,应该是双击之后打开窗口并前端显示,如果鼠标在窗口范围之外点击则自动最小化,现在后半部分实现了,前半部分又不行了,请问怎么解决


 回到顶部
帅哥哟,离线,有人找我吗?
5159518
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2065 威望:0 精华:0 注册:2015/11/27 19:09:00
  发帖心情 Post By:2018/2/13 20:38:00 [只看该作者]

也就是如何指定这个窗口为活动窗口?

 回到顶部
帅哥,在线噢!
有点蓝
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:22666 积分:115602 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 20:47:00 [只看该作者]

Forms("窗口2").show
Forms("窗口2").baseform.windowstate = 0

 回到顶部
帅哥哟,离线,有人找我吗?
5159518
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2065 威望:0 精华:0 注册:2015/11/27 19:09:00
  发帖心情 Post By:2018/2/13 20:55:00 [只看该作者]

没有效果,和开始一样,窗口闪了一下,然后就最小化了

 回到顶部
帅哥,在线噢!
有点蓝
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:22666 积分:115602 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/13 21:40:00 [只看该作者]

上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
5159518
  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:296 积分:2065 威望:0 精华:0 注册:2015/11/27 19:09:00
  发帖心情 Post By:2018/2/13 23:27:00 [只看该作者]

打开窗口一闪就没了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥,在线噢!
有点蓝
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:22666 积分:115602 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/14 8:51:00 [只看该作者]

e.Cancel= True
Forms("窗口1").open
Forms("窗口1").baseform.windowstate = 0

 回到顶部
总数 37 上一页 1 2 3 4