taskbar gizle göster
Tarih
04/05/2012 16:00
Konu Sahibi
accessman
Yorumlar
0
Okunma
1197
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  taskbar gizle accessman 3 1.096 27/05/2012, 12:28 ercansahin
  Başlat butonunu gizle accessman 0 907 04/05/2012, 12:48 accessman
  Formda Gizle Göste, Aktif Pasif Kontrollerini Gösteren Uygulama HandSword 4 2.173 18/10/2010, 20:45 benremix
  Tam ekran-simge durumuna küçült-gizle ve kapat örneği mehmetdemiral 3 4.809 30/05/2010, 09:55 merve91
  Tam ekran-simge durumuna küçült-gizle ve kapat örneği accessman 0 1.932 02/03/2010, 15:38 accessman


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya