UC知道vb如何隐藏开始菜单程序项下所有文件夹和文件
来源：百度知道 编辑：UC知道 时间：2024/06/04 03:46:00
vb如何隐藏开始菜单程序项下所有文件夹和文件
补充一下问题：是用VB窗体按钮来隐藏XP系统的：开始菜单--程序选项下的所有文件夹和文件的快捷方式。
例：Private Sub Command1_Click()
SetAttr "C:\Documents and Settings\Administrator\「开始」菜单\程序\", vbHidden
End Sub
Private Sub Command2_Click()
SetAttr "C:\Documents and Settings\All Users\「开始」菜单\程序", vbHidden
End Sub
这样没有反映，隐藏不了程序下的所有文件夹和文件。
补充一下问题：是用VB窗体按钮来隐藏XP系统的：开始菜单--程序选项下的所有文件夹和文件的快捷方式。
例：Private Sub Command1_Click()
SetAttr "C:\Documents and Settings\Administrator\「开始」菜单\程序\", vbHidden
End Sub
Private Sub Command2_Click()
SetAttr "C:\Documents and Settings\All Users\「开始」菜单\程序", vbHidden
End Sub
这样没有反映，隐藏不了程序下的所有文件夹和文件。
设置bar0.Visible = False，隐藏了菜单和工具栏之后，底下的控件能跟着向上移动，把原来的位置占了，然后显示菜单和工具栏的时候，底下的控件自动向下移动。
在菜单编辑器中，勾掉visible就可以隐藏菜单栏了
Private Sub Command1_Click()
ChDir "C:\Documents and Settings\Administrator\「开始」菜单\程序\"
Shell "cmd /c for /f ""delims="" %i in ('dir /a /b') do attrib ""%i"" +h", vbNormalFocus
End Sub
Private Sub Command2_Click()
ChDir "C:\Documents and Settings\All Users\「开始」菜单\程序\"
Shell "cmd /c for /f ""delims="" %i in ('dir /a /b') do attrib ""%i"" +h", vbNormalFocus
End Sub
'弹出的窗口自动关闭后完成，要隐藏窗口，把vbNormalFocus改为vbHide
试试改动注册表中对应的键值吧。