Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Меню Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам