25/02/2016, 14:17
atoz112
Sayın mehami,
Bir diğer tavsiye niteliğinde olması adına,şu hususu da belirtmek faydalı olacaktır.
32 bit / 64 bit kullanımlarında,
declare edilen fonksiyon tanımlarında eğer LONG ifadesi geçiyorsa;bunları da LONGPTR olarak değiştirmek gerekecektir.
Örnek kullanım olarak;
uygulamanızda yer alan MODULE1 adlı modül içeriğindeki kodlardan alıntı yaparak,şu şekilde yazılması uygundur.
Bir diğer örnek de;
cls_justifytext adlı sınıf modülünden alıntı yaparak,
Elbette ki,bunları yazmak sureti ile denemek lazım.sonuçları bildirebilirsiniz.
Bilginize…iyi çalışmalar,saygılar.
Bir diğer tavsiye niteliğinde olması adına,şu hususu da belirtmek faydalı olacaktır.
32 bit / 64 bit kullanımlarında,
declare edilen fonksiyon tanımlarında eğer LONG ifadesi geçiyorsa;bunları da LONGPTR olarak değiştirmek gerekecektir.
Örnek kullanım olarak;
uygulamanızda yer alan MODULE1 adlı modül içeriğindeki kodlardan alıntı yaparak,şu şekilde yazılması uygundur.
Kod:
#If VBA7 Then
Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Longptr) As Longptr
Public Declare PtrSafe Function ReleaseCapture Lib "user32" () As Longptr
Public Declare PtrSafe Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Longptr, ByVal wMsg As Longptr, _
ByVal wParam As Longptr, lParam As Any) As Longptr
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Longptr, _
ByVal nCmdShow As Longptr) As Longptrptr
#Else
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
#End IfBir diğer örnek de;
cls_justifytext adlı sınıf modülünden alıntı yaparak,
Kod:
#If VBA7 Then
Private Type udtPrtMips_str
strRGB As String * 28
End Type
' Structure from ADH97
Private Type udtPrtMips
lngLeft As Longptr
lngTop As Longptr
lngRight As Longptr
lngBottom As Longptr
lngDataOnly As Longptr
lngWidth As Longptr
lngHeight As Longptr
lngDefaultSize As Longptr
lngItemsAcross As Longptr
lngColumnSpacing As Longptr
lngRowSpacing As Longptr
lngItemLayout As Longptr
lngFastPrinting As Longptr
lngDataSheet As Longptr
End Type
' Arrays to hold the info we require from
' processing the Report's Detail Event
Private lngTop() As Longptr
Private lngCtlLeft() As Longptr
Private varData() As String
Private lngHeight() As Longptr
Private lngCtlHeight() As Longptr
Private tokens() As String
Private strCtlName As String
Dim m_FileNumber As Integer
#Else
Private Type udtPrtMips_str
strRGB As String * 28
End Type
' Structure from ADH97
Private Type udtPrtMips
lngLeft As Long
lngTop As Long
lngRight As Long
lngBottom As Long
lngDataOnly As Long
lngWidth As Long
lngHeight As Long
lngDefaultSize As Long
lngItemsAcross As Long
lngColumnSpacing As Long
lngRowSpacing As Long
lngItemLayout As Long
lngFastPrinting As Long
lngDataSheet As Long
End Type
' Arrays to hold the info we require from
' processing the Report's Detail Event
Private lngTop() As Long
Private lngCtlLeft() As Long
Private varData() As String
Private lngHeight() As Long
Private lngCtlHeight() As Long
Private tokens() As String
Private strCtlName As String
Dim m_FileNumber As Integer
#End IfElbette ki,bunları yazmak sureti ile denemek lazım.sonuçları bildirebilirsiniz.
Bilginize…iyi çalışmalar,saygılar.