Simge durumunda küçültme sorunu

Merhaba,

lpPrevWndProc = apiSetWindowLong(hwnd, GWL_WNDPROC, AddressOf fWndProcTray)

aynı hata iletisi devam etmekte yardımcı olabilir misiniz?

Saygılarımla

Örneğinizin hata veren haliyle ekleyiniz.

Sayın mehmet8x,

Konunuzun 7.mesajına eklediğiniz örnek uygulama incelendiğinde,aşağıdaki açıklamaların yapılması uygun görülmüştür.

Fikir vermesi ve örnek olması adına konunuzun 4.mesajına dahil edilen örnek uygulamadaki nesnelerin olması gerektiği gibi dahil edilmediği ve kodların da geçerli şekilde aktarılmadığı gözlenmiştir.

İmkan ve zaman dahilinde,kendi adıma mümkün mertebe,uygulamanız üzerinde çoğu değişiklikleri ve düzenlemeleri yapmaya gayret ettim.fakat,eğer ki bazı formlardaki kodlarda olası hata verirse,şu kısımları düzenleyiniz.

aslında, frm_Sifre adlı formun kod sayfasındaki dahil edilen haline göre düzenlemeniz bile yeterlidir.

a) Bütün formların kod sayfasındaki Call fSetAccessWindow(0) ve fSetAccessWindow (2) kod satırlarını ya etkisizleştiriniz ya da komple siliniz.

b) frm_Giris, frm_GirisDiger ve frm_GirisDiger1 formlarındaki ve varsa diğer formlardaki Form.Visible = False kod satırlarını da etkisizleştiriniz.

c)  frm_Sifre,frm_Giris, frm_GirisDiger ve frm_GirisDiger1 formlarının dışında kalan formların yüklenme durumlarında hata verirse,bu her bir formun YÜKLENDİĞİNDE olay yordamı içerisine

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

 Dim hWindow As Long

   Dim nResult As Long

   Dim nCmdShow As Long

   hWindow = Application.hWndAccessApp

   nCmdShow = SW_HIDE

   nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)

   Call ShowWindow(Me.hwnd, SW_NORMAL)

Kodlarını dahil ediniz.

d) frm_Sifre,frm_Giris, frm_GirisDiger ve frm_GirisDiger1 formlarının dışında kalan formların KAPANDIĞINDA olay yordamı içerisine

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

Call sUnhookTrayIcon(Application.hWndAccessApp)

Kodlarını dahil ediniz.

e) frm_Sifre,frm_Giris, frm_GirisDiger ve frm_GirisDiger1 formlarının dışında kalan formların KALDIRILDIĞINDA olay yordamı içerisine

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

Application.Quit

Kodlarını dahil ediniz.

f) frm_Sifre,frm_Giris, frm_GirisDiger ve frm_GirisDiger1 formlarının dışında kalan formlardaki simge küçültme butonlarının TIKLANDIĞINDA olay yordamı içerisine

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

Call sHookTrayIcon(Application.hWndAccessApp)

Kodlarını dahil ediniz.

Kendi adıma,bunları şimdilik sonuçları görmek üzere, frm_Sifre,frm_Giris, frm_GirisDiger ve frm_GirisDiger1 adlı formlarda uyguladım.sorunlar olursa diğerlerinde,bu yazılanları uygulayınız.

Bilginize…iyi çalışmalar,saygılar.

Sayın Atoz112,

Emeğinize sağlık çok teşekkür ederim.

64 bit sistem kullanıyorum ( ptrsafe ) ile uyarladım. fakat yine aynı hatayı almaktayım tekrar yardımcı olabilir misiniz?
Saygılarımla

Sayın mehmet8x,

10.mesajda eklediğiniz örnek uygulama incelendiğinde,
32 bit / 64 bit durumuna dair kod yazımlarının hatalı olması gerekçesi ile,9.mesajda eklenen örnek üzerinden bu duruma göre yeniden düzenlenmesi ile bu ayrıma uygun hale getirilmiştir.

EK'te;
Yukarıda yapılan açıklama nezdinde hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

sayın mehmet8x,

konunuzun 11.mesajında eklenen örnek uygulamanın kullanımı sonucu edinilen ekran görüntüleri aşağıda yer almaktadır.








bilginize...iyi çalışmalar,saygılar.