با سلام
آیا راهی هست که با قرار گرفتن موس روی یک تکست باکس، نشانگر موس تغییر کند ؟
مثلا به حالت دست، مثل باتون
Printable View
با سلام
آیا راهی هست که با قرار گرفتن موس روی یک تکست باکس، نشانگر موس تغییر کند ؟
مثلا به حالت دست، مثل باتون
سلامنقل قول:
نوشته شده توسط m3343kh
نمونه ضمیمه رو ببین !
بسیار سپاسگزارمنقل قول:
نوشته شده توسط eb_1345
بعد از باز شدن فرم خطای زیر ظاهر می شود
ضمیمه 155314
نقل قول:
نوشته شده توسط m3343kh
با قرار دادن PtrSafe قبل از Function مسئله حل شد
پیغام فوق مربوط به عبارات 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
:تشویق::تشویق::تشویق:نقل قول:
نوشته شده توسط eb_1345