پیغام فوق مربوط به عبارات Declare در توابع api میباشه . یعنی اینکه نوع آفیس سیستم شما 64 بیته وباید به کدهای Apiبعد از Declare کلمه PtrSafe اضافه بشه
لذا با توجه به اینکه سیستم آفیس شما 64 بیت هستش و ممکنه با این پیغام در اجرای فایل های دیگه که در سیستم 32 بیت تهیه شده مواجه بشی یادت باشه اگه با چنین پیغامی روبرو شدی کدهای توابع رو بصورت زیر و با عبارت شرطی if .... else تغییر بده
در پست آخر این تاپیک نمونه فایلی ضمیمه شده که اینکار رو برای شما انجام میده و دیگه نیازی نیست کدها رو بصورت دستی تغییر بدی
پس کدهای زیر رو جایگزین کدهای توابع api در قسمت مازول عمومی کن!
#If Win64 Then
Public Declare PtrSafe Function LoadCursorLong Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#Else
Public Declare Function LoadCursorLong Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
#End If
#If Win64 Then
Public Declare PtrSafe Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#Else
Public Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#End If
نوشته شده توسط m3343kh
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول