[求助]项目的最小化按钮事件在哪里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

项目右上角（最小化- 最大化口退出X）对应着最小化的事件是在哪里？

谢谢！我想用这个最小化按钮-把整个项目都最小化到托盘上应该怎么写程序？

这个例子我看了不想隐藏后有那么多的菜单一菜单二，怎么去掉啊？我也尝试改一下但是改了就保存不了了！

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件

Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("菜单一",GetImage(projectpath & "\BrowseMode.ico")) '定义一个菜单选项(带图标)

AddHandler tsmi1 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim tsmi2 As new System.Windows.Forms.ToolStripMenuItem("菜单二") '定义一个菜单选项

AddHandler tsmi2 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim zcd1 As new System.Windows.Forms.ToolStripMenuItem("子菜单1") '定义一个菜单选项

Dim zcd2 As new System.Windows.Forms.ToolStripMenuItem("子菜单2") '定义一个菜单选项

tsmi2.DropDownItems.Add(zcd1) '把 "子菜单1" 添加为 "菜单二" 的子菜单

tsmi2.DropDownItems.Add(zcd2) '把 "子菜单2" 添加为 "菜单二" 的子菜单

Dim tsmi3 As new System.Windows.Forms.ToolStripMenuItem("菜单三") '定义一个菜单选项

AddHandler tsmi3 .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim ztsmi As new System.Windows.Forms.ToolStripMenuItem("一级子菜单1") '定义一个菜单选项

AddHandler ztsmi .Click, AddressOf Menu1_Click '为这个菜单选项添加点击事件

Dim ejzcd As new System.Windows.Forms.ToolStripMenuItem("二级子菜单1") '定义一个菜单选项

ztsmi.DropDownItems.Add(ejzcd ) '把"二级子菜单1" 添加为 "一级子菜单1" 的子菜单

tsmi3.DropDownItems.Add(ztsmi) '把 "一级子菜单1" 添加为 "菜单三" 的子菜单

cms.Items.Add(tsmi1) '为全局变量CMS 也就是右键菜单添加 "菜单一"

cms.Items.Add(tsmi2) '为全局变量CMS 也就是右键菜单添加 "菜单二"

cms.Items.Add(tsmi3) '为全局变量CMS 也就是右键菜单添加 "菜单三"

nfi.ContextMenuStrip = cms

nfi.Text = "我是Foxtable" '鼠标移上去显示的文本

nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址

nfi.Visible = True '设置为显示

这段程序如何精減一下，把那些菜单一二三一级子菜单都取消掉；

想做的事情是点一下项目最小化，项目跑到托盘中。在托盘点一下就恢复了！谢谢

[此贴子已经被作者于2016/7/19 12:25:22编辑过]

'///////////////////////////////////

Public Dim nfi As new System.Windows.Forms.NotifyIcon '定义通知区域小图标

Public Dim cms As new System.Windows.Forms.ContextMenuStrip '定义右键菜单

'菜单按钮点击事件

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

'MessageBox.Show("你点击的是 : " & sender.Text)

'End Sub

'图标双击事件

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

baseMainform.visible=True '设置主窗体显示这个代码帮助中有的

End Sub

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

'msgbox(sender.WindowState)

baseMainform.visible=False

End Sub

‘///////AfterOpenProject//////////////////////////////

'AfterOpenProject

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件

nfi.Text = "我是Foxtable" '鼠标移上去显示的文本

nfi.Icon = new Icon(ProjectPath & "log.ico") '图标地址

nfi.Visible = True '设置为显示

addhandler basemainform.resize, addressof BaseMainform_Resize

这是修改后的程序。全局变量中定义和在AfterOpenProject事件中的程序如上。运行时可以把项目隐藏到托盘中,但是无法展开.现象是双击了托盘中图标后,瞬间打开后,马上又隐藏起来了.错在哪?谢谢

按照老师的提示已经达到了预定效果。

现在又有两个新问题。

问题1：项目隐藏到托盘中之后双击再打开后，项目窗口有时排在了其它应用的后面，能否打开之后就成为当前窗口，排列在最前面呢？

第2个问题：项目中原有一个定时任务把一个提示窗口显示在右下角。项目隐藏到托盘后这个提示窗口就不显示了。能否在项目处于隐藏状态时，将这个窗口显示在右下脚角呢？谢谢

第1个问题圆满解决了，经测试需要在basemainform.TopMost = true语句后面再增加basemainform.TopMost = false，没有这条语句项目将永远占住当前窗口赖着不走；

第2个问题：11楼所示的程序不知道写到哪个事件中？也可能我第2个问题没介绍清楚。我再描述一下。

这个项目在运行时通过计划任务定时打开一个提示窗口A显示在右下角。项目隐藏到托盘后这个提示窗口A就看不到了。期望项目隐藏在托盘的时候，仍然能将这个窗口A显示在右下脚角？谢谢

[此贴子已经被作者于2016/7/23 5:31:20编辑过]

主题：[求助]项目的最小化按钮事件在哪里？