Подскажите пожалуйста, как в VBA правильно описать эту фунцию?
procedure SetCloseCheckEvent(Ptr: TAppEvent);
type
TAppEvent = procedure; stdcall;
procedure OnCloseCheck; stdcall;
или эту:
procedure SetErrorEvent(Ptr: TAppError);
type
TAppError = procedure (ErrorCode: Integer; ErrorMsg: PChar); stdcall;
procedure OnError(ErrorCode: Integer; ErrorMsg: PChar); stdcall;
Заранее благодарен...
procedure SetCloseCheckEvent(Ptr: TAppEvent);
type
TAppEvent = procedure; stdcall;
procedure OnCloseCheck; stdcall;
или эту:
procedure SetErrorEvent(Ptr: TAppError);
type
TAppError = procedure (ErrorCode: Integer; ErrorMsg: PChar); stdcall;
procedure OnError(ErrorCode: Integer; ErrorMsg: PChar); stdcall;
Заранее благодарен...