VB源代码推荐：动态的显示隐藏start按钮

VB源代码推荐:动态显示/隐藏开始按钮

&急性；# VBIDEUtils # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
& acute；*程序员姓名:Waty Thierry
& acute；*网址:www . geocities . com/research triangle/6311/
& acute；*电子邮箱:waty . Thierry @ USA . net
& acute；*日期:98年10月22日
& acute；*时间:15:50
&急性；*模块名称:Start _ Module
& acute；*模块文件名:start . bas
& acute；* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
& acute；*备注:显示/隐藏开始按钮
& acute；*
& acute；* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
私有声明函数FindWindow Lib " user 32 " Alias _
" findwindoa "(ByVal LP class name为字符串，_
ByVal lpWindowName为字符串)Long

私有声明函数FindWindow ex Lib " user 32 " Alias _
" FindWindow exa "(ByVal hwnd 1为Long，ByVal hWnd2为Long，_[/br

私有声明函数show window Lib " user 32 " _
(ByVal hwnd为Long，ByVal nCmdShow为Long)为Long

公共函数hideStartButton()
& acute；此功能隐藏开始按钮& acute
our parent & = FindWindow(" Shell _ tray wnd "，" ")
our handle & = FindWindowEx(our parent &，0，" Button "，_
vbNullString)
show window our handle &，0
End函数

公共函数showStartButton()
& acute；此功能显示开始按钮& acute
our parent & = FindWindow(" Shell _ tray wnd "，" ")
our handle & = FindWindowEx(our parent &，0，" Button "，_
vbNullString)

ShowWindow OurHandle&，5
End Function