Derleme hatası

[mamita]

Arkadaşlar merhaba,

Userformda ekran penceresi küçültmek için kullandığım bir kod var, farklı bir bilgisayarda denedim çalışıyordu fakat kendi bilgisayarımda 64 bite göre ayarlamam konusunda hata verdi

Userformda yazdığım kod ;

Private Declare Function FindWindowA Lib "user" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Hata ise ;

the code in this project must be updated for use on 64-bit system şeklindedir

 

[Korhan Ayhan]

Forumda ptrsafe ifadesi ile arama yapınız. Örnek kodlamalar var.

Ayrıca aşağıdaki linkte detaylı bilgiler var.

Declaring API functions for 64 bit Office (and Mac Office)

JKP Application Development Services, Microsoft Office Application Development

jkp-ads.com

 

[mamita]

Forumda ptrsafe ifadesi ile arama yapınız. Örnek kodlamalar var.

Ayrıca aşağıdaki linkte detaylı bilgiler var.

Declaring API functions for 64 bit Office (and Mac Office)

JKP Application Development Services, Microsoft Office Application Development

jkp-ads.com

Üstadım selamlar,

Linki inceledim ve forumda anahtar kelime olarak ptrsafe yi aratıp benzer bir konuya rastladım Belirttiğim hatadan kurtardım fakat bu sefer kodun ikinci partı ve sarı işaretli olan satırda Run Time Error 53 hatası alıyorum (File is not found: User)

 

[Korhan Ayhan]

Google da FindWindowA error ifadesi ile arama yapınız.