Public jinzhihangjianyidong As Boolean = True
Public xgjinzhihangjianyidong As Boolean = True
Public sfzym As Boolean = True
Public dhym As Boolean = True
Public xzb As String
Public _UserName As String
Public _UserGroup As String
Public _pwd As String
Public _UserTable As DataTable
Public xianshitishi As Boolean =False
'定义通知区域小图标
Public Dim nfi As New System.Windows.Forms.NotifyIcon
Public wstate = 0
'图标双击事件'
Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If forms("主窗体").Opened Then
If forms("主窗体").baseform.Opacity = 0 Then
forms("主窗体").baseform.WindowState = wstate
forms("主窗体").baseform.Opacity = 1
ShowAppWindow("主窗体",1)
Else
wstate = forms("主窗体").baseform.WindowState
forms("主窗体").baseform.WindowState = 1
forms("主窗体").baseform.Opacity = 0
ShowAppWindow("主窗体",1)
End If
Else
forms("主窗体").Open
ShowAppWindow("主窗体",1)
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 "显示主窗体"
If forms("主窗体").Opened Then
forms("主窗体").baseform.WindowState = wstate
forms("主窗体").baseform.Opacity = 1
ShowAppWindow("主窗体",1)
Else
forms("主窗体").Open
ShowAppWindow("主窗体",1)
End If
Case "退出"
Syscmd.Project.Exit(False)
End Select
End Sub
Public Sub BaseMainform_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs)
If forms("主窗体").Opened Then
If sender.WindowState = 1 Then
forms("主窗体").baseform.Opacity = 0
forms("主窗体").baseform.ShowInTaskBar = False
ShowAppWindow("主窗体",1)
Else
forms("主窗体").baseform.Opacity = 1
forms("主窗体").baseform.ShowInTaskBar = True
ShowAppWindow("主窗体",1)
End If
Else
forms("主窗体").Open
ShowAppWindow("主窗体",1)
End If
End Sub
加好友 
发短信
Post By：2017/10/21 14:25:00 [显示全部帖子]
此主题相关图片如下：201710219384469571.png