Foxtable(狐表)用户栏目专家坐堂 → [求助]我有一个窗口。需要悬浮置顶,单点击窗口的时候又不会改变主窗口的顺序


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

主题:[求助]我有一个窗口。需要悬浮置顶,单点击窗口的时候又不会改变主窗口的顺序

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]我有一个窗口。需要悬浮置顶,单点击窗口的时候又不会改变主窗口的顺序  发帖心情 Post By:2020/2/26 22:58:00 [只看该作者]

[求助]我有一个窗口。需要悬浮置顶,单点击窗口的时候又不会改变主窗口的顺序让他调到最顶层(类似于有悬浮球的千牛、360等),该怎么做?

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


加好友 发短信
等级:九尾狐 帖子:2180 积分:13804 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2020/2/27 1:28:00 [只看该作者]

1 把该窗口类型设置为独立
2 把最顶层设置为 true

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20200227012645.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/2/27 2:45:00 [只看该作者]

这种只要点击窗口就会把主窗口也一起显示最上面。没达到点击窗口不会显示出来的效果

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/27 8:53:00 [只看该作者]

独立窗口,这样打开

Forms("窗口1").show
Forms("窗口1").baseform.hide
Forms("窗口1").baseform.show(Nothing)
Forms("窗口1").baseform.owner = Nothing
Forms("窗口1").baseform.showintaskbar = True

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


加好友 发短信
等级:九尾狐 帖子:2180 积分:13804 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2020/2/27 12:10:00 [只看该作者]

你是说只显示悬浮窗口,不显示主窗口?

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/2/27 21:48:00 [只看该作者]

可以,就是这样,不过好像不能加在打开窗口时的代码里

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


加好友 发短信
等级:五尾狐 帖子:1131 积分:8199 威望:0 精华:0 注册:2013/11/3 19:00:00
  发帖心情 Post By:2020/2/28 6:13:00 [只看该作者]

mark

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/28 8:35:00 [只看该作者]

或者这样

Dim f As WinForm.Form = Forms("窗口1")
f.show
f.Baseform.parent = Nothing
f.Baseform.Owner = Nothing

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


加好友 发短信
等级:六尾狐 帖子:1465 积分:10397 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2020/2/29 1:05:00 [只看该作者]

我就是要这样的,但有个新问题
我需要打印东西,一打印就弹出主窗口,我用异步函数执行也一样,该怎么弄才不会弹出主窗口呢?
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 100 '纸张宽度为100毫米
doc.PageSetting.Height = 180 '纸张高度为120毫米
Dim rt As New prt.RenderTable() '定义一个表格对象
........
Doc.Print() '预览报表

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


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

这个目前没有办法

 回到顶部