Как написать обратный вызов в VB6?

Question

Как вы пишете функцию обратного вызова в VB6? Я знаю, что AddressOf получает вас, функция получает адрес в Long. Но как мне вызвать функцию с адресом памяти? Благодаря!

Answer 1

Я не знаю точно, что вы пытаетесь сделать.

К invert control просто создайте функцию обратного вызова в классе. Затем используйте экземпляр класса (объекта) для выполнения обратного вызова.

• Если вам нужно переключиться между различными процедурами во время выполнения, у вас есть отдельные классы, которые реализуют один и тот же интерфейс - strategy pattern.
• IMHO AddressOf слишком сложно и рискованно использовать таким образом.

AddressOf должны использоваться только тогда, когда вам нужно register callback functions с Windows API.

Answer 2

This post На сайте vbforums.com приведен пример использования функции AddressOf и CallWindowProc для выполнения процедуры обратного вызова.

код с поста:

Private Declare Function CallWindowProc _ 
Lib "user32.dll" Alias "CallWindowProcA" (_ 
ByVal lpPrevWndFunc As Long, _ 
ByVal hwnd As Long, _ 
ByVal msg As Long, _ 
ByVal wParam As Long, _ 
ByVal lParam As Long) As Long 

Private Sub ShowMessage(_ 
msg As String, _ 
ByVal nUnused1 As Long, _ 
ByVal nUnused2 As Long, _ 
ByVal nUnused3 As Long) 
    'This is the Sub we will call by address 
    'it only use one argument but we need to pull the others 
    'from the stack, so they are just declared as Long values 
    MsgBox msg 
End Sub 

Private Function ProcPtr(ByVal nAddress As Long) As Long 
    'Just return the address we just got 
    ProcPtr = nAddress 
End Function 

Public Sub YouCantDoThisInVB() 
    Dim sMessage As String 
    Dim nSubAddress As Long 

    'This message will be passed to our Sub as an argument 
    sMessage = InputBox("Please input a short message") 
    'Get the address to the sub we are going to call 
    nSubAddress = ProcPtr(AddressOf ShowMessage) 
    'Do the magic! 
    CallWindowProc nSubAddress, VarPtr(sMessage), 0&, 0&, 0& 
End Sub