Hallo,
Ik kom op het internet wel vaker macro's tegen voor het programma die ik wil gebruiken. Maar de codes zijn vaak geschreven voor een 32-bit systeem.
Is er een makkelijke manier om een 32-bit macro om te schrijven c.q. converteren naar een 64-bit macro?
Compile error:
The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PrtSafe attribute.
De macro is geschreven voor SolidWorks.
Met vriendelijke groet,
Willie
Ik kom op het internet wel vaker macro's tegen voor het programma die ik wil gebruiken. Maar de codes zijn vaak geschreven voor een 32-bit systeem.
Is er een makkelijke manier om een 32-bit macro om te schrijven c.q. converteren naar een 64-bit macro?
Compile error:
The code in this project must be updated for use on 64-bit systems. Please review and update Declare statements and then mark them with the PrtSafe attribute.
Code:
Option Explicit
Public Const SCS_32BIT_BINARY = 0
Public Const SCS_64BIT_BINARY = 6
Global Const SWP_NOMOVE As Long = 2
Global Const SWP_NOSIZE As Long = 1
Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST As Long = -1
Global Const HWND_NOTOPMOST As Long = -2
Public Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" (ByVal sFileName As String, ByRef BinType As Long) As Long
Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
De macro is geschreven voor SolidWorks.
Met vriendelijke groet,
Willie