怎么在VB程序中设置window的任务栏为自动隐藏？？

Question

怎么在VB程序中设置window的任务栏为自动隐藏？

Answer 1

1.添加一个模块.名字就用默认的吧.再复制代码到模块中.
Option ExplicitDim rtn As LongDeclare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPublic Const SWP_HIDEWINDOW = &H80
Public Const SWP_SHOWWINDOW = &H402.回到form中,添加两个按钮,名字为"隐藏任务栏"、"显示任务栏"
3.下面用到代码了，看好了，要对号入座的。
首先是load
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
其次是显示任务栏的
rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
最后是隐藏任务栏的
rtn = FindWindow("Shell_traywnd", "")
Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
曾经BAIDU来的