| 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
 返信する |