首页 › 2002VB › hide\show
Advertisement
2002VB Miscellaneous #21750

hide\show

sck
★★★★★
4.8 · 下载量: 2,341

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.

源代码
original-source 
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 恢复