By default, some of the toolbars are disabled within the toolsfile. If a user has permission we enable one or more toolbars. How do I enable a toolbar via code? I have the following function:
which identifies the correct toolbar but there is no enabled property to set. Any ideas how to do this?
Many thanks
| ' Name: EnableToolbar |
| ' Purpose: Enables the toolbar. |
| ' Parameters: radEditor - The rad editor. |
| ' strToolbarName - The name of the toolbar to enable. |
| ' Returns: Nothing. |
| Public Shared Sub EnableToolbar(ByRef radEditor As RadEditor, ByVal strToolbarName As String) |
| Dim radEditorToolGroupCollection As EditorToolGroupCollection |
| Dim radEditorToolGroup As EditorToolGroup = Nothing |
| Dim l_bToolbarFound As Boolean = False |
| ' Read the collection of tools. |
| radEditorradEditorToolGroupCollection = radEditor.Tools |
| ' Iterate through the collection. |
| For Each radEditorToolGroup In radEditorToolGroupCollection |
| If (radEditorToolGroup.Tag = strToolbarName) Then |
| ' I have found the toolbar, but how do I enable it? |
| End If |
| Next |
| End Sub |
which identifies the correct toolbar but there is no enabled property to set. Any ideas how to do this?
Many thanks
