文件名称：隐藏Windows的开始按钮
文件大小：940B
文件格式：LOG
更新时间：2009-03-15 02:52:39
控件 源码 系统相关类 资源
Option ExplicitPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Const SW_HIDE = 0Private Const SW_SHOW = 5Private Sub Form_Unload(Cancel As Integer) If Option1(1).Value Then Call Option1_Click(0)End SubPrivate Sub Option1_Click(Index As Integer) Dim hLong As Long Dim hwnd As Long hwnd = FindWindow("Shell_TrayWnd", vbNullString) hLong = FindWindowEx(hwnd, 0, "Button", vbNullString) Select Case Index Case 0 ShowWindow hLong, SW_SHOW Case 1 ShowWindow hLong, SW_HIDE End SelectEnd Sub