PtrSafe

Söz dizimi​

[Public | Private] Declare PtrSafe Sub ad Lib "kitaplık" [Alias "takma_ad"] [([bağımsız_değişkenler])]
[Public | Private] Declare PtrSafe Function ad Lib "kitaplık" [Alias "takma_ad"] [([bağımsız_değişkenler])] [As dönüş_türü]

• Public / Private: bildirimin erişim düzeyi; isteğe bağlıdır. Standart modülde belirtilmezse bildirim Public kabul edilir. Sınıf ve sayfa modüllerinde yalnız Private kullanılabilir.
• PtrSafe: 64 bit uyumluluğunu bildirir; VBA7 çalıştıran Excel'de (2010 ve sonrası) bildirimde bulunması gerekir. Excel 2007 ve öncesi bu sözcüğü tanımaz.
• Sub / Function: çağrılan yordamın değer döndürüp döndürmediğini belirtir; zorunludur.
• ad: yordamı VBA'da çağıracağınız ad; zorunludur.
• Lib: işlevin bulunduğu DLL adı (kernel32, user32 gibi); zorunludur.
• Alias: DLL içindeki gerçek işlev adı; isteğe bağlıdır. VBA'daki ad DLL'dekinden farklıysa kullanılır.
• bağımsız_değişkenler: parametre listesi; isteğe bağlıdır. Genellikle ByVal ya da ByRef ile yazılır.
• dönüş_türü: Function için dönen değerin veri türü; isteğe bağlıdır, yazılmazsa Variant olur.

Neden gerekli ve ne anlama gelir​

#If VBA7 Then
    Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr
#Else
    Private Declare Function GetForegroundWindow Lib "user32" () As Long
#End If

• LongPtr: 32 bit Excel'de 4 bayt, 64 bit Excel'de 8 bayt olan işaretçi türü; tutamaç ve adresler için kullanılır.
• LongLong: yalnız 64 bit Excel'de bulunan 8 baytlık tam sayı türü.
• Long: 32 bit değerler için (DWORD, int) her ortamda 4 bayt kalır; bu tür parametreleri değiştirmeniz gerekmez.

Koşullu derleme ile eski sürümlerle uyum​

• VBA7: Excel 2010 ve sonrasında (32 ya da 64 bit) True olan derleme sabitidir.
• Win64: yalnız 64 bit Excel'de True olan derleme sabitidir.

1. Sleep API bildirimi ve çağrısı​

Option Explicit

#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub YarimSaniyeBekle()
    ' Excel'i 500 milisaniye bekletir
    Sleep 500
    ' Bekleme bittikten sonra sayfaya not düşer
    Worksheets("Sleep Çağrısı").Range("B2").Value = "Bekleme tamamlandı"
End Sub

2. Excel ortamını koşullu derleme sabitleriyle sorgulama​

Option Explicit

Sub OrtamBilgisiYaz()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Ortam Bilgisi")

    #If VBA7 Then
        Dim p As LongPtr
        ws.Range("B2").Value = "Evet"
    #Else
        Dim p As Long
        ws.Range("B2").Value = "Hayır"
    #End If

    #If Win64 Then
        ws.Range("B3").Value = "Evet"
    #Else
        ws.Range("B3").Value = "Hayır"
    #End If

    ' İşaretçi türünün bayt cinsinden boyutu
    ws.Range("B4").Value = LenB(p)
End Sub

3. Veri türlerinin bayt boyutlarını karşılaştırma​

Option Explicit

Sub BoyutlariYaz()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Bayt Boyutları")

    Dim i As Integer
    Dim l As Long

    #If VBA7 Then
        Dim lp As LongPtr
    #Else
        Dim lp As Long
    #End If

    #If Win64 Then
        Dim ll As LongLong
    #End If

    ws.Range("B2").Value = LenB(i)
    ws.Range("B3").Value = LenB(l)
    ws.Range("B4").Value = LenB(lp)

    #If Win64 Then
        ws.Range("B5").Value = LenB(ll)
    #Else
        ws.Range("B5").Value = "Yok (32 bit)"
    #End If
End Sub

Kullanırken dikkat edin​

• PtrSafe tek başına yeterli değildir: Declare satırına PtrSafe eklemek hatayı susturur ama tutamaç ve adres parametrelerini kendiliğinden düzeltmez. Pencere tutamacı, bellek adresi ve nesne işaretçisi gibi değerleri Long bırakırsanız 64 bit Excel'de veri kaybı olur ve Excel beklenmedik biçimde kapanabilir. Bu parametreleri LongPtr yapın.
• Eski sürümlerde derleme hatası: Excel 2007 ve öncesi PtrSafe sözcüğünü tanımaz ve söz dizimi hatası verir. Dosya eski sürümlerde de açılacaksa Declare satırlarını mutlaka #If VBA7 Then ve #Else dallarıyla ikiye ayırın.
• Declare yerleşimi: Standart modülde Declare satırları modülün başında, yordamlardan önce yer almalıdır. Sınıf modüllerinde, sayfa modüllerinde ve UserForm modüllerinde bildirim yalnız Private olabilir; Public bildirim için standart modül kullanın.
• Dönüştürme işlevi: Bir sayıyı işaretçi türüne çevirmeniz gerekirse CLngPtr işlevini kullanın. 64 bit ortamda CLng ile dönüştürmek 8 baytlık değeri 4 bayta sığdırmaya çalışır ve taşma hatası verebilir.
• Win64 sabitini doğru yorumlayın: Win64 sabiti Excel'in 64 bit olduğunu, Windows'un 64 bit olduğunu değil gösterir. 64 bit Windows üzerinde 32 bit Excel çalışıyorsa Win64 False, VBA7 ise Excel 2010 ve sonrasında True olur. Bu durumda PtrSafe gerekir, ama LongLong kullanılamaz.
• Kodu denemeden önce: Windows API çağıran makroları denemeden önce dosyanızı kaydedin. Yanlış tür ya da parametre sırası Excel'i anında kapatabilir ve kaydedilmemiş çalışmanız kaybolur.
• İlgili konular:
  • Declare deyimi: DLL işlevlerini VBA'ya tanıtır, PtrSafe bu deyimin bir parçasıdır.
  • LongPtr: 32 bit'te 4, 64 bit'te 8 bayt olan işaretçi veri türü.
  • LongLong: yalnız 64 bit Excel'de bulunan 8 baytlık tam sayı türü.
  • CLngPtr: bir ifadeyi LongPtr türüne çeviren işlev.
  • #If...Then...#Else: koşullu derleme yönergesi.
  • VBA7 ve Win64: koşullu derleme sabitleri.
  • Alias: Declare deyiminde DLL'deki gerçek işlev adını belirtir.
  • ByVal ve ByRef: parametrenin değer ya da başvuru olarak geçirilmesini belirler.
  • VarPtr, ObjPtr ve StrPtr: değişken, nesne ve metin adresini veren, LongPtr döndüren işlevler.