以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  系统通知区图标的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75135)

--  作者:qinlao666
--  发布时间:2015/9/28 12:52:00
--  系统通知区图标的问题

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

 

根据上面的实例做个了系统通知区图标,请教老师,能否像QQ那样,直接点关闭按钮就可以实现这个功能。

或者是直接点关闭按钮询问是退出主程序还是最小化,而不需要另添加个按钮。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150928124905.jpg
图片点击可在新窗口打开查看
 

请老师指导,谢谢


--  作者:qinlao666
--  发布时间:2015/9/28 13:54:00
--  

?有老师在吗?请指导下哦

 


--  作者:大红袍
--  发布时间:2015/9/28 14:09:00
--  

去编写BeforeCloseProject事件,弹出一个自己的窗口询问就行了。

 

如果选择最小化,就运行代码

 

BaseMainForm.WindowState = 1

e.Cancel = True


--  作者:qinlao666
--  发布时间:2015/9/28 16:13:00
--  
老师根据您的提示我做了关闭窗口,如图

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150928160759.jpg
图片点击可在新窗口打开查看

我在BeforeCloseProject事件中加了代码
Forms("关闭").open
 e.Cancel = True

最小化命令弄好了,退出项目的命令不会,试了几个命令都不没反应

请老师指导下哦!

--  作者:大红袍
--  发布时间:2015/9/28 16:19:00
--  

最简单方法

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")
For Each p As System.Diagnostics.Process In ps
    If p.MainWindowTitle = Nothing OrElse p.MainWindowTitle = basemainform.Text Then
        p.kill
        Exit For
    End If
Next