Evet Sn.okileturc Uygulamaları Doğrudan taskbar'a İndirme Fikrini Daha Önce Düşünmüştüm Ama Böyle Bir Çalışmayı Daha Önce Göremediğim İçin Sadece Fikir Olarak Kalmıştı.Ancak El Birliği İle Yapılabileceğini Düşünüyorum.Mutlaka Farklı Çözümler Üretilecektir.
Sizin Denediğiniz Kodda Nasıl Bir Çakışma Oluyor,Çakışmanın Neden Kaynaklandığını Görebiliyor musunuz? Teşekkürler,İyi Çalışmalar.
Bu kod task bar a alma işlemini başarıyla
çözüyor. Ancak diğer ( gizleme ) modülle
birlikte çalışmıyor
Option Compare Database
Declare Function GetActiveWindow% Lib "user32" ()
Declare Function ShowWindow% Lib "user32" (ByVal hwnd%, ByVal nCmdShow%)
Function MaximizeAccess()
Dim ActiveWnd%, Maxit%
ActiveWnd% = GetActiveWindow()
Maxit% = ShowWindow(ActiveWnd%, 3)
End Function
Function MinimizeAccess()
Dim ActiveWnd%, Minit%
ActiveWnd% = GetActiveWindow()
Minit% = ShowWindow(ActiveWnd%, 2)
End Function
Function RestoreAccess()
Dim ActiveWnd%, Restoreit%
ActiveWnd% = GetActiveWindow()
Restoreit% = ShowWindow(ActiveWnd%, 1)
End Function
Call MinimizeAccess uygulamayı taskbara alıyor
Bu sefer de çalışacağı tuttu
Ama taskbara değil, boşluğa küçülttü
iyice şaşırdım
Sayın lifeexciting çok teşekkürler emeğinize ve ellerinize sağlık efendim
Son durum nedir hala boşluğa mı küçültüyor taskbara iniyor mu
Veya taskbara inince zaten minimize olmuyor mu
sayın @
accessman biraz kolaycılığa kaçmıyor musunuz? bu kaçıncı sorunuzdur hep çalışıp-çalışmadığını soruyorsunuz, kodlar da var örnek de... Denemesi çok mu zor? bu kadar "armut piş, ağzıma düş" olmaz.