Skip to main content

AccessTr.neT


Access Gizli Penceresi Hakkında Yardım

Access Gizli Penceresi Hakkında Yardım

Çözüldü #1
Merhaba arkadaşlar;
Access penceresini gizlemek için bir modül kullanıyorum. Fakat uygulamayı açtığımda görev çubuğundaki Access simgesi de gizleniyor. Simge durumuna küçültme gibi durumlarda aksaklık yaşıyorum. Bu sorunu nasıl çözebiliriz? 
Yardımlarınızı rica ederim.
.rar hidden window.rar (Dosya Boyutu: 44,36 KB | İndirme Sayısı: 10)
Son Düzenleme: 09/10/2019, 12:41, Düzenleyen: sipuasfaf.
Cevapla
#2
Merhaba, https://accesstr.net/konu-access-pencere...zleme.html bağlantısındaki konuda 3. Yol olarak anlatılan kodu uygulayın. Konuda 3. yolun örnek uygulaması da mevcut.
Cevapla
#3
(09/10/2019, 13:56)ozanakkaya yazdı: Merhaba, https://accesstr.net/konu-access-pencere...zleme.html bağlantısındaki konuda 3. Yol olarak anlatılan kodu uygulayın. Konuda 3. yolun örnek uygulaması da mevcut.
Teşekkürler üstad.
Cevapla
#4
Uyguladım. Görev çubuğunda gözüküyor fakat simge durumuna küçülttüğümde başlat menüsünün üzerine gidiyor. 
 

[Resim: do.php?img=9209]
Son Düzenleme: 09/10/2019, 15:55, Düzenleyen: sipuasfaf.
Cevapla
#5
Bir çözüm önerisi yoksa cevaplanmış konulara taşıyabiliriz üstad (:
Cevapla
#6
sayın @sipuasfaf internette aşağıdaki kodları buldum denemelerimde istediğiniz sonucu verdi dilerim işinize yarar
iyi çalışmalar
Not: aşağıdaki kodlar sadece görev çubuğuna göndermek için. gizleme kodlarını içermiyor
1- öncelikle bir modul oluşturun
module aşağıdaki kodlarrı ekleyin



#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
#Else '32 bit için
Private Declare  Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare  Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
  ByVal hwnd As Long, _
  ByVal nIndex As Long) As Long
#End If



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
2 - daha sonra tüm formların Form_Load (yüklendiğinde) olayına aşağıdaki kodu ekleyin
ShowInTaskbar Me.hwnd, True
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da