messageapis.bas

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

Attribute VB_Name = "MessageAPIs"
'//  SAP MANAGE UI API 2005 SDK Sample
'//****************************************************************************
'//
'//  File:      MessageAPIs.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
'//****************************************************************
'// API Declarations
'// Enable us to process a message loop in Sub Main()
'//
'// A developer should copy this module 'as is' and create
'// an object of your class in Sub Main()
'//****************************************************************

'// Part of the MSG structure - receives the location of the mouse
Public Type POINTAPI
    X As Long
    Y As Long
End Type

'// The message structure
Public Type Msg
    hwnd As Long
    message As Long
    wParam As Long
    lParam As Long
    Time As Long
    pt As POINTAPI
End Type

'// Will get us out of our message loop
Public Declare Sub PostQuitMessage Lib "user32" _
    (ByVal nExitCode As Long)

'// Retrieves messages sent to the calling thread's message queue
Public Declare Function GetMessage Lib "user32" _
    Alias "GetMessageA" _
     (lpMsg As Msg, _
      ByVal hwnd As Long, _
      ByVal wMsgFilterMin As Long, _
      ByVal wMsgFilterMax As Long) As Long
      

'// Translates virtual-key messages into character messages
Public Declare Function TranslateMessage Lib "user32" _
    (lpMsg As Msg) As Long

      

'// Forwards the message on to the window represented by the
'// hWnd member of the Msg structure
Public Declare Function DispatchMessage Lib "user32" _
    Alias "DispatchMessageA" _
     (lpMsg As Msg) As Long

Public Msg As Msg