Menü Öğesine Hızlandırıcı Tuş Atama Hakkında (VBA/ActiveX)

< 1 dakika okuma

İçindekiler

Menülere hızlandırıcı tuşlar ekleyin

AutoCAD ActiveX/VBA aracılığıyla bir menü öğesine kısayol tuşu atamak için şunu kullanın:EtiketVerilen menü öğesinin özelliği.

Hızlandırıcı tuş belirtmek için, etiketin içine, hızlandırıcı olarak kullanılacak karakterin hemen önüne bir ampersand (&) işaretinin ASCII karşılığını ekleyin. Örneğin, Chr(Asc(“&”)) + “Edit” etiketi, “E” karakteri hızlandırıcı tuş olarak kullanılarak “Edit” şeklinde görüntülenecektir.

Menülere hızlandırıcı tuşlar ekleyin #

Bu örnek, hem “TestMenu” hem de “Open” menüleri için kısayol tuşları ekler. “TestMenu” menüsü için kısayol tuşu olarak “s”, “Open” menüsü için ise “o” tuşu kullanılır.

Sub Ch6_AddAMenuItem () Dim currMenuGroup As AcadMenuGroup Set currMenuGroup = ThisDrawing . Başvuru . MenüGruplar . Ürün ( 0 ) 
  
  

 'Yeni menüyü oluştur'
 Dim newMenu As AcadPopupMenu
 Set newMenu = currMenuGroup.Menus.Add _
 ("Te" + Chr(Asc("&")) + "stMenu")

 ' Yeni menüye
  bir menü öğesi ekleyin Dim newMenuItem As AcadPopupMenuItem Dim openMacro As String ' Makroya "ESC ESC _open"in VBA karşılığını atayın  
  
 
 openMacro = Chr(3) + Chr(3) + "_open "

 Set newMenuItem = newMenu.AddMenuItem _
 (newMenu.count + 1, Chr(Asc("&")) _
 + "Aç", openMacro)

 Menüyü menü çubuğunda görüntüle 
 newMenu.InsertInMenuBar_ (
  ThisDrawing.Application.menuBar.count + 1 ) End Sub