+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ana Menüden 2.Form Açtığımda Formu Görev çubuğuna Inmiyor. 32 den 64 e geçiş hatası (/konu-ana-menuden-2-form-actigimda-formu-gorev-cubuguna-inmiyor-32-den-64-e-gecis-hatasi.html)
Sayfalar:
1
2
RE: Ana Menüden 2.form Açtığımda Formu Görev Çubuğuna Inmiyor. 32 Den 64 E Geçiş Hatası - Oğuz Türkyılmaz - 13/04/2023
(12/04/2023, 23:58)berduş yazdı: Bu dosyada bazı değişiklikler yaptım normalde formları küçültünce taskbara gitmek yerine aşağıdaki gibi taskbar üzerinde küçülüyorlardı
yeni dosyada taskbara küçülüyor
Not tüm formlara uygulamadım diğer formların yüklenme olayına eklemeniz gerek
Form_Load() olayında ShowInTaskbar Me.hWnd, True kodu eklenmeli
TaskBar için eklenen kodlar
#If Win64 Then
'ShowInTaskbar________________________________________
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
'ShowInTaskbar________________________________________
#Else
'ShowInTaskbar________________________________________
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
'ShowInTaskbar________________________________________
#End If
'ShowInTaskbar________________________________________
Private Const WS_EX_APPWINDOW = &H40000
Private Const GWL_STYLE = -20
Public Function ShowInTaskbar(Lhwnd As Long, Show As Boolean)
Dim lStyle As Long
lStyle = GetWindowLong(Lhwnd, GWL_STYLE)
If Show Then
lStyle = lStyle Or WS_EX_APPWINDOW
Else
lStyle = lStyle And Not WS_EX_APPWINDOW
End If
Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)
End Function
'ShowInTaskbar________________________________________BİTTİ
@berduş hocam çok teşekkür ederim. Bir sonraki sorum bu olacaktı
benden önce davranmışsınız. Çok sağolun.
RE: Ana Menüden 2.form Açtığımda Formu Görev Çubuğuna Inmiyor. 32 Den 64 E Geçiş Hatası - Oğuz Türkyılmaz - 13/04/2023
@berduş yaptıklarınızı orjinal dosyama uyarladım hocam tam istediğim şekilde olması gerektiği gibi çalışıyor. Tekrar teşekkür ederim. Sadece İnsanlık için küçük benim için büyük bir sorun değil ama şöyle bir durum oluşuyor.... Şöyle ki uygulama açıldığında belirlediğim Mavi Uygulama simgesi Taskbarda beliriyor Fakat formu aşağıya Taskbara indirdiğimde Mavi uygulama simgesinin yanına Access uygulama simgesi açılıyor. Bunu engellemenin bir yolu varmıdır...