[решено] Присвоение идентификаторов пунктам контекстного меню.

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

[решено] Присвоение идентификаторов пунктам контекстного меню.

Атос

Новый участник

Сообщения: 37
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: Атос
Дата: 05-07-2017

Привет.

У меня есть GUI, и в нём создаётся динамическое контекстное меню.
Проблема в том, что не получается присвоить к пунктам меню идентификаторы.
Как можно присвоить идентификаторы?
Что здесь можно придумать?

Код:

Local $hGUI = GUICreate('111', 350, 400)
Local $m000 = GUICtrlCreateContextMenu()
Local $m001 = GUICtrlCreateMenu("111", $m000)
Local $m002 = GUICtrlCreateMenu("222", $m001)
Local $m003 = GUICtrlCreateMenu("333", $m002)
Local $m004 = GUICtrlCreateMenu("444", $m003)
Local $t1, $t2, $t3, $t4, $kk, $m , $mm
For $i = 1 To 10
$m = GUICtrlCreateMenuItem('A' & $i, $m001, 3)
; Local Assign("m & $i = GUICtrlCreateMenuItem('a' & $i, $m001)
Assign($m, 'mm' & $i, 2)
; Local $zv = $m & $i
; $t1 = $t1 & 'm' & $i
Next
For $i = 11 To 20
Local $m = GUICtrlCreateMenuItem('B' & $i, $m002, 12)
$t2 = $t2 & 'm' & $i
Next
For $i = 21 To 30
Local $m = GUICtrlCreateMenuItem('C' & $i, $m003)
$t3 = $t3 & 'm' & $i
Next
For $i = 31 To 40
Local $m = GUICtrlCreateMenuItem('D' & $i, $m004)
$t4 = $t4 & 'm' & $i
Next
GUISetState()
While 1
Local $hMsg = GUIGetMsg(1)
Select
Case $hMsg[0] = -3
Exit
Case $hMsg[0] = $m
MsgBox(0, '', $m)
EndSelect
WEnd

Отправлено: 08:26, 05-07-2017