Access Gizli Penceresi Hakkında Yardım

(14/10/2019, 09:20)sipuasfaf yazdı:

(13/10/2019, 22:42)berduş yazdı: 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

Deniyorum Üstad.

Başarılı olarak çalışıyor. Teşekkürler @berduş (:

(13/10/2019, 22:42)berduş yazdı: 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

sayın berduş. form üzerinde butonla bunu nasıl yaparız simge durumu küçültme yani. ayrı bir buton yardımıyla. gizleme koduna entegre etmek de lazım tabi.