老师，第一个问题在你的提示下完成了，
第二个问题，我把Default的全局代码改为以下，
1）如何在自定义函数中调用ICON_DoubleClick
2）无法打开窗口1
'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
'图标双击事件'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
'MessageBox.Show(BaseMainform.Visible)
If BaseMainform.Visible = True Then
BaseMainform.Visible = False
Else
Forms("窗口1").open
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)
If sender.Text = "退出" Then
Syscmd.Project.Exit(False)
End If
End Sub
加好友 
发短信
Post By：2017/4/26 15:33:00 [显示全部帖子]
