用VB6实现隐藏和显示"程序"选单

王永耀很多体例安定软硬件如“超等兔子”、“体例优化巨匠”等，都有一项很酷的功效，即是不妨自在湮没和表露“发端”选单中“步调”各项的功效。假设在咱们的步调中也能实行如许的功效，是否会为步调添色不少呢？本来，咱们用vb不妨轻快实行如许的功效。 实行本领 个中最要害的一点即是：在win 9第88中学，“步调”项的表露和湮没不妨经过变换c:windowsstart menuprograms(注：这边假如您的windows安置在c盘)文献夹下各文献或文献夹的属性来实行。要湮没“步调”中的名目，只有相映的文献或文献夹属性设成“湮没”；要表露名目，也只有去掉相映东西的“湮没”属性即可。那么，还好吗遏制文献的属性呢？在vb中，api因变量有很要害的效率，不妨实行很多宏大的功效。个中，getfileattributes因变量不妨获得文献的属性、setfileattributes因变量不妨变动文献属性、getwindowsdirectory因变量不妨获得体例目次，有了这三个api“宝贝”镇守，步调实行就很简单了。当步调启用时挪用getwindowsdirectory因变量获得体例目次的路途，再用dir因变量在一个列表框中列出“体例目次start menuprograms ”目次下的一切文献和文献夹，并挪用getfileattributes因变量来赢得各文献和文献夹的属性，若属性为“湮没”，就把相映的列表项勾选（表白此项已湮没）。在列表框中勾选你想要湮没的名目，接着挪用setfileattributes因变量，将勾选项相映的文献或文献夹的属性改为“湮没”（表白将其湮没），去掉未勾选项相映的文献或文献夹的“湮没”属性。如许，十足就搞定了。 步调代码及解说 开始兴建一个project工程，并在form第11中学创造一个列表框list1,其style属性为：checkbox(复选框格局);四个吩咐按钮：command1、command2、command3和command4。  简直步调代码如次： 'declarations局部，证明api因变量 private declare function getfileattributes lib "kernel32" alias "getfileattributesa" (byval lpfilename as string) as long private declare function setfileattributes lib "kernel32" alias "setfileattributesa" (byval lpfilename as string, byval dwfileattributes as long) as long private declare function getwindowsdirectory lib "kernel32" alias "getwindowsdirectorya" (byval lpbuffer as string, byval nsize as long) as long '证明变量 dim i as integer dim lngpath as long dim tmppath as string dim strpath as string dim strdir as string '设置子进程1，用来表露“步调”选单各项，并决定能否仍旧湮没 sub getfileattr() i = 0 tmppath = space(50) lngpath = getwindowsdirectory(tmppath, len(tmppath)) strpath = left(tmppath, lngpath) && "start menuprograms" 'programs路途 strdir = dir(strpath, vbdirectory + vbnormal + vbhidden + vbarchive + vbreadonly + vbsystem) '将一切步调名目增添到列表框中 do while strdir ＜＞ "" if strdir ＜＞ "." and strdir ＜＞ ".." then list1.additem strdir i = i + 1 if (getfileattributes(strpath && strdir) and vbhidden) then '获得文献或文献夹属性，若为湮没则勾选 list1.selected(i - 1) = true end if end if strdir = dir loop '下一个文献或路途 end sub '设置子进程2 sub setfileattr() tmppath = space(50) lngpath = getwindowsdirectory(tmppath, len(tmppath)) strpath = left(tmppath, lngpath) && "start menuprograms" '获得“programs”路途 for i = 0 to (list1.listcount - 1) if list1.selected(i) = true then '勾选则湮没，反之则表露 setfileattributes strpath + list1.list(i), vbhidden else setfileattributes strpath + list1.list(i), vbnormal end if next i end sub private sub command1_click() call setfileattr '挪用子进程2变换文献属性 end sub private sub command2_click() end end sub private sub command3_click() for i = 0 to list1.listcount - 1 '全选 list1.selected(i) = true next i end sub private sub command4_click() for i = 0 to list1.listcount - 1 '全否 list1.selected(i) = false next i end sub private sub form_load() form1.caption = "湮没和表露步调选单" command1.caption = "决定" command2.caption = "退出" command3.caption = "全选" command4.caption = "全否" call getfileattr '挪用子进程1，获得文献属性并初始化列表框各项 end sub 按f5运转后，步调下的文献和文献夹会一个不漏地表露在列表框里，再勾选几个，按“确认”,翻开“发端选单”的“步调”，方才勾选的几个不见了。再次运路途序，看看列表框里，是否方才勾选的此刻仍旧勾选着呢？那即是报告你，“步调”选单中仍旧湮没了那些项。经过窜改文献属性还不妨实行很多的功效，如处置“发送”(send to)、“保藏夹”(favorites)等,就看你怎样精巧应用了。 之上步调在windows 98、vb 6.0企业版下调节和测试经过。