Revision: 44723
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at April 16, 2011 07:33 by cadnet
Initial Code
Try
'Load Main CUI Name
Dim mainCuiFiles As String = Application.GetSystemVariable("MENUNAME")
mainCuiFiles += ".cui"
Dim cs As New CustomizationSection(mainCuiFiles)
'set default directory for your custom cui
Dim pwgscCui As String = DEFAULTDIR + "pwgsc.cui"
'Find out the current workspace settings name
Dim ws As String = Application.GetSystemVariable("WSCURRENT")
' check to see if partial cui is loaded
If cs.PartialCuiFiles.Contains(pwgscCui) = False Then
'if your cui isn't loaded it and refresh all workspaces
Application.MenuGroups.Load(pwgscCui)
'refresh current workspace to show toolbars and menu's
Application.SetSystemVariable("WSCURRENT", ws)
Else
'refresh current workspace to show toolbars and menu's
Application.SetSystemVariable("WSCURRENT", ws)
End If
Catch Ex As System.Exception
System.Windows.Forms.MessageBox.Show(Ex.ToString, "ERROR LOADING")
End Try
Initial URL
Initial Description
Initial Title
Loading Partial CUI's at Startup
Initial Tags
Net
Initial Language
C#