Private Sub Form_Resize() If mainwindow.WindowState = 1 Then '如果是最小化 mainwindow.Visible = False '隐藏窗口 '将窗口图标加入通知栏 Call Icon_Add(Me.hWnd, Me.Caption, mainwindow.Icon, 0) End If
End Sub Private Sub Form_MouseDown(Button As Integer, shift As Integer, x As Single, Y As Single) Dim L L = x \ 15 '点击通知栏图标,用鼠标右键时调出弹出菜单 If L = WM_RBUTTONDOWN Then Me.PopupMenu m_main '点击通知栏图标,用鼠标左键时,将通知栏图标改为另外的图标 ElseIf L = WM_LBUTTONDOWN Then Me.PopupMenu m_main End If End Sub
mainwindow.Visible = False '隐藏窗口
'将窗口图标加入通知栏
Call Icon_Add(Me.hWnd, Me.Caption, mainwindow.Icon, 0)
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, shift As Integer, x As Single, Y As Single)
Dim L
L = x \ 15
'点击通知栏图标,用鼠标右键时调出弹出菜单
If L = WM_RBUTTONDOWN Then
Me.PopupMenu m_main
'点击通知栏图标,用鼠标左键时,将通知栏图标改为另外的图标
ElseIf L = WM_LBUTTONDOWN Then
Me.PopupMenu m_main
End If
End Sub
加入SSTab控件后Form_MouseDown就不能到消息了。