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
0条评论