Foxtable(狐表)用户栏目专家坐堂 → [求助]请教个主菜单最小化到任务栏托盘的问题?


  共有5433人关注过本帖树形打印复制链接

主题:[求助]请教个主菜单最小化到任务栏托盘的问题?

帅哥哟,离线,有人找我吗?
jnletao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:941 积分:7786 威望:0 精华:0 注册:2013/7/7 13:37:00
[求助]请教个主菜单最小化到任务栏托盘的问题?  发帖心情 Post By:2013/12/9 13:44:00 [只看该作者]

看了bin老师的帖子,在我的程序里已设置如下

全局代码

 

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

 

项目事件

 

AfterOpenProject

 

qat.Visible = False


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 '设置为显示

Forms("窗口1").show


以上命令实现了 把图标放在任务栏里。



学习了baseMainform.visible=False ,但只知道这个命令可以加给窗体里定义的按钮!


不知道如何通过系统主菜单的最小化按钮 到任务栏托盘

请赐教!

[此贴子已经被作者于2013-12-9 13:45:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/9 14:02:00 [只看该作者]

为 baseMainform 添加MinimumSizeChanged 事件然后在事件里写隐藏代码即可.


 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:941 积分:7786 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/12/9 14:22:00 [只看该作者]

Bin大哥,您能给写个不,俺实在不知道怎么写?

Public Sub baseMainform_MinimumSizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
   
MessageBox.Show("是这个样子吗!")
End
 Sub
[此贴子已经被作者于2013-12-9 14:22:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/9 14:26:00 [只看该作者]

是的.

然后添加进去在AlteropenPROJECT事件中 

AddHandler baseMainform .MinimumSizeChanged, AddressOf MinimumSizeChanged

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:941 积分:7786 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/12/9 14:39:00 [只看该作者]

报错

图片点击可在新窗口打开查看此主题相关图片如下:360软件小助手截图20131209143749.jpg
图片点击可在新窗口打开查看

全局代码
Public Sub baseMainform_MinimumSizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
   baseMainform.visible = False
End Sub

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/9 14:44:00 [只看该作者]

看清楚我的代码,再看清楚你写的代码.    在看一下你自己定义的名称,是同一个吗? 

明明是baseMainform_MinimumSizeChanged
为何写 MinimumSizeChanged

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:941 积分:7786 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/12/9 14:47:00 [只看该作者]

我刚刚改过来了,倒是不报错了,可是最小化后还是在任务栏上显示,在任务栏托盘上 双击,单击都无反应图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/9 14:49:00 [只看该作者]

还在任务栏上显示? 没有隐藏窗体?
上个例子看看.

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:941 积分:7786 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/12/9 14:58:00 [只看该作者]

上例子了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:系统通知区域图标(开发版)2.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/9 15:14:00 [只看该作者]

事件搞错了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:系统通知区域图标(开发版)2.foxdb



 回到顶部