Only two events catching

Question

Hi All!
I'm an absolute beginner in making programs to SBO.
I wrote any little trial program in VB6 (and Delphi5), but I have a problem the events handling (of course...).
By the samples I use the code as below:
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, pVal As SAPbouiCOM.IItemEvent, BubbleEvent As Boolean)
    If pVal.FormType <> 0 Then
        Select Case pVal.EventType
            Case et_ITEM_PRESSED:
                SBO_Application.MessageBox ...
            Case et_KEY_DOWN:
                SBO_Application.MessageBox ...
            Case et_GOT_FOCUS:
                SBO_Application.MessageBox ...
            Case et_FORM_LOAD:
                SBO_Application.MessageBox ...
            Case etc...           
        End Select
    End If
End Sub
Every time only two event catching: et_GOT_FOCUS and et_FORM_LOAD after the start, and not others.
How can I get to catch the et_ITEM_PRESSED (there is a button on the form), etc. event?
(Note1: This programs not registered as add-on.)
(Note2: We have not yet SDK, the media is coming soon.)
Best regards
Gabor
PS.: Sorry my terrible english!

Answer 1

Gabor,
the program needs to be registered with SBO, otherwise SBO cannot hand over the events (as far as I know). You probably just need to wait for your SDK ;(
When you start, make sure that your first if- clause is
If pVal.Before_Action = True
otherwise you will get a lot of events twice (once before and once after event).
Here is a quick sample of a handler I use.
HTH Lutz Morrien
Public Overrides Sub HANDLE_FORM_EVENTS(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean)
    Try
      If pVal.Before_Action = True Then
        Select Case pVal.EventType
          Case SAPbouiCOM.BoEventTypes.et_FORM_ACTIVATE
            'update display
            DisplayLabels()
        End Select
        'AFTER ACTION
      Else
        Select Case pVal.EventType
          Case SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED
            Select Case pVal.ItemUID
              Case "btnPRINT"
                PrintLabels(True, False)
              Case "btnPRNTS"
                SBO_Application.Desktop.State = SAPbouiCOM.BoFormStateEnum.fs_Minimized
                PrintLabels(False, False)
                SBO_Application.Desktop.State = SAPbouiCOM.BoFormStateEnum.fs_Maximized
              Case "btnEDIT"
                EditMarkedLabel()
              Case "btnDELETE"
                DeleteMarkedLabel()
              Case "chkALL"
                SwitchMarkOnAllRows()
              Case "btnPREVIEW"
                SBO_Application.Desktop.State = SAPbouiCOM.BoFormStateEnum.fs_Minimized
                PrintLabels(True, True)
                SBO_Application.Desktop.State = SAPbouiCOM.BoFormStateEnum.fs_Maximized
            End Select
        End Select
      End If
    Catch excE As Exception
      SBO_Application.MessageBox(excE.ToString)
    End Try
  End Sub