14/10/2019, 09:21
(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
2 - daha sonra tüm formların Form_Load (yüklendiğinde) olayına aşağıdaki kodu 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
ShowInTaskbar Me.hwnd, True
Deniyorum Üstad.