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

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

要绑定事件才行

全局代码

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

afterOpenProject，代码

addhandler basemainform.resize, addressof BaseMainform_Resize

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

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

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编辑过]

改成这样

AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
nfi.Text = "我是Foxtable" '鼠标移上去显示的文本
nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址
nfi.Visible = True '设置为显示
Forms("窗口1").show

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

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事件中的程序如上。运行时可以把项目隐藏到托盘中,但是无法展开.现象是双击了托盘中图标后,瞬间打开后,马上又隐藏起来了.错在哪?谢谢

全局代码这样写

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

'图标双击事件
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
basemainform.WindowState = 2
basemainform.visible = True
End Sub
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
If sender.WindowState = 1 Then
baseMainform.visible=False
End If
End Sub

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

现在又有两个新问题。

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

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

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