Страница: 1 |
Страница: 1 |
Вопрос: Меню
Добавлено: 11.03.07 09:32
Автор вопроса: Bonapart | Web-сайт:
вот файл form1.frm
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
ClientHeight = 45
ClientLeft = 150
ClientTop = 840
ClientWidth = 1350
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 45
ScaleWidth = 1350
StartUpPosition = 3 'Windows Default
Begin VB.Menu mnu1
Caption = "1"
End
Begin VB.Menu mnu2
Caption = "2"
Begin VB.Menu mnus1
Caption = "sub1"
End
Begin VB.Menu mnus2
Caption = "sub2"
WindowList = -1 'True
End
Begin VB.Menu mnus3
Caption = "sub3"
End
End
Begin VB.Menu mnu3
Caption = "3"
End
Begin VB.Menu mnu4
Caption = "4"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Public s As String
Private Sub Form_Load()
sMenu = GetSubMenu(GetSubMenu(GetMenu(Form1.hwnd), 1), 1)
Path = "C:\Program Files\Microsoft Visual Studio\"
s = Dir(Path)
Do While s <> ""
AppendMenu sMenu, 0, 0, s
s = Dir
Loop
End Sub
Как сделать обработку событий на новых пунктах меню, или какой нибудь другой способ подскажите
Ответы
Всего ответов: 5
Номер ответа: 1
Автор ответа:
EUGY
Вопросов: 0
Ответов: 454
Профиль | | #1
Добавлено: 11.03.07 17:18
ловить WM_COMMAND в окне формы.
wParam
...If the message is from a menu, this value is zero. The low-order word specifies the identifier of the menu item...
Номер ответа: 2
Автор ответа:
Bonapart
ICQ: 175256
Вопросов: 32
Ответов: 108
Web-сайт:
Профиль | | #2
Добавлено: 12.03.07 07:30
КАК?
Номер ответа: 3
Автор ответа:
Viper
ICQ: 249094859
Вопросов: 0
Ответов: 310
Профиль | | #3
Добавлено: 12.03.07 10:17
Сабклассинг
Номер ответа: 4
Автор ответа:
Bonapart
ICQ: 175256
Вопросов: 32
Ответов: 108
Web-сайт:
Профиль | | #4
Добавлено: 12.03.07 10:40
А кода пример нельзя дать
Номер ответа: 5
Автор ответа:
Viper
ICQ: 249094859
Вопросов: 0
Ответов: 310
Профиль | | #5
Добавлено: 12.03.07 14:06
Ну нельзя. так нельзя, а то уж хотел пример найти...