VB的显示隐藏Start按钮
*模块名称:Start_Module
*模块文件名:Start . bas
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *[br/]私有声明函数FindWindow Lib "user32 "别名" FindWindowA" (ByVal lpClassName为String,ByVal lpWindowName为String)Long
私有声明函数FindWindowEx Lib“user 32”别名“FindWindowExA”(ByVal hwnd 1为Long,ByVal hWnd2为Long,ByVal lpsz1为String,ByVal lpsz2为String)为Long
私有声明函数show window Lib“user 32”(ByVal hwnd为Long,ByVal nCmdShow为Long)为Long
public Function hideStartButton()
'该函数隐藏开始按钮'
our parent & = FindWindow(" Shell _ tray wind "," ")
our handle & = FindWindow ex(our parent &,0," Button ",vbNullString)
show window our handle &,0
End函数
public Function show Start Button()
'该函数显示开始按钮'
our parent & = FindWindow(" Shell _ tray wind "," ")
our handle & = FindWindowEx(our parent &,0," Button ",vbNullString)
ShowWindow OurHandle&,5
End函数
0条评论