Araç Çubuğuna Yeni Düğmeler Ekleme Hakkında (VBA/ActiveX)

Araç çubuğuna yeni bir araç çubuğu 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.

Araç çubuğuna yalnızca araç çubuğu görünürken düğmeler eklemelisiniz.

OAraç Çubuğu Düğmesi EkleBu yöntem, girdi olarak beş parametre alır: Index , Name , HelpString , Macro ve FlyoutButton .

İndeks

Index parametresi, yeni öğenin konumunu belirten bir tamsayıdır .Araç ÇubuğuAraç çubuğundaki öğe. İndeks, başlığın ardından araç çubuğundaki ilk konum olan sıfır (0) konumundan başlar. Yeni araç çubuğu düğmesini bir araç çubuğunun sonuna eklemek için, Index parametresini şu değere eşitleyin:SaymakAraç çubuğunun özelliği. (TheSaymakAraç çubuğunun özelliği, o araç çubuğundaki toplam araç çubuğu düğmesi sayısını temsil eder.

Bir araç çubuğu düğmesi oluşturulduktan sonra, Index özelliği aracılığıyla düğmenin dizinini değiştiremezsiniz. Mevcut bir araç çubuğu düğmesinin dizinini değiştirmek için, araç çubuğu düğmesini silip farklı bir konuma yeniden eklemeniz veya uygun bir yerleşim elde edilene kadar çevresindeki araç çubuğu düğmelerini eklemeniz veya silmeniz gerekir.

İsim

Bir ad, araç çubuğu düğmesini tanımlayan bir karakter dizisidir. Bu karakter dizisi, tire (-) veya alt çizgi (_) dışında noktalama işareti içermeyen alfanümerik karakterlerden oluşmalıdır. İmleç araç çubuğu düğmesinin üzerine getirildiğinde bu karakter dizisi ipucu olarak görüntülenir.

Bir araç çubuğu düğmesi oluşturulduktan sonra, Ad parametresini kullanarak adını değiştirebilirsiniz .

Yardım Dizisi

Yardım metni, kullanıcının bir menü öğesini seçmek için vurguladığında AutoCAD durum çubuğunda görünen metin dizisidir.

Bir araç çubuğu düğmesi oluşturulduktan sonra, HelpString parametresini kullanarak düğmenin yardım metnini değiştirebilirsiniz .

Makro

Makro, bir araç çubuğu düğmesi seçildiğinde belirli eylemleri gerçekleştiren bir dizi komuttur. Araç çubuğu makroları, bir görevi gerçekleştiren tuş vuruşlarının basit kayıtları olabileceği gibi, komutların, AutoLISP, DIESEL veya ActiveX programlama kodunun karmaşık bir kombinasyonu da olabilir.

Bir araç çubuğu düğmesi oluşturulduktan sonra, Makro parametresini kullanarak düğmenin makrosunu değiştirebilirsiniz .

AçılırDüğme

FlyoutButton parametresi , yeni düğmenin açılır menü düğmesi olup olmayacağını belirten isteğe bağlı bir bayraktır. Yeni düğme açılır menü düğmesi olacaksa, bu parametre TRUE olarak ayarlanmalıdır. Yeni düğme açılır menü düğmesi olmayacaksa, bu parametre FALSE olarak ayarlanabilir veya göz ardı edilebilir.

Sub Ch6_AddButton ( ) Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item ( 0 )​​​​​ 
  
  

 'Yeni araç çubuğunu oluştur'
 Dim newToolbar As AcadToolbar
 Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")

 ' Yeni araç çubuğuna
  bir düğme ekle Dim newButton As AcadToolbarItem Dim openMacro As String  
  

 'Makroya "ESC ESC _open" komutunun VB karşılığını atayın.'
 openMacro = Chr(3) + Chr(3) + "_open "
 Set newButton = newToolbar.AddToolbarButton _
 ("", "YeniDüğme", "Dosya aç.", makro aç)
Son Alt Yordam