Skip to main content

AccessTr.neT


Başlat butonunu gizle

Başlat butonunu gizle

#1
Kod:
Private Sub Form_Load()
Butttonhwnd = FindWindow("Shell_TrayWnd", "")
    Butttonhwnd = FindWindowEx(Butttonhwnd, 0, "Button", vbNullString)
    ShowWindow Butttonhwnd, BUT_HIDE   'To Hide
    'To show the Start Button add this code insteed of above
    'ShowWindow Butttonhwnd, BUT_SHOW  'To Show
End Sub


Kod:
Private Declare Function FindWindow Lib "user32" Alias _
   "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
  
Private Declare Function FindWindowEx Lib "user32" Alias _
   "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
   ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Kod:
Public Function hideStartButton()
   'This Function Hides the Start Button'
   OurParent& = FindWindow("Shell_TrayWnd", "")
   OurHandle& = FindWindowEx(OurParent&, 0, "Button",  _
       vbNullString)
   ShowWindow OurHandle&, 0
End Function

Public Function showStartButton()
   'This Function Shows the Start Button'
   OurParent& = FindWindow("Shell_TrayWnd", "")
   OurHandle& = FindWindowEx(OurParent&, 0, "Button", _
        vbNullString)

   ShowWindow OurHandle&, 5
End Function

@benbendedeilem
Son Düzenleme: 04/05/2012, 12:50, Düzenleyen: accessman.
Cevapla
#2
Buda çok güzel ama 1349 okuma 0 yorum
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task