Hi,
I am using VS2010 on a WIN7 x64 PC and have been trying to get an app with with commandbars to run on a Windows XP x86 PC. Despite having Platform set to x86 along with the advanced compile options I still get "system.invalidoperationexception" when I run on the XP system. I have included the CommandBars and Controls Merge Modules and OCX files in the Setup.
I have also included the controls licnese info in the load sub witht he exception of the actual key below of Blaa blaa blaa:
ControlsGlobalSettings = New XtremeSuiteControls.SuiteControlsGlobalSettings()
ControlsGlobalSettings.License = "Suite Controls Copyright (c) 2003-2008 Codejock Software" + ControlChars.CrLf + "PRODUCT-ID: " + "Codejock.Controls.ActiveX.v12.0" + ControlChars.CrLf + "VALIDATE-CODE: Blaa blaa blaa"
CommandBarsGlobalSettings = New XtremeCommandBars.CommandBarsGlobalSettings()
CommandBarsGlobalSettings.License = "CommandBars Control Copyright (c) 2003-2008 Codejock Software" + ControlChars.CrLf + "PRODUCT-ID: " + "Codejock.CommandBars.ActiveX.v12.0" + ControlChars.CrLf + "VALIDATE-CODE: Blaa blaa blaa"
Since I was haing trouble with the main application I created a simple plain app with only CommandBars and Status Bar... What the heck do I need to do to install and run this app?
Thank you in advance,
Tim
Public Class Test
Public CommandBarsGlobalSettings As XtremeCommandBars.CommandBarsGlobalSettings
Public WithEvents StatusBar As XtremeCommandBars.StatusBar
Public ControlsGlobalSettings As XtremeSuiteControls.SuiteControlsGlobalSettings
Public Const ID_INDICATOR_STATUS As Short = 100
Public Const ID_INDICATOR_WEBSERVER As Short = 101
Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ControlsGlobalSettings = New XtremeSuiteControls.SuiteControlsGlobalSettings()
ControlsGlobalSettings.License = "Suite Controls Copyright (c) 2003-2008 Codejock Software" + ControlChars.CrLf + "PRODUCT-ID: " + "Codejock.Controls.ActiveX.v12.0" + ControlChars.CrLf + "VALIDATE-CODE: akasdjkasdjkadjal"
CommandBarsGlobalSettings = New XtremeCommandBars.CommandBarsGlobalSettings()
CommandBarsGlobalSettings.License = "CommandBars Control Copyright (c) 2003-2008 Codejock Software" + ControlChars.CrLf + "PRODUCT-ID: " + "Codejock.CommandBars.ActiveX.v12.0" + ControlChars.CrLf + "VALIDATE-CODE: QQasdkjasoqwdnhq"
CommandBarsGlobalSettings.Office2007Images = My.Application.Info.DirectoryPath & "\HALXT.dll"
LoadIcons()
With CommandBars
.VisualTheme = XtremeCommandBars. XTPVisualTheme.xtpThemeRibbon
.EnableOffice2007Frame( True)
.DeleteAll()
.StatusBar.ShowSizeGripper = True
.EnableCustomization( False)
.ShowTabWorkspace( True)
.PaintManager.RefreshMetrics()
.RecalcLayout()
End With
CreateStatusBar()
End Sub
Private Sub LoadIcons()
CommandBars.Options.UseSharedImageList = False
Dim resDir As String = My.Application.Info.DirectoryPath & "\"
CommandBars.Icons.AddIcons( Me.IconManager.Icons)
CommandBars.Icons.LoadBitmap(resDir + "iPhone_16.png", ID_INDICATOR_STATUS, XtremeCommandBars.XTPImageState.xtpImageNormal)
CommandBars.Icons.LoadBitmap(resDir + "Internet_16.png", ID_INDICATOR_WEBSERVER, XtremeCommandBars.XTPImageState.xtpImageNormal)
Dim ToolTipContext As XtremeCommandBars.ToolTipContext = Nothing
ToolTipContext = CommandBars.ToolTipContext
ToolTipContext.Style = XtremeCommandBars. XTPToolTipStyle.xtpToolTipOffice2007
ToolTipContext.ShowTitleAndDescription( True, XtremeCommandBars.XTPToolTipIcon.xtpToolTipIconNone)
ToolTipContext.SetMargin(2, 2, 2, 2)
ToolTipContext.MaxTipWidth = 180
End Sub
Private Sub CreateStatusBar()
Dim Pane As XtremeCommandBars.StatusBarPane
StatusBar = CommandBars.StatusBar
StatusBar.Visible = True
Pane = StatusBar.AddPane(ID_INDICATOR_WEBSERVER)
With Pane
.IconIndex = 101
.Text = "Stopped"
.ToolTip = "Web Server Status"
.Enabled = False
.Button = False
.SetPadding(8, 0, 8, 0)
End With
Pane = StatusBar.AddPane(ID_INDICATOR_STATUS)
With Pane
.IconIndex = 100
.Text = ""
.ToolTip = "Status Messages"
.Value = " "
.Button = False
.Style = XtremeCommandBars. XTPStatusPaneStyle.SBPS_STRETCH Or XtremeCommandBars.XTPStatusPaneStyle.SBPS_NOBORDERS
.SetPadding(8, 0, 50, 0)
End With
Pane = StatusBar.AddPane(0)
Pane.SetPadding(0, 0, 0, 0)
StatusBar.RibbonDividerIndex = 2
StatusBar.ToolTipContext.Style = XtremeSuiteControls. XTPToolTipStyle.xtpToolTipOffice2007
StatusBar.EnableCustomization( True)
End Sub
End Class
|