İçindekiler
Araç çubuğuna açılır menü düğmesi eklemek için şunu kullanın:Araç Çubuğu Düğmesi EkleBu yöntem yeni bir nesne oluşturur.Araç Çubuğu ÖğesiNesneyi seçer ve belirlenen araç çubuğuna ekler.
OAraç Çubuğu Düğmesi EkleBu metot, girdi olarak beş parametre alır: Index , Name , HelpString , Macro ve FlyoutButton . FlyoutButton parametresini TRUE olarak ayarlayarak , yeni düğme açılır menü düğmesi olarak oluşturulacaktır. Bu metottan döndürülen değer, yeni açılır menü araç çubuğu olacaktır. Açılır menü araç çubuğu daha sonra normal bir araç çubuğu gibi doldurulabilir.
Açılır menü düğmesi oluşturun #
Bu örnek iki araç çubuğu oluşturur. Birinci araç çubuğu bir açılır düğme içerir. İkinci araç çubuğu, birinci araç çubuğundaki açılır düğmeye bağlıdır.
Sub Ch6_AddFlyoutButton ( ) Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application._MenuGroups.Item ( 0 ) 'İlk araç çubuğunu oluştur' Dim FirstToolbar As AcadToolbar Set FirstToolbar = currMenuGroup.Toolbars. _ "İlkAraç Çubuğunu Ekle" ' Menü çubuğundaki ilk menüye açılır bir düğme ekleyin Dim FlyoutButton As AcadToolbarItem Set FlyoutButton = FirstToolbar . AddToolbarButton _ ( "" , "Açılır" , "Açılır düğmeyi gösterir" , _ "AÇ" , True ) 'İkinci araç çubuğunu oluşturun. Bu, şuraya eklenecektir: ' Açılır düğme aracılığıyla ilk araç çubuğu . Dim SecondToolbar As AcadToolbar Set SecondToolbar = currMenuGroup . Toolbars . _ Add ( "SecondToolbar" ) 'Sonraki araç çubuğuna bir düğme ekle' Dim newButton As AcadToolbarItem Dim openMacro As String ' Makroya "ESC ESC _open" ifadesinin VB karşılığını atayın openMacro = Chr ( 3 ) + Chr ( 3 ) + "_open " Set newButton = SecondToolbar . AddToolbarButton _ ( "" , "NewButton" , "Dosya aç." , openMacro ) 'İkinci araç çubuğunu açılır menüye ekleyin ' Birinci araç çubuğundaki düğme FlyoutButton.AttachToolbarToFlyout currMenuGroup.Name , _ SecondToolbar.Name 'Birinci araç çubuğunu göster, ikinci araç çubuğunu gizle' FirstToolbar.Visible = True İkinciAraçÇubuğu.Görünür = Yanlış Son Alt Yordam
