全局代码如下
'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
Public wstate = 2
'图标双击事件'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If forms("系统主窗体").baseform.Opacity = 0 Then
forms("系统主窗体").baseform.WindowState = 2
forms("系统主窗体").baseform.Opacity = 1
'basemainform.hide
basemainform.WindowState =wstate
For Each Frm As WinForm.Form In Forms
If frm.opened AndAlso (frm.FormStyle = 2 OrElse frm.FormStyle = 3) AndAlso Frm.Name <> "系统主窗体"
frm.baseform.show
End If
Next
Else
wstate = forms("系统主窗体").baseform.WindowState
forms("系统主窗体").baseform.WindowState = 1
forms("系统主窗体").baseform.Opacity = 0
basemainform.WindowState =1
'basemainform.hide
For Each Frm As WinForm.Form In Forms
If frm.opened AndAlso (frm.FormStyle = 2 OrElse frm.FormStyle = 3) AndAlso Frm.Name <> "系统主窗体"
frm.baseform.hide
End If
Next
End If
End Sub
''定义右键菜单
Public Dim cms As New System.Windows.Forms.ContextMenuStrip
'
''菜单按钮点击事件
Public Sub Menu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Select Case sender.Text
Case "显示主窗体"
forms("系统主窗体").baseform.WindowState = 2
forms("系统主窗体").baseform.Opacity = 1
basemainform.windowstate = wstate
Case "退出"
Syscmd.Project.Exit(False)
End Select
End Sub
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
If sender.WindowState = 1 Then
forms("系统主窗体").baseform.Opacity = 0
forms("系统主窗体").baseform.ShowInTaskBar = False
Else
forms("系统主窗体").baseform.Opacity = 1
forms("系统主窗体").baseform.ShowInTaskBar = True
End If
End Sub
Dim frm = forms("系统主窗体").baseform
frm.windowstate = 0
frm.left = 0
frm.top = 0
frm.width = SysInfo.ScreenWidth
frm.height = SysInfo.WorkingAreaHeight
e.form.baseform.showintaskbar = True
经过运行测试后发现如下问题（1）窗体最小化时，必须双击两次托盘才能运行一次双击托盘双击事件；
（1）双击托盘双击事件最小化后，单击任务栏图标不起作用，必须双击一次托盘双击事件后，单击任务栏图标才起作用
[此贴子已经被作者于2020/4/29 1:58:10编辑过]
加好友 
发短信
Post By：2020/4/28 14:56:00 [显示全部帖子]
此主题相关图片如下：截图07.jpg