Başlat butonunu gizle

04/05/2012, 12:48

accessman

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
06/01/2020, 18:27

accessman

Buda çok güzel ama 1349 okuma 0 yorum