Object Referenced Error When calling the Windows Form during Runtime

Question

Hi,
I am getting  Object reference errors when running windows form during runtime. In debugging mode in MS Visual studio 2005, I am not getting this error. I'm calling the window form from menu and called the window in a thread as suggested in one of forums . I don't see anyone in the forum mentioned this problem I have. Any help would be deeply appreciated. Below are the error and code samples.
ERROR Message
Exception Text **************
System.NullReferenceException: Object reference not set to an instance of an object.
   at Project1.Loadxml.Loadxml_Load(Object sender, EventArgs e)
   at System.Windows.Forms.Form.OnLoad(EventArgs e)
   at System.Windows.Forms.Form.OnCreateControl()
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl()
   at System.Windows.Forms.Control.WmShowWindow(Message& m)
   at System.Windows.Forms.Control.WndProc(Message& m)
   at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
   at System.Windows.Forms.ContainerControl.WndProc(Message& m)
   at System.Windows.Forms.Form.WmShowWindow(Message& m)
   at System.Windows.Forms.Form.WndProc(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Edited by: Albert Tio on Feb 16, 2011 9:55 AM

Answer 1

Here is the code.
Option Strict Off
Option Explicit On
Friend Class GetEvents
    Public WithEvents SBO_Application As SAPbouiCOM.Application
    Public SboGuiApi As SAPbouiCOM.SboGuiApi
    Public oForm As SAPbouiCOM.Form
    Public oDBDataSource As SAPbouiCOM.DBDataSource
    Public oCompany As SAPbobsCOM.Company
    Public RS As SAPbobsCOM.Recordset
    Public oPrev_Bank As String, oPrev_AcctType As String
    Public oLoadXml As Loadxml
    Public Sub SetApplication()
             'Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi
        ' by following the steps specified above, the following
        ' statment should be suficient for either development or run mode
        sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
        ' connect to a running SBO Application
        SboGuiApi.Connect(sConnectionString)
        ' get an initialized application object
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Public Sub SetCompany()
        Dim ret As Long
        Dim MsgStr As String
        Dim Cookie As String
        Dim ConnStr As String
        Try
            oCompany = New SAPbobsCOM.Company
            Cookie = oCompany.GetContextCookie
            ConnStr = SBO_Application.Company.GetConnectionContext(Cookie)
            '//before setting the SBO login context make sure the company is not connected
            If oCompany.Connected = True Then
                oCompany.Disconnect()
            End If
            ret = oCompany.SetSboLoginContext(ConnStr)
            If Not ret = 0 Then
                Exit Sub
            End If
            ret = oCompany.Connect
        Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
        MsgStr = ""
        If Not ret = 0 Then
            oCompany.GetLastError(ret, MsgStr)
            SBO_Application.MessageBox(MsgStr)
        Else
        End If
    End Sub
    Public Sub New()
        MyBase.New()
        ' set SBO_Application with an initialized application object
        SetApplication()
        SetCompany()
        AddMenuItems()
    End Sub
    Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent
        Dim myThread As New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf LoadXmlMainThread))
        Try
            If (pVal.MenuUID = "MySubMenu") And (pVal.BeforeAction = False) Then
                'SBO_Application.MessageBox("My sub menu item was clicked")
                '// Create a form to be launched in response to a click on the
                '// new sub menu item
                myThread.SetApartmentState(System.Threading.ApartmentState.STA)
                myThread.Start()
                'Loadxml.ShowDialog()
                            End If
        Catch ex As Exception
            SBO_Application.MessageBox("1." & ex.Message)
        End Try
        'If (pVal.MenuUID = "MyGoToMenu") And (pVal.BeforeAction = False) Then
        '    SBO_Application.MessageBox("My GoTo Menu was clicked")
        'End If
        'If (pVal.MenuUID = "MySecondGoToMenu") And (pVal.BeforeAction = False) Then
        '    SBO_Application.MessageBox("My Second GoTo Menu was clicked")
        'End If
    End Sub
    Private Sub LoadXmlMainThread()
        'Dim lLoadxml As New Loadxml
        Try
            oLoadXml = New Loadxml
            oLoadXml.WindowState = FormWindowState.Maximized
            oLoadXml.ShowInTaskbar = True
            oLoadXml.TopMost = True
            oLoadXml.Activate()
            Application.Run(oLoadXml)
        Catch ex As Exception
            SBO_Application.MessageBox("2." & ex.Message)
        End Try
    End Sub
    Private Sub AddMenuItems()
        '// Let's add a separator, a pop-up menu item and a string menu item
        Dim oMenus As SAPbouiCOM.Menus
        Dim oMenuItem As SAPbouiCOM.MenuItem
        Dim i As Integer '// to be used as counter
        Dim lAddAfter As Integer
        Dim sXML As String
        '// Get the menus collection from the application
        oMenus = SBO_Application.Menus
        'Save an XML file containing the menus...
        'sXML = SBO_Application.Menus.GetAsXML
        'Dim xmlD As System.Xml.XmlDocument
        'xmlD = New System.Xml.XmlDocument
        'xmlD.LoadXml(sXML)
        'xmlD.Save("c:
mnu.xml")
        Dim oCreationPackage As SAPbouiCOM.MenuCreationParams
        oCreationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)
        oMenuItem = SBO_Application.Menus.Item("43520") 'moudles'
        Dim sPath As String
        sPath = Application.StartupPath
        'sPath = sPath.Remove(sPath.Length - 3, 3)
        If sPath.EndsWith("\") = False Then
            sPath = sPath & "\"
        End If
        '// find the place in wich you want to add your menu item
        '// in this example I chose to add my menu item under
        '// SAP Business One.
        oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_POPUP
        oCreationPackage.UniqueID = "MyMenu01"
        oCreationPackage.String = "Unbridle Menu"
        oCreationPackage.Enabled = True
        oCreationPackage.Image = sPath & "unbridle.bmp"
        oCreationPackage.Position = 15
        oMenus = oMenuItem.SubMenus
        Try ' If the manu already exists this code will fail
            oMenus.AddEx(oCreationPackage)
            '// Get the menu collection of the newly added pop-up item
            oMenuItem = SBO_Application.Menus.Item("MyMenu01")
            oMenus = oMenuItem.SubMenus
            '// Create s sub menu
            oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING
            oCreationPackage.UniqueID = "MySubMenu"
            oCreationPackage.String = "Unbridle Monitoring"
            oMenus.AddEx(oCreationPackage)
        Catch er As Exception ' Menu already exists
            'SBO_Application.MessageBox("Menu Already Exists")
        End Try
    End Sub
End Class
Public Class Loadxml
    'Inherits System.Windows.Forms.Form
    Public sBPpath As String
    Public sGLpath As String
    Public sBillpath As String
    Public bRun As Boolean
    Private Sub Loadxml_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextGL.Text = System.Configuration.ConfigurationSettings.AppSettings("GLAcctDownloadPath").ToString()
        Me.TextBP.Text = System.Configuration.ConfigurationSettings.AppSettings("BPAcctUPloadPath").ToString()
        Me.TextBill.Text = System.Configuration.ConfigurationSettings.AppSettings("BillUPloadPath").ToString()
        Me.NotifyIcon1.Visible = False
    End Sub
End Class