EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
son olarak;
şu iki hususa dair tavsiyelerde bulunmak üzere belirtmekte fayda görmekteyim,naçizane.
1) lütfen,form üzerinde gerek formun kendisi için ve gerekse de denetimleri için olay yordamlarında KATIŞTIRILMIŞ MAKRO kullanımı yerine,kod yazmaya gayret ederek hem bu konuda tecrübe edinmeye istekli olunuz hem de ileride makro sorunlarına maruz kalma durumlarına engel olunuz.
2) modülleriniz içerisindeki ptrsafe kullanımlarına dair yazmış olduğunuz if...then yazımlarını tekrar gözden geçiriniz.else öncesi ve sonrası yazımlarında hem üstte hem de alt kısımda ptrsafe kullanmayıp sadece ya öncesinde ya da sonrasında kullanmaya gayret ediniz.
ÖRNEK:
MODULE11 adlı modülde olduğu gibi.
Kod:
#If VBA7 Then
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare PtrSafe Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#Else
Declare PtrSafe Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare PtrSafe Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
#End If
