Изопропилможно и поинтереснее сделать...
Ну, интересно когда результат интересный (картинка прилагается).
Для начала понял что
.Net позволяет сабклассить окно Help без глюков . В VB6 сабклассинг help-а вылетал.
Здесь удалось допилить идею.
1) Привязать ширину ребара к ширине help-формы (отслеживаю WM_SIZE help формы)
2) Привязать высоту ребара к высоте тулбара (опять же по WM_SIZE help формы)
1.
rbBand.cyMinChild = crcToolbar.Bottom + 2 'по фактической высоте Toolbar
3) Ну и наконец добавить свою кнопку "Themes" с меню (работающую) для настройки тематики хэлпа
Вот с последним конечно жестоко, стоко нового узнал.
В качестве меню кнопки решил использовать .Net ContextMenu (ну не стрип естественно)
А вот ленюсь я их через API рисовать.
1-я возникшая проблема:
Код сначала был в публичном модуле, где s_Help (класс сабклассинга) был объявлен как Public
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub s_Help_CallBackWndProc(ByRef m As System.Windows.Forms.Message, ByRef Cancel As Boolean) _
Handles s_Help.CallBackWndProc
Case WM_NOTIFY
Dim uNMHDR As NMHDR = CType(Marshal.PtrToStructure(m.LParam, GetType(NMHDR)), NMHDR)
Select Case uNMHDR.code
Case TBN_DROPDOWN
Dim nmTB As NMTOOLBAR = _
CType(Marshal.PtrToStructure(m.LParam, GetType(NMTOOLBAR)), NMTOOLBAR)
If nmTB.iItem = 1001 Then 'кнопка Interface
'только виста+темы, в остальных случаях нет кнопки
Dim pt As POINTAPI
pt.x = nmTB.rcButton.Left
pt.y = nmTB.rcButton.Bottom
ClientToScreen(nmTB.hdr.hwndFrom, pt)
'Form1.Visible = True 'для проверки чего происходит
TrackPopupMenu(Form1.menu_HelpStyle.Handle, 0,
pt.x, pt.y, 0, Form1.Handle)
Cancel = True
End If
Я то привык что Form1 это Form1 и обращаться к ней прямолинейно из любого места кода (напр. из сабклассинга),
меню выводит, но что-то в Form1 глючит.
Хорошо догадался Form1.Visible=true сделать,
понял что он гад мне второй экземпляр Form1 накатал.
Т.е. получается что если в другом потоке и вне класса Form1, он делает новый экземпляр Form1.
Ладно, бог с ним. Запихнул сабклассинг хэлпа внутрь Class Form1.
Получилось
1.
2.
TrackPopupMenu(Me.menu_HelpStyle.Handle, 0,
pt.x, pt.y, 0, Me.Handle)
Он начал ругаться на то что я пытаюсь добраться до Me (Form1) из другого потока.
Почитал
How to: Make Thread-Safe Calls to Windows Forms Controls
Сделал код по типу (взят из примера по ссылке)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
SetPopup(pt.x, pt.y)
...
' This delegate enables asynchronous calls for setting
Delegate Sub SetPopupCallback(ByVal [x] As Integer, ByVal [y] As Integer)
Private Sub SetPopup(ByVal [x] As Integer, ByVal [y] As Integer)
' InvokeRequired required compares the thread ID of the
' calling thread to the thread ID of the creating thread.
' If these threads are different, it returns true.
If Me.textBox1.InvokeRequired Then
Dim d As New SetPopupCallback(AddressOf SetPopup)
Me.Invoke(d, New Object() {[x], [y]})
Else
TrackPopupMenu(Me.menu_HelpStyle.Handle, 0,
[x], [y], 0, Me.Handle)
End If
End Sub
Получилось, но следующая проблема:
3-я возникшая проблема:
Ну, если кто с TrayNotify работал, то меня поймет.
TrackPopupMenu function
Внизу пример:
1.
2.
3.
4.
SetForegroundWindow(hDlg);
// Display the menu
TrackPopupMenu( hSubMenu,
Но SetForegroundWindow выносит окно- хозяина ContextMenu (а у меня сначала была Form1) поверх окна help, что мне не надо.
А иначе нажал на меню и все "подвисло" - пока мышку в сторону не отодвинул.
Не вариант.
Уже пожалел, что позарился на Net.Сontext Menu
Но правда добил.
Сунул ContextMenu в отдельную форму.
Правда пришлось попотеть,
1) чтоб не больше одного экземпляра -слово New использовать в коде вызова не стал
2) зато пришлось добавить New() в код этой формы и оттуда инициализировать меню- при таком "вызове" Form_Load не срабатывает.
3) Ну, т.е. единственная форма FormHelper запускается вместе с первым вызовом меню, а убивается вместе с потоком - а поток связан с окном Help-а:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Case TBN_DROPDOWN
...
'FormHelper.Visible = True 'для проверки чего происходит
FormHelper.Tag = CType(m.HWnd, IntPtr) 'hwnd хэлпа
TrackPopupMenu(FormHelper.menu_HelpStyle.Handle, 0,
pt.x, pt.y, 0, FormHelper.Handle)
Cancel = True
...в форме FormHelper
Public Sub New()
InitializeComponent()
For Each menu_item As MenuItem In menu_HelpStyle.MenuItems
AddHandler menu_item.Click, AddressOf MenuItem_Click
Next
...
Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
For Each menu_item As MenuItem In menu_HelpStyle.MenuItems
menu_item.Checked = False
Next
CType(sender, MenuItem).Checked = True
Select Case CType(sender, MenuItem).Text
Case "&Communications"
params.m_HelpStyle = "Communications"
Case "&Media"
...
Хотел ее честно грохать после каждого вызова меню (после закрытия Context меню), но не получилось.
MenuItem_Click к сожалению срабатывает после Menu_Complete, т.е.
если грохать по Menu_Complete, то
до MenuItem_Click дело не дойдет.
Как -то так...
