Skip to main content

AccessTr.neT


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
Oğuz Türkyılmaz
7
340

Ana Menüden 2.Form Açtığımda Formu Görev çubuğuna Inmiyor. 32 den 64 e geçiş hatası

#7
(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ı
[Resim: do.php?img=15293]
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ı Img-grin benden önce davranmışsınız. Çok sağolun.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#8
@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...

[Resim: do.php?img=15295]
.zip Yeni klasör.zip (Dosya Boyutu: 662,78 KB | İndirme Sayısı: 12)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task