15
Декабрь
2008
Добавить пункт в меню во время выполнения программы
Добавить пункт в меню во время выполнения программы.
Option Explicit Private Sub Command1_Click() If mnuADD(0).Visible Then Load mnuADD(mnuADD.Count) With mnuADD(mnuADD.Count - 1) .Caption = Text1.Text .Visible = True End With Else mnuADD(0).Caption = Text1.Text mnuADD(0).Visible = True End If End Sub