以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  程序 至于 windows 的最前方  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75709)

--  作者:ljh29206
--  发布时间:2015/10/13 12:25:00
--  程序 至于 windows 的最前方

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=57812&replyID=387269&skin=1

 

群 里面有个 右下角 弹窗 的 例子

 

我测试过可以用。

 

但 如何 我开了几个程序 或者网页后,

 

这个弹窗 会放置在 这些程序的后边,

 

如何使到 弹窗 在 最前方 , 无论怎么操作 都一定能看到?


--  作者:大红袍
--  发布时间:2015/10/13 14:35:00
--  

basemainform.TopMost = True

Forms("自己的窗口").TopMost = True


--  作者:ljh29206
--  发布时间:2015/10/14 16:03:00
--  

老师 发现了个问题

 

 

Forms("自己的窗口").TopMost = True

设置为 true 后

 

message 等都会 至于程序的后边!

 

其实我的目的只是 如果 电脑开了很多程序,   只要把foxtable的程序置于 这些程序的前边就行。 

 

 

 我通过 一下代码 来控制 可见的

if Forms("mainform").baseform.Visible =True then

\'Forms("mainform").baseform.Visible =False

Else

\'Forms("mainform").baseform.Visible =true

endif

[此贴子已经被作者于2015/10/14 16:06:52编辑过]

--  作者:大红袍
--  发布时间:2015/10/14 16:13:00
--  

改一下。

 

MessageBox.Show("提示!", "重要提示",MessageBoxButtons.Ok,MessageBoxIcon.Question, 0, Windows.forms.MessageBoxOptions.ServiceNotification)