Access Gizli Penceresi Hakkında Yardım

1 2
14/10/2019, 09:21

sipuasfaf

(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.
14/10/2019, 09:24

sipuasfaf

Başarılı olarak çalışıyor. Teşekkürler @berduş (:
05/05/2023, 16:51

hnakis

(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.
1 2