[Yardım]  32 bit Api yi 64 bite çevirme.

API - Application Programming Interface
Yazılım Programlama Arayüz Uygulaması

32 bit Api yi 64 bite çevirme.

İleti#1)  feraz » 21 Tem 2018 13:02

Merhaba,alttaki kodlar nasıl 64 bite çevirilir acaba?Makaleleri okudum fayda etmedi.

Kod: Tümünü seç
Private Declare Function FindWindowA Lib "user32" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
   (ByVal hWnd As Long, ByVal bEnable As Long) 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
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#2)  korhan ayhan » 22 Tem 2018 03:32

Merhaba,

Aşağıdaki kodu deneyiniz.

Kod: Tümünü seç
#If VBA7 Then
    Private Declare PtrSafe Function FindWindowA Lib "user32" _
       (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function EnableWindow Lib "user32" _
       (ByVal hWnd As LongPtr, ByVal bEnable As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetWindowLongA Lib "user32" _
       (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr
    Private Declare PtrSafe Function SetWindowLongA Lib "user32" _
       (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr, _
       ByVal dwNewLong As LongPtr) As LongPtr
#Else
    Private Declare Function FindWindowA Lib "user32" _
       (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function EnableWindow Lib "user32" _
       (ByVal hWnd As Long, ByVal bEnable As Long) 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
#End If
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 27 Ağu 2008 00:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 45
İleti: 162
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#3)  feraz » 22 Tem 2018 11:47

Korhan ocam sağolun çalıştı.

Buna bağlı olarak alltaki kod var ve hata verdi.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#4)  feraz » 22 Tem 2018 11:51

Birde resimdeki gibi kırmızı oluyor ve bunu silip elseyide silince çalışıyor.Tabi önceki mesajdaki olay devam ediyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#5)  feraz » 23 Tem 2018 21:40

Sayın Korhan Hocam,unuttunuzmu beni :(
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#6)  Tarkan VURAL » 04 Ağu 2018 10:45

64bit işletim sisteminde 32bit deklerasyonu tanımayan bilgisayar pek görmedim ama sizinde tanımıyor gibi görünüyor. Madem 64bit kullanıyorsunuz, üm sistem bu şekilde ise if şartlarını kullanmadan sadece VBA7 ( 64bit) API deklerasyonlarını yazıp kullanın. Zaten 32bit tanımlarını silince çalışıyor diyorsunuz. :)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#7)  korhan ayhan » 05 Ağu 2018 02:20

Dosyanızı eklerseniz deneme şansım olabilir.
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 27 Ağu 2008 00:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 45
İleti: 162
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: Cevap: 32 bit Api yi 64 bite çevirme.

İleti#8)  feraz » 06 Ağu 2018 00:26

korhan ayhan yazdı:Dosyanızı eklerseniz deneme şansım olabilir.


Alttaki dosyada dwnemiştim.Dosyayı 1 ay yükleme şandım yok Kırhan hocam.

viewtopic.php?f=49&t=31051
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: 32 bit Api yi 64 bite çevirme.

İleti#9)  feraz » 06 Ağu 2018 00:30

Tarkan VURAL yazdı:64bit işletim sisteminde 32bit deklerasyonu tanımayan bilgisayar pek görmedim ama sizinde tanımıyor gibi görünüyor. Madem 64bit kullanıyorsunuz, üm sistem bu şekilde ise if şartlarını kullanmadan sadece VBA7 ( 64bit) API deklerasyonlarını yazıp kullanın. Zaten 32bit tanımlarını silince çalışıyor diyorsunuz. :)


Tarkan hocam 64 bit bilgisayar değil office 64 bit.

Şunu söyleyebilirim en son güncellemelerden office 2016 64 bit sistemde listview,takvim ve progressbar nesneleri sorunsuz çalışıyor.Tek sıkıntı Api de oluyor.

Ben tekrar 32 bite döndüm Api olmadıktan sonra :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: 32 bit Api yi 64 bite çevirme.

İleti#10)  Tarkan VURAL » 06 Ağu 2018 10:40

Office 64 ise işletim sistemi de 64 olur. Office 32 olursa daha rahat edersiniz. En azından OCX nesneleri bakımından.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26765
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: 32 bit Api yi 64 bite çevirme.

İleti#11)  feraz » 06 Ağu 2018 11:19

Tarkan VURAL yazdı:Office 64 ise işletim sistemi de 64 olur. Office 32 olursa daha rahat edersiniz. En azından OCX nesneleri bakımından.


32 bit İşletim sistemi bu devirde kalmamıştır sanıyorum.
Daha önce öğrenmiştim 2gb Arbeitspeicher(Almanca anladığınız için yazdım Türkçesini bilmiyorum.) den büyüğü 64 bit sistemi oluyor.

Belkide yanılıyorumdur tabii.
Evet 32bit office en iyisi fakat bende başka dosyada mesela hafıza yetersiz 64bit deneyin gibi mesaj çıkmıştı.

Daha öncede dediğim gibi 64bit officede sadece Api olayı hata veriyor.Tabii benim denemelerim office 2016 64bit günceli.
Gerçi office 2016 yı güncelleyince 2018 preview yükleniyor.
Yani listview,montview,calender ve progressbar lar 64 bit officedede hiçbir extra iş yapmadan çalışıyor denemelerimden.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Excel ve API

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe