AddCustomSubMenu Method
Description
Adds a custom submenu item to an existing top menu using the Microsoft Office Project Server 2003 security object.
Syntax
Function AddCustomSubMenu( _
ByVal lParentMenuID As Long, _
ByVal bstrMenuName As String, _
ByVal bstrMenuDesc As String _
) As Long
Parameters
| Parameter | Description |
|---|---|
lParentMenuID |
Required Long value from MSP_WEB_SECURITY_MENUS.WSEC_MENU_ID for the parent top menu for this submenu. |
bstrMenuName |
Required String. Name of the new submenu. |
bstrMenuDesc |
Required String. Description of the new submenu. |
Return Value
The AddCustomSubMenu method returns HRESULT as a Long (4-byte integer) value.
Example
The following example is for Microsoft Visual Basic 6.0.
Dim lResult as Long
Set oSec = CreateObject("PjSvrSecurity.PjSvrSecurity")
oSec.SetDBConnection "ProjectServer"
lResult = oSec.AddCustomSubMenu(2, "Menu Item", "Item Description")
Set oSec = Nothing