Name: takana Date: 2019/12/02 22:47ご意見ありがとうございます。
GeneralTools.basの先頭部分のdllの宣言部をすべて 下記の例の様に修正すれば、動作すると思われます。 Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ↓ Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
LongをLongPtr型に変更する必要はないと思われます。 後、frmEditの以下の行はコメントアウトしてください。
Private Sub UserForm_Initialize()の中の ' '******************************************** ' 'サブクラス化してマウスホイールを有効にする ' '******************************************** ' OrgWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf SubClassProc)
Private Sub UserForm_Terminate()の中の ' 'ウィンドウプロシジャーを元にもどす ' If OrgWndProc <> 0 Then ' Call SetWindowLong(hWnd, GWL_WNDPROC, OrgWndProc) ' End If
返信する |