|
windows-XP使用時に最小化釦として下記コードを使用していました。
'ユーザーーフォーム最小化釦付記
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
処がwindows8.1になり64ビットシステムになり、
Declareステートメントの更新エラーとなります。
如何どのように処置すればよいでしょうか?
|
|