Visual Basic FAQ

Различные операции с кнопкой Пуск.

Option Explicit
Dim hwndChild As Long
Const SW_HIDE = 0
Const SW_SHOW = 5
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 hWndParent As Long, _
        ByVal hWndChildAfter As Long, _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal fEnable As Boolean) As Long
Private Declare Function ShowWindow Lib "user32" _
        (ByVal hWnd As Long, _
        ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
Me.Caption = "Start button"
Command1.Caption = "Hide"
Command2.Caption = "Show"
Command3.Caption = "Enabled"
Command4.Caption = "Disabled"
hwndChild = FindWindowEx(FindWindow("Shell_traywnd", ""), 0, "Button", "")
End Sub

Private Sub Command1_Click()
ShowWindow hwndChild, SW_HIDE
End Sub

Private Sub Command2_Click()
ShowWindow hwndChild, SW_SHOW
End Sub

Private Sub Command3_Click()
EnableWindow hwndChild, True
End Sub

Private Sub Command4_Click()
EnableWindow hwndChild, False
End Sub

Запись опубликована on 24.01.2009 at 9:00 и размещена в рубрике: Windows. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.