vb源代码推荐 : 动态的显示/隐藏start按钮
' #vbideutils#**********************************************
' * programmer name : waty thierry
' * web site : www.geocities.com/researchtriangle/6311/
' * e-mail : waty.thierry@usa.net
' * date : 22/10/98
' * time : 15:50
' * module name : start_module
' * module filename : start.bas
' *********************************************************
' * comments : show/hide the start button
' *
' ********************************************************
private declare function findwindow lib "user32" alias _
"findwindowa" (byval lpclassname as string, _
byval lpwindowname as string) as long
private declare function findwindowex lib "user32" alias _
"findwindowexa" (byval hwnd1 as long, byval hwnd2 as long, _
byval lpsz1 as string, byval lpsz2 as string) as long
private declare function showwindow lib "user32" _
(byval hwnd as long, byval ncmdshow as long) as long
public function hidestartbutton()
'this function hides the start button'
ourparent& = findwindow("shell_traywnd", "")
ourhandle& = findwindowex(ourparent&, 0, "button", _
vbnullstring)
showwindow ourhandle&, 0
end function
public function showstartbutton()
'this function shows the start button'
ourparent& = findwindow("shell_traywnd", "")
ourhandle& = findwindowex(ourparent&, 0, "button", _
vbnullstring)
showwindow ourhandle&, 5
end function
