VB创建托盘20120909.docVIP

【包括：托盘左键、右键事件】 添加两个窗体【frmMain】、【frmMenu】 【frmMain】 中添加控件PicturBox 命名为 Pic1，控件TextBox，命名Text1 代码： Option Explicit 强制定义类型 Dim WithEvents cTrayIco As cTray 托盘右键单击事件 Dim WithEvents MenuFrm As frmMenu 主窗体鼠标单击事件 Dim MeHide As Boolean 是否已经隐藏了 -------------判断鼠标对托盘图标的单击是【左键】、还是【右键】。。。。 Private Sub cTrayIco_MouseClick(ByVal Button As Long, ByVal DBClick As Boolean) Select Case Button Case vbRightButton If DBClick = False Then PopupMenu MenuFrm.mPop2 End If Case vbLeftButton If DBClick = True Then Call ShowHideMe End If End Select End Sub Private Sub Form_Load() Set cTrayIco = New cTray Set MenuFrm = New frmMenu With cTrayIco .AddTrayIco Pic1 用于替代的图片控件 .SetTrayIcon Me.Icon .SetTrayTip Me.Caption End With OnTop Me Me.WindowState = vbNormal End Sub -------------退出时提示“是否确认退出” Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(您真的要退出吗？ , vbYesNo + vbDefaultButton1, ！退出提示 ) = vbYes Then End Else Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next cTrayIco.DelTrayIco Unload MenuFrm Set cTrayIco = Nothing Set MenuFrm = Nothing End Sub Private Sub MenuFrm_MenuClick2(ByVal Index As Long) 托盘右键菜单点击事件 Dim str As String str = Text1.Text Select Case Index Case 0 显示/隐藏界面 Call ShowHideMe Case 1 Case 2 选择默认数据库 If Mid(str, InStrRev(str, \) + 1) = 456 Then 从字符串最右端的“\”符号开始截取字段 MsgBox 您正在使用默认数据库！ , vbOKOnly, 【提示】 End If Case 3 Case 4 切换当前数据库 Unload Me Case 5 Case 6 Unload Me End Select End Sub Private Function ShowHideMe() 显示或隐藏主窗体 On Error Resume Next