Foxtable(狐表)用户栏目专家坐堂 → [求助]通知区域小图标控制主界面的问题


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

主题:[求助]通知区域小图标控制主界面的问题

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]通知区域小图标控制主界面的问题  发帖心情 Post By:2019/7/21 11:00:00 [只看该作者]

老师,你好!
现有通知区域小图标控制主界面的问题,代码如下,我想是点击鼠标左键控制主界面显示、隐藏,右键显示退出菜单,右键退出没问题,但左键控制无效。请老师改正一下,谢谢!
'全局代码

Public _Sys_Sw As String  '界面开关状态
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)
Dim Result As DialogResult
Result = MessageBox.Show("程序正在运行,你确定退出该程序?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Syscmd.Project.Exit
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
End Sub


'图标MouseDown事件
Public Sub ICON_MouseDown(ByVal sender As System.Object, ByVal e As System.EventArgs)
If MouseButton =MouseButtons.Right Then '假定按下的是鼠标右键
    
Else If MouseButton =MouseButtons.Left Then '假定按下的是鼠标左键
If baseMainform.visible=True Then
    baseMainform.visible=False '设置主窗体隐藏  这个代码帮助中有的
    If Forms("QQServer").opened Then
        Forms("QQServer").close
    End If
ElseIf baseMainform.visible=False Then
    baseMainform.visible=True '设置主窗体显示  这个代码帮助中有的
   _Sys_Sw="开"
    Forms("QQServer").show
End If
End If
End Sub

'项目事件AfterOpenProject

TableCaptionVisible = False '隐藏表标题
'AddHandler nfi.Click, AddressOf Icon_Click '为通知区域图标添加单击事件
AddHandler nfi.MouseDown, AddressOf Icon_MouseDown '为通知区域图标添加MouseDown事件
Dim tsmi1 As new System.Windows.Forms.ToolStripMenuItem("退出")   '定义一个菜单选项
AddHandler tsmi1.Click, AddressOf Menu1_Click  '为这个菜单选项添加点击事件
cms.Items.Add(tsmi1)  '为全局变量CMS 也就是右键菜单添加 "退出"
nfi.ContextMenuStrip = cms
nfi.Text = "我是QQServer" '鼠标移上去显示的文本
nfi.Icon = new Icon(ProjectPath & "\001.ico") '图标地址
nfi.Visible = True '设置为显示
Forms("QQServer").show

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/21 20:50:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:qqserver.zip


 回到顶部