Visual Basic FAQ

Как сделать не видимой кнопку Пуск?

Option Explicit

Private Declare Function EnableWindow Lib "user32" _
    (ByVal hWnd As Long, _
     ByVal fEnable As Boolean) As Long
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 ShowWindow Lib _
    "user32" (ByVal hWnd As Long, _
    ByVal nCmdShow As Long) As Long
Dim hPanel As Long, hPusk As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Sub Command1_Click()
  ShowWindow hPusk, SW_HIDE
End Sub

Private Sub Command2_Click()
  ShowWindow hPusk, SW_SHOW
End Sub
Private Sub Form_Load()
  hPanel = FindWindow("Shell_traywnd", _
                            vbNullString)
  hPusk = FindWindowEx(hPanel, 0, "Button", _
                            vbNullString)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

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