Temas
Tema |
Detalle |
Definir Ítems de Menú |
Los ítems de menú son definidos al responder al evento GetMenuItems . La primera vez que este evento es llamado, MenuName es una cadena vacía, representado el menú de nivel superior. Para Add-In simple con sólo una opción de menú puede devolver una cadena
Function EA_GetMenuItems(Repository as EA.Repository, MenuLocation As String, MenuName As String) As Variant EA_GetMenuItems = "&Joe's Add-In" End Function
|
Definiendo Sub-menús |
Para definir sub-menús, prefije un menú padre con un guion. Los padres y sub-ítems son definidos como a continuación:
Function EA_GetMenuItems(Repository as EA.Repository, MenuLocation As String, MenuName As String) As Variant Select Case MenuName Case "" 'Parent Menu Item EA_GetMenuItems = "-&Joe's Add-In" Case "-&Joe's Add-In" 'Define Sub-Menu Items using the Array notation. 'In this example, "Diagram" and "Treeview" compose the "Joe's Add-In" sub-menu. EA_GetMenuItems = Array("&Diagram", "&Treeview") Case Else MsgBox "Invalid Menu", vbCritical End Select End Function
|
Definiendo más Sub-menús |
De manera similar, puede definir más sub-ítems:
Function EA_GetMenuItems(Repository as EA.Repository, MenuLocation As String, MenuName As String) As Variant Select Case MenuName Case "" EA_GetMenuItems = "-Joe's Add-In" Case "-Joe's Add-In" EA_GetMenuItems = Array("-&Diagram", "&TreeView") Case "-&Diagram" EA_GetMenuItems = "&Properties" Case Else MsgBox "Invalid Menu", vbCritical End Select End Function
|
Activar/Desctivar opciones de menú |
Para activar o desactivar opciones de menú de manera predeterminada, puede utilizar este método para mostrar ítems particulares al usuario:
Sub EA_GetMenuState(Repository As EA.Repository, Location As String, MenuName As String, ItemName As String, IsEnabled As Boolean, IsChecked As Boolean) Select Case Location Case "TreeView" 'Always enable Case "Diagram" 'Always enable Case "MainMenu" Select Case ItemName Case "&Translate", "Save &Project" If GetIsProjectSelected() Then IsEnabled = False End If End Select End Select IsChecked = GetIsCurrentSelection() End Sub
|