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


Оставить комментарий

Я не робот.