Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум на Исходниках.RU > Работа с меню > Как создать меню во время выполнения про


Автор: Dufa 30.03.04, 15:45
Создайте меню с любым именем, а внего вложите подменю с именем mnu

<{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}>
    Private Sub Command1_Click()
       Load mnu(mnu.Count)
       mnu(mnu.Count - 1).Caption = mnu.Count - 1
       mnu(mnu.Count - 1).Visible = True
    End Sub

Powered by Invision Power Board (https://www.invisionboard.com)
© Invision Power Services (https://www.invisionpower.com)