На главную страницу Версия-Т
VTSoft.ru

ChonKasbiLib.dll и Access2000


RSS
ChonKasbiLib.dll и Access2000
 
Подскажите пожалуйста, как в 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;

Заранее благодарен...
 
Передаваемый функции SetCloseCheckEvent параметр является указателем на функцию обратного вызова (callback function). Примеры вызова функций такого типа описываются в ряде статей, например, в приведенных ниже:

"Using Windows API in VB Tutorial"
http://www.geocities.com/SiliconValley/Lab/1632/atch10.html
"What Is a Callback Function?"
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/modcore/html/deovrwhatiscallbackfunction.asp
"Советы тем, кто программирует на VB & VBA"
http://www.lib.csu.ru/dl/bases/prg/kompress/articles/2001_09_tips/