submain.bas

来自「SAP Business One 的开发实例 此程序需要在安装SAP Busi」· BAS 代码 · 共 42 行

Attribute VB_Name = "SubMain"
'//  SAP MANAGE UI API 2005 SDK Sample
'//****************************************************************************
'//
'//  File:      SubMain.bas
'//
'//  Copyright (c) SAP MANAGE
'//
'// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
'// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
'// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
'// PARTICULAR PURPOSE.
'//
'//****************************************************************************




Option Explicit

Public Sub Main()

    Dim oComplexForm As ComplexForm
    
    Set oComplexForm = New ComplexForm
    
'//*********************************************
'// this is the message loop
'// we use it to catch Events and dispatch them
'// don't forget to terminate the Add On.
'// Use 'End' at the desired spot
'//*********************************************

    Do While GetMessage(Msg, 0&, 0&, 0&)
        TranslateMessage Msg
        DispatchMessage Msg
        DoEvents
    Loop
    
End Sub