LoadMenu 与 MAKEINTRESOURCE

LoadMenu 与 MAKEINTRESOURCE

LoadMenu 与 MAKEINTRESOURCE LoadMenu: hInstance, // handle to module LPCTSTR lpMenuName // menu name or resource identifier);

#define MAKEINTRESOURCEW(i) (LPWSTR)((DWORD)((WORD)(i)))

#ifdef UNICODE

#define MAKEINTRESOURCE MAKEINTRESOURCEW

#else

#define MAKEINTRESOURCE MAKEINTRESOURCEA

#endif // !UNICODE

最后一个参数是string,然后,由宏MAKEINTRESOURCE的写法可知,这个宏虽然是将WORD转为了LPSTR(LPWSTR),但实质数据并没有变,所以在vb中,第二个参数用Long其实是一样的,所以应该这样改,

Private Declare Function LoadMenu Lib 'user32.dll' Alias 'LoadMenuA' (ByVal hInstance As Long, ByVal lpString As Long) As Long

Private Declare Function SetMenu Lib 'user32.dll' (ByVal hwnd As Long, ByVal hMenu As Long) As Long

Dim tMenu&

tMenu = LoadMenuVB2(24641, 'SHDOCLC.DLL')

SetMenu Me.hwnd, tMenu

End Sub

Dim hinstSHDOCLC&

Dim hMenu&

hinstSHDOCLC = LoadLibrary(slib)