以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  浮动窗口怎么做？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77675)
--  作者：zhchling
--  发布时间：2015/11/23 13:50:00
--  浮动窗口怎么做？
浮动窗口， 平时是小块窗口，永远悬浮在所有窗口上面， 可以放在屏幕右边，  需要时弹出大点的窗口。


怎么实现？
图片点击可在新窗口打开查看此主题相关图片如下：1111.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2015/11/23 14:15:00
--  

afterLoad事件这样写，要透明的地方，背景颜色设置成白色即可。

 

e.Form.BaseForm.TransparencyKey = Color.white
e.Form.BaseForm.Opacity = 0.8
e.form.baseform.Topmost = True
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
--  作者：zhchling
--  发布时间：2015/11/23 16:32:00
--  
用什么代码可以让某个被窗口1压在底下的打开的窗口2浮到最上层来？

e.form.baseform.Topmost = True ？

指定某窗口，怎么写？ Forms("短信猫设置").Topmost  ？    语法不对




判断是否窗口打开？ 如果打开就 Forms("窗口1").Show() ？ 这个方法也测试过，不好用， 两个都是独立窗口


[此贴子已经被作者于2015/11/23 16:50:40编辑过]
--  作者：zhchling
--  发布时间：2015/11/23 16:59:00
--  
If Forms("短信猫设置").opened Then
    Forms("短信猫设置").show
Else
    Forms("短信猫设置").open
End If

这样可以打开，但如果  Forms("短信猫设置")被最小化后，无法最大化并显示在顶层。


问题： 窗口最大化用什么语法？
--  作者：zhchling
--  发布时间：2015/11/23 17:03:00
--  
在窗口1中，某按钮代码

If Forms("短信猫设置").opened Then
  Forms("短信猫设置").BaseForm.windowstate = 2
  Forms("短信猫设置").show
Else
    Forms("短信猫设置").open
End If


这样可以了， 请大师看看这样代码合理吗？有没有更合理的方案？
--  作者：大红袍
--  发布时间：2015/11/23 17:10:00
--  

basemainform.TopMost = True

Forms("短信猫设置").show
Forms("短信猫设置").TopMost = True