مبتدی: تغییر آیکون موس با رفتن روی یک تکست باکس در اکسس [بایگانی]

m3343kh

پنج شنبه 12 بهمن 1402, 22:26 عصر

با سلام
آیا راهی هست که با قرار گرفتن موس روی یک تکست باکس، نشانگر موس تغییر کند ؟

مثلا به حالت دست، مثل باتون

eb_1345

جمعه 13 بهمن 1402, 00:06 صبح

با سلام
آیا راهی هست که با قرار گرفتن موس روی یک تکست باکس، نشانگر موس تغییر کند ؟

مثلا به حالت دست، مثل باتون

سلام
نمونه ضمیمه رو ببین !

m3343kh

جمعه 13 بهمن 1402, 15:14 عصر

سلام
نمونه ضمیمه رو ببین !

بسیار سپاسگزارم

بعد از باز شدن فرم خطای زیر ظاهر می شود

155314

m3343kh

جمعه 13 بهمن 1402, 16:12 عصر

بسیار سپاسگزارم

بعد از باز شدن فرم خطای زیر ظاهر می شود

155314

با قرار دادن PtrSafe قبل از Function مسئله حل شد

eb_1345

جمعه 13 بهمن 1402, 16:14 عصر

پیغام فوق مربوط به عبارات Declare در توابع api میباشه . یعنی اینکه نوع آفیس سیستم شما 64 بیته وباید به کدهای Apiبعد از Declare کلمه PtrSafe اضافه بشه

لذا با توجه به اینکه سیستم آفیس شما 64 بیت هستش و ممکنه با این پیغام در اجرای فایل های دیگه که در سیستم 32 بیت تهیه شده مواجه بشی یادت باشه اگه با چنین پیغامی روبرو شدی کدهای توابع رو بصورت زیر و با عبارت شرطی if .... else تغییر بده
در پست آخر این تاپیک (https://barnamenevis.org/showthread.php?495010-%D8%AA%D8%B7%D8%A8%DB%8C%D9%82-%D8%B9%D8%A8%D8%A7%D8%B1%D8%A7%D8%AA-Declare-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D8%A7-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2&highlight=) نمونه فایلی ضمیمه شده که اینکار رو برای شما انجام میده و دیگه نیازی نیست کدها رو بصورت دستی تغییر بدی

پس کدهای زیر رو جایگزین کدهای توابع 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

جمعه 13 بهمن 1402, 20:09 عصر

پیغام فوق مربوط به عبارات Declare در توابع api میباشه . یعنی اینکه نوع آفیس سیستم شما 64 بیته وباید به کدهای Apiبعد از Declare کلمه PtrSafe اضافه بشه

لذا با توجه به اینکه سیستم آفیس شما 64 بیت هستش و ممکنه با این پیغام در اجرای فایل های دیگه که در سیستم 32 بیت تهیه شده مواجه بشی یادت باشه اگه با چنین پیغامی روبرو شدی کدهای توابع رو بصورت زیر و با عبارت شرطی if .... else تغییر بده
در پست آخر این تاپیک (https://barnamenevis.org/showthread.php?495010-%D8%AA%D8%B7%D8%A8%DB%8C%D9%82-%D8%B9%D8%A8%D8%A7%D8%B1%D8%A7%D8%AA-Declare-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7%DB%8C-%D8%A7%DA%A9%D8%B3%D8%B3-%D8%A8%D8%A7-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2&highlight=) نمونه فایلی ضمیمه شده که اینکار رو برای شما انجام میده و دیگه نیازی نیست کدها رو بصورت دستی تغییر بدی

پس کدهای زیر رو جایگزین کدهای توابع 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

:تشویق::تشویق::تشویق: