Контекстное меню и заголовок формы

[Nikonik]

В VB6 есть такое недоразумение как связь контекстного меню с типом формы.

Поясняю:
1 ) я хочу создать контекстное меню и знаю как это сделать
2) я хочу чтобы форма былa Border-style: None.

Но несморя на то что единствое меню созданое в menu editor невидимое все равно форма получается в окошке (что интересно - border-style остается None).

С какой-то стороны я конечно понимаю разработчиков -вдруг программисту захочется в ходе выполнения сделать это меню видимым, но с другой - я не знаю как мне сделать контекстное меню.
Конечно можно создать дополнительную форму и на ней сделать меню, но во-первых это не очень красиво, во-вторых приложение при вызове меню из другой формы подвисает приблизительно на полсекунды.

[Antonariy]

Создай юзерконтрол с меню и положи его на форму.

[Matew]

..., а лучше возьми готовый с vbrussian

[Antonariy]

..., если хочешь лишней мороки.

[keks-n]

Nikonik
Лечится так:

Код: Выделить всё


Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Sub Form_Load()
SetWindowLong hWnd, GWL_STYLE, ((GetWindowLong(hWnd, GWL_STYLE) Or &HC50000) Xor &HC50000)
SetWindowRgn hWnd, CreateRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY), True

End Sub


[Kovu]

А ещё есть TrackPopupMenu.

[Nikonik]

keks-n, спасибо, довольно интересное решение заголовок формы просто отрезать

[keks-n]

Он насамом деле не отрезается... А изменяется стиль окна, который отвечает за его наличие. SetWindowRgn-служебная вещь... Нужна, чтобы данное изменение вступило в силу... Ты же его в событии Resize не вызываешь.