主题：[求助]隐藏系统，最小化窗体，跟进老师的打卡提醒做！

把你的bin文件夹删除，重新打开。

全局代码，这样写

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

'图标双击事件'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    BaseMainForm.Opacity = iif(BaseMainForm.Opacity = 0, 1, 0)
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 "显示主窗体"
            BaseMainForm.Opacity = 1
        Case "退出"
            Syscmd.Project.Exit(False)
    End Select
End Sub

mark 右下角图标

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:aa.table