vbからvb.netまで移行する時のコールバック(CallBack) ( ソフトウェア ) - がんがん日本

<対馬

vbからvb.netまで移行する時のコールバック(CallBack)

　最近、元のVBAで開発されたプロジェクトをvb.netにバージョンアップすることにして、事前調査を行ってます。vbからvb.net(2005)まで移行するやり方がそんなに難しくないだと思いますが。突然、ある難関にぶつけて、vbにはWin32Apiを利用していた時、コールバックの関数をどのようにVB.netに移します。

　vbには　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long　を宣言して、プログラムには
SetWindowLong winCtrl.hWnd, GWL_WNDPROC, AddressOf WndProc　で利用されたが、vb.netに直接移すことができない。どうすればいいや。

　解決策：以下の通り
　①コールバック関数の宣言
　　Public Delegate Function P_CALLBACK(ByVal hWnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
　②Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long　から　Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Int32, ByVal nIndex As Int32, ByVal dwNewLong As P_CALLBACK) As Int32に変更する
　③プログラムにはSetWindowLong(winCtrl.Handle, GWL_WNDPROC, AddressOf WndProc)で関数を使う。

　解決しました。よかったね