IManBrowseCmd and Tabs

System

I want to show the IManBrowseCmd so that a Document Folder can be chosen.

The library design is workspaces have tabs and the tabs have document folders.

The code below shows the dialog, but doesn't show the tabs.

How do I make IManBrowseCmd show the tabs?


Dim objContext As New IMANEXTLib.ContextItems
Dim nrtSession As nrtSession


Call objContext.Add("ParentWindow", Me.hWnd)


Call objContext.Add("SelectedIManSession", m_objSession)
Call objContext.Add("MultiFileSelection", False)
Call objContext.Add("IManExt2.BrowseCmd.WindowTitle", "Select Workspace Folder")

Call objContext.Add("IManExt2.BrowseCmd.SelectableObjectTypes", imTypeDocumentFolder)

Dim objCmd As New IMANEXT2Lib.IManBrowseCmd

Call objCmd.Initialize(objContext)
Call objCmd.Update

If objCmd.Status = nrActiveCommand Then

Call objCmd.Execute

End If



Thanks
Andrew Bartie

guido1

Your code currently restricts the selectable types to only those of type IManDocumentFolder

The

IManExt2.BrowseCmd.SelectableObjectTypes

context item requires a safe array of types that you would like to be selectable. The available types are listed in the imObjectType enumeration

In other words, you could amend your (VB?) code like so to display only IManDocumentFolder and IManTab types:

Dim selectableTypes(1) As imObjectType 
selectableTypes(0) = imTypeDocumentFolder
selectableTypes(1) = imTypeTab
Call objContext.Add("IManExt2.BrowseCmd.SelectableObjectTypes", selectableTypes)

Obviously increase the size of the array and populate accordingly if you intend to make more types selectable