Skip to main content

AccessTr.neT


taskbar gizle göster

taskbar gizle göster

#1
Kod:
Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _
As String) As Long

Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40

Kod:
Public Function HideTaskBar() As Boolean
Dim lRet As Long
    lRet = FindWindow("Shell_traywnd", "")
    If lRet > 0 Then
        lRet = SetWindowPos(lRet, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
        HideTaskBar = lRet > 0
    End If
End Function

Public Function ShowTaskBar() As Boolean
Dim lRet As Long
lRet = FindWindow("Shell_traywnd", "")
If lRet > 0 Then
    lRet = SetWindowPos(lRet, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
    ShowTaskBar = lRet > 0
End If
End Function

@benbendedeilem
Cevapla
#2
Hey gidi günler hey ta 2012 de ekleişim kimsede 
Bu nedir aga
Dememiş halbuki çok güzel bir kod
@benbendedeilem
Son Düzenleme: 06/01/2020, 18:19, Düzenleyen: accessman.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task