| |
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ステートメントの更新エラーとなります。
如何どのように処置すればよいでしょうか？
|
|
コマちゃん
- 15/2/20(金) 18:37 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
