Antonariyно чтобы невидимое само собой показывалось - нет.
Я нарвался. Tray+форма которая Me.Visible = False в Load (с некоторыми махинациями, чтоб не мелькала при загрузке, не суть)
+ код вызова меню из трея.
1.
2.
3.
4.
5.
6.
7.
8.
Case WM_MySysTrayNotify 'уведомления Tray -вместо WM_MOUSEMOVE
Dim lw_lparam As Integer = LOWORD(m.LParam)
Select Case lw_lparam
Case WM_RBUTTONUP 'display popup menu
'Debug.Print("WM_RBUTTONUP")
SetForegroundWindow(Me.Handle)
TrackPopupMenu(Me.menu_App.Handle, TPM_LEFTBUTTON,
Control.MousePosition.X, Control.MousePosition.Y, 0, Me.Handle)
При показанном меню (при том что сработала SetForegroundWindow),
нажимаем ESC (меню закрывается), затем ENTER
и моя Me, которая .Visible = False мерзким образом появлялась на экран.
В VB6 такого глюка не было, в .Net возник.
Вылечил так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Const WM_QUERYOPEN = &H13
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Select Case m.Msg
...
Case WM_QUERYOPEN
'Debug.WriteLine("WM_QUERYOPEN")
m.Result = New IntPtr(0) 'the window about to restore,should return FALSE to prevent from being opened
Exit Sub
...
Case Else
End Select
' Forward message to base WndProc.
MyBase.WndProc(m)
End Sub
Уж не знаю насколько это поможет автору,
насколько понимаю автор таки показывает форму на экран, моя затычка абсолютна, но м.б. какие условия наложить.
