Skip to Content
0
Former Member
Apr 07, 2009 at 04:03 PM

Close Event is not launched

57 Views

Hello.

In SapB1 2007, I am closing an empty form and I consequently get the close event, but when I create an item on it, the event is just not launched.

What is happenning here?

What am I doing wrong?

The creation of the item is like this ... (it is just a combobox to select system printers)

Private Sub ComboImpresorasCargar()
        Dim oPrinterSettings As PrinterSettings
        Dim boolDefaultPrinter As Boolean
        Dim intDefaultPrinter As Integer
        Dim oItem As SAPbouiCOM.Item
        Dim oComboBox As SAPbouiCOM.ComboBox
        Dim i As Integer

        'Adding a Combo Box item
        oItem = frmSapImp.Items.Add("cmbImpr", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
        oItem.Top = 12
        oItem.Left = 12
        oItem.Height = 21
        oItem.Width = 323

        oItem.DisplayDesc = True
        oComboBox = oItem.Specific

        i = 0
        For Each oInstPrinters In PrinterSettings.InstalledPrinters()
            If oInstPrinters.Length <= 50 Then
                oComboBox.ValidValues.Add(i, oInstPrinters)
            Else
                oComboBox.ValidValues.Add(i, oInstPrinters.substring(0, 50))
            End If

            oPrinterSettings = New PrinterSettings
            oPrinterSettings.PrinterName = oInstPrinters
            If oPrinterSettings.IsDefaultPrinter Then
                boolDefaultPrinter = oPrinterSettings.IsDefaultPrinter
                intDefaultPrinter = i
            End If
            i = i + 1
        Next
        oComboBox.Select(intDefaultPrinter, SAPbouiCOM.BoSearchKey.psk_Index)
    End Sub

I realized the problem is the line

oComboBox.Select(intDefaultPrinter, SAPbouiCOM.BoSearchKey.psk_Index)

but why?

Thank you very much