13/04/2023, 08:12
Oğuz Türkyılmaz
(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ı
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ı