VB4 AddressOf等效项目（将项目添加到系统菜单中）

Question

在Visual Basic 4中是否存在AddressOf的等效项？

我正在尝试获取一些Visual Basic 5/6代码，它将菜单项添加到我在VB4中工作的系统菜单中。下面的代码片段，将无法编译：

'Add Custom Menu To System Menu 
Call AppendMenu(GetSystemMenu(Me.hWnd, 0&), MF_SEPARATOR, 0&, vbNullString) 
Call AppendMenu(GetSystemMenu(Me.hWnd, 0&), MF_STRING, IDM_SYSTEMTRAY, "Minimize To &System Tray") 
Call AppendMenu(GetSystemMenu(Me.hWnd, 0&), MF_STRING, IDM_ABOUT, "&About...") 
procOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc) 

下面是从模块的API声明：

' Win32 API 
Public Const MF_SEPARATOR = &H800& 
Public Const MF_STRING = &H0& 
Public Const GWL_WNDPROC = (-4) 
Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long 
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long 
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
Public Const WM_SYSCOMMAND = &H112 

' User Created 
Public procOld As Long 
Public Const IDM_ABOUT As Long = 1010 
Public Const IDM_SYSTEMTRAY As Long = 1011 

最后，为的WindowProc代码：

Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 
    Select Case iMsg 
     Case WM_SYSCOMMAND 
      Select Case wParam 
       Case IDM_ABOUT 
        MsgBox "About goes here..." 
        Exit Function 
       Case IDM_SYSTEMTRAY 
        MsgBox "Send to system tray code goes here..." 
        Exit Function 
      End Select 
    End Select 
    ' Pass all messages on to VB and then return the value to windows 
    WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam) 
End Function 

任何其他指针或添加项目到我的表单的系统菜单的替代方法也将不胜感激！

Answer 1

来源：Xtreme VB Talk: AddressOf work around for vb4

[番] 我不认为你可以不诉诸somesort用C编写外 DLL的

[OnErr0r] 马特Curland写下了这样一个dll。允许您获取类函数的地址，甚至可以与vb5/6一起使用。

您可以在注册后从上述页面下载callback.zip。 作为备用，你可以在这里得到文件：callback.zip

编辑：直接下载链接已被删除，因为它看来，这个源代码是Matt Curland和受版权保护的书籍的一部分。