hide\show
this simple code can hide\show your clock, start button, tray icons, taskbar, and desktop. Please vote!!!
AI
AIサマリー: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ソースコード
Sub Hide_Clock()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 0
End Sub
Sub Hide_Desktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 0
End Sub
Sub Hide_StartButton()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 0
End Sub
Sub Hide_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0
End Sub
Sub Hide_Tray()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0
End Sub
Sub Show_Clock()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 5
End Sub
Sub Show_Desktop()
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 5
End Sub
Sub Show_StartButton()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 5
End Sub
Sub Show_TaskBar()
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 5
End Sub
Sub Show_Tray()
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 5
End Sub
オリジナルのコメント (3)
Wayback Machineから復元