MessageBox click

Question

Dear all,
How could i get messagebox form and click the OK button in 2004B UI API??
Regards,
Kit

Answer 1

Hello Chun,
try this code:
Option Explicit
Public Sub Main()
    Dim oHelloWorld As HelloWorld
    Set oHelloWorld = New HelloWorld
End Sub
Private WithEvents SBO_Application As SAPbouiCOM.Application
Private Sub SetApplication()
'// Use an SboGuiApi object to establish connection
'// with the SAP Business One application and return an
'// initialized appliction object
    Dim SboGuiApi           As SAPbouiCOM.SboGuiApi
    Dim sConnectionString   As String
    Set SboGuiApi = New SAPbouiCOM.SboGuiApi
    '// by following the steps specified above, the following
    '// statment should be suficient for either development or run mode
    sConnectionString = Command
    '// connect to a running SBO Application
    SboGuiApi.Connect sConnectionString
    '// get an initialized application object
    Set SBO_Application = SboGuiApi.GetApplication()
End Sub
Private Sub Class_Initialize()
'// set SBO_Application with an initialized application object
    SetApplication
'// send an "hello world" message
    SBO_Application.MessageBox ("Hello World")
End Sub
This will display a Hello World messagebox in SAP.  Make sure that the SAPB1 is opened.  Hope this helps...