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

Запись опубликована on 15.12.2008 at 9:06 и размещена в рубрике: Меню. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



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

Я не робот.