把窗体最小化到右下角的任务栏,再用Form_MouseDown得到鼠标消息弹出。
为什么在窗体内加入SSTab控件,再最小化后Form_MouseDown就得不到鼠标消息。
请大虾帮忙。

解决方案 »

  1.   

    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
      

  2.   

    没有加入SSTab控件时,Form_MouseDown能得到消息。
    加入SSTab控件后Form_MouseDown就不能到消息了。
      

  3.   

    你能不能把你程序發過來看看。[email protected]