Dosyalarda yaşanan genel problemler nasıl çözülür

[istanbulcahan]

Malum 32 ve 64 bitlik sürümler dosyalarda problemler çıkarabilmektedir. Genelde bu kodda problem çıkarıyor. Bahsi geçen satırlar kırmızı oluyor.

Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long

Public Declare Function CloseClipboard Lib "user32" () As Long

Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
(PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, _
IPic As IPicture) As Long

 

[Emir Hüseyin Çoban]

. . .

'''
#If VBA7 And Win64 Then
    Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
#Else
    Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
#End If

'''
#If VBA7 And Win64 Then
    Public Declare PtrSafe Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long
#Else
    Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long
#End If

'''
#If VBA7 And Win64 Then
    Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
#Else
    Public Declare Function CloseClipboard Lib "user32" () As Long
#End If

'''
#If VBA7 And Win64 Then
    Public Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" _
    (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, _
    IPic As IPicture) As Long
#Else
    Public Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
    (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, _
    IPic As IPicture) As Long
#End If
'''

. . .

 

[istanbulcahan]

hata verdi.