Как выделить меню bold'ом?

[Sedge]

Сабж. Поиск пока ничего не дал. Может не там ищу? :(

[GSerg]

Определённо не там.
http://bbs.vbstreets.ru/viewtopic.php?t=6807

[Sedge]

Хм. А можно ткнуть носом в соответствующую строчку кода?
Только без регионов и перересовки в стиле 3.11 8)

[GSerg]

Проперть ItemDefault.

[tyomitch]

У стандартного метода PopupMenu жирный пункт задаётся последним параметром - DefaultMenu:

Optional. Specifies the name of a menu control in the pop-up menu to display its caption in bold text. If omitted, no controls in the pop-up menu appear in bold.

[Sedge]

У стандартного метода PopupMenu жирный пункт задаётся последним параметром - DefaultMenu:

Optional. Specifies the name of a menu control in the pop-up menu to display its caption in bold text. If omitted, no controls in the pop-up menu appear in bold.

Я спрашивал про обычное меню. То, которое дизайнится на форме с использованием Menu Editor. C PopUp'ом-то все просто.

[Sedge]

Проперть ItemDefault.

SetMenuDefaultItem - кто бы мог подумать 8)
Разобрался, спасибо.

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

Option Explicit

Private Declare Function SetMenuDefaultItem Lib "user32" _
  (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPos As Long) As Long

Private Declare Function GetMenu Lib "user32" _
  (ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
  (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Sub Form_Load()
'
On Error GoTo eRes

'//------------------------------------------------------------------------------------
  Dim lMenuHwnd As Long, lSubMenuHwnd As Long
'//------------------------------------------------------------------------------------

lMenuHwnd = GetMenu(Me.hwnd)
lSubMenuHwnd = GetSubMenu(lMenuHwnd, 1)
lblActionRes.Caption = "SetMenuDefaultItem = " & SetMenuDefaultItem(lSubMenuHwnd, 0, 1)

Exit Sub
eRes:
  Call MsgBox(Err.Description)
End Sub


Только вот возник еще один вопрос, а можно ли сделать дефолтным пункт основного меню, из самого верхнего уровня, которое непосредственно на форме отображается? Я с параметрами поигрался - не получилось.

[GSerg]

Теоретически видимо да.
Только после этого нужно вызвать drawmenubar.
Если и так не получится, значит теоретически видимо нет

[Sedge]

Хех. Была ночь, глюки бегали по десктопу и нагло смеялись :)
Все заработало. И без DrawMenuBar.

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

    SetMenuDefaultItem(lMenuHwnd, 0, 1)