谁用过在MDI下做托盘,进来拿分!

Question

在MDI下做托盘,可不可以做呢!答案应该是肯定的,我做的这个问题是:运行后在最大化时用右键单双击均没有反应.但不是最大化时(包括最小化)时用右键单击没有反应,但右键双击则有弹出菜单(OK).是什么问题呢?程序如下
 Dim Result As Long
    Dim Msg As Long
    Msg = x / Screen.TwipsPerPixelX
        Select Case Msg
        Case WM_LBUTTONUP        '514 restore form window
         Me.WindowState = vbNormal
         Result = SetForegroundWindow(Me.hwnd)
         Me.Show
        Case WM_LBUTTONDBLCLK    '515 restore form window
         Me.WindowState = vbNormal
         Result = SetForegroundWindow(Me.hwnd)
         Me.Show
        Case WM_RBUTTONUP        '517 display popup menu
         Result = SetForegroundWindow(Me.hwnd)
         Me.PopupMenu mnuPopUp
       End Select
     End If
望给与提示!谢谢!

Answer 1

现在的CSDN人气这么差!诶!维思人...

Answer 2

这样的方法在MDI窗体是不行的～

Answer 3

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Answer 4

Jneu(沧海桑田):
怎么给出了一半啊.

Answer 5

Jneu(沧海桑田):很高兴又见到你

Answer 6

Jneu(沧海桑田):万望Jneu兄指教!