VBNet - Форум

Вопрос: Меню Добавлено: 11.03.07 09:32

Автор вопроса: Bonapart | Web-сайт: team16.tut.su | ICQ: 175256

вот файл form1.frm

VERSION 5.00
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-сайт: team16.tut.su Профиль \| \| #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-сайт: team16.tut.su Профиль \| \| #4	Добавлено: 12.03.07 10:40
	А кода пример нельзя дать Ответить

Номер ответа: 5 Автор ответа: Viper ICQ: 249094859 Вопросов: 0 Ответов: 310	Профиль \| \| #5	Добавлено: 12.03.07 14:06
	Ну нельзя. так нельзя, а то уж хотел пример найти... Ответить

Страница: 1 |