Çözüldü Telefon Rehberi

[okan32]

Merhaba öncelikle hayırlı Cumalar ekli dosyamdaki telefon rehberi programının Function prosedürü 64bit ve 32 ofis sürümlerine göre hazırlandığı halde hata veriyor. ben 64 bit ofis kullanıyorum. hata aldığım yerin görüntüsünü de ekliyorum.Yardımlarınızı bekliyorum.

 

[okan32]

Arkadaşlar yardımcı olacak yok mu?

 

[Haluk]

32 Bit Office ile bir sorun yok ama; değişken tanımlamalarınız 64 Bit için uygun olarak yapılmamış.

Siz 64 bit kullandığınıza göre; ekli dosyadaki revize düzenlemeyi deneyin ....

Not: Dosyanın son hali 9. mesaja eklenmiştir.
.

 

[okan32]

Haluk bey ilginiz için teşekkür ederim. Denedim Ama yine hata verdi. Hatanın fotoğrafını ekledim.şimdiden teşekkür ederim

 

[Haluk]

3 No'lu mesaja eklediğim dosyada SetUserFormStyle prosedürünü aşağıdaki ile değiştirip deneyin.

Private Sub SetUserFormStyle()
  If hWndForm = 0 Then Exit Sub
 
  #If VBA7 And Win64 Then
    frmStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE)
  #Else
    frmStyle = GetWindowLong(hWndForm, GWL_EXSTYLE)
  #End If
 
  If bIcon Then
    frmStyle = frmStyle And Not WS_EX_DLGMODALFRAME
  Else
    frmStyle = frmStyle Or WS_EX_DLGMODALFRAME
  End If
 
  #If VBA7 And Win64 Then
    SetWindowLongPtr hWndForm, GWL_EXSTYLE, frmStyle
  #Else
    SetWindowLong hWndForm, GWL_EXSTYLE, frmStyle
  #End If
 
  DrawMenuBar hWndForm
End Sub

.

 

[okan32]

Haluk bey özür dilerim ama yine hata verdi. sizide uğraştırıyorum kusura bakmayın.
hatayı fotoğrafa ekledim.

 

[Haluk]

Bende 64 Bit olmadığı için düzenlemem zor oluyor tabii.....

Şimdi, kodun en üstündeki kısımda;

Option Explicit
#If VBA7 And Win64 Then
....
....

..

Private Const GWL_EXSTYLE As Long = (-20)

LongPtr ifadesini, yukarıdaki gibi Long olarak düzeltin.


.

 

[okan32]

Çok teşekkür ederim şimdi oldu haluk bey.
Hakkınızı Helal Edin.

 

[Haluk]

Dosyanın son hali ektedir.

Kontrol edip, haber verir misiniz?

.

 

[okan32]

Çoook Teşekkür ederim Haluk Bey sorunsuz çalışıyor.
Sizi yordum Hakkınızı helal edin..

 

[Haluk]

Kolay gelsin ....

.