Declare SetQueryEvent(ByVal Proc As Long) ... SetQueryEvent(AddressOf(OnQuery)) - VB

Формулировка задачи:

Подскажите пожалуйста, кто знает, как следующий код будет выглядеть в VB:

procedure OnQuery; stdcall;
type TAppEvent = procedure; stdcall;
procedure SetQueryEvent(Ptr: TAppEvent); stdcall; external 'ххх.dll'
 
...
 
SetQueryEvent(OnQuery);
 
procedure OnQuery;
begin
  ShowMessage('Получен запрос!');
end;

Решение задачи: «Declare SetQueryEvent(ByVal Proc As Long) ... SetQueryEvent(AddressOf(OnQuery))»

textual
                            Листинг программы 
                        

                            declare SetQueryEvent(ByVal Proc As Long)
...
SetQueryEvent(AddressOf(OnQuery))
                        

Оцени полезность:

12 голосов , оценка 3.833 из 5

Похожие ответы