



Помогите![]()
![]()
![]()
Надо что бы прога считывала с ListBox и создавала PopUp Menu...
как сделать когда меню создается, что бы при нажатии на элемент меню исполнялся определенный код... Заранее спасибо
Хакер писал(а):Реализуется при помощью массива пунктов меню. Массив растягивается до нужного размера и должным образом заполняется.
Dim mMnu(5) as integer
Private Sub Command1_Click()
Static n As Integer
n = n + 1
Load mSubMenu(n)
mSubMenu(n).Caption = "Sub Menu " & n
End Sub
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 66