Declare Function SetWindowPos Lib "user32.dll"
(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 Long wFlags可以为0或下述值,以指明如何移动窗口。SWP_FRAMECHANGED = &H20 在新位置完全重画窗口
SWP_DRAWFRAME = &H20 同SWP_FRAMECHANGED
SWP_HIDEWINDOW = &H80 隐藏窗口
SWP_NOACTIVATE = &H10 移动窗口,并不自动激活它
SWP_NOCOPYBITS = &H100 被拖动后不重画
SWP_NOMOVE = &H2 不移动窗口
SWP_NOSIZE = &H1 不改变窗口大小
SWP_NOREDRAW = &H8 不去掉前一位置的窗口图像
SWP_NOZORDER = &H4 不改变窗口的前后顺序
SWP_SHOWWINDOW = &H40 将隐藏的窗口显示出来
(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 Long wFlags可以为0或下述值,以指明如何移动窗口。SWP_FRAMECHANGED = &H20 在新位置完全重画窗口
SWP_DRAWFRAME = &H20 同SWP_FRAMECHANGED
SWP_HIDEWINDOW = &H80 隐藏窗口
SWP_NOACTIVATE = &H10 移动窗口,并不自动激活它
SWP_NOCOPYBITS = &H100 被拖动后不重画
SWP_NOMOVE = &H2 不移动窗口
SWP_NOSIZE = &H1 不改变窗口大小
SWP_NOREDRAW = &H8 不去掉前一位置的窗口图像
SWP_NOZORDER = &H4 不改变窗口的前后顺序
SWP_SHOWWINDOW = &H40 将隐藏的窗口显示出来
Alias "FindWindowA" (ByVal lpClassName As String,
ByVal lpWindowName As Any) As LongPrivate Declare Function ShowWindow Lib "user32"
(ByVal hwnd As Long,ByVal nCmdShow As Long) As LongConst SW_HIDE=0
Const SW_SHOWNORMAL=1Private Sub PsHideTask()
Dim hTaskBar As Integer
hTaskBar=FindWindow("Shell_TrayWnd",0&)
ShowWindow hTaskBar,SW_HIDE
End Sub
SWP_DRAWFRAME 围绕窗口画一个框
SWP_HIDEWINDOW 隐藏窗口
SWP_NOACTIVATE 不激活窗口
SWP_NOMOVE 保持当前位置(x和y设定将被忽略)
SWP_NOREDRAW 窗口不自动重画
SWP_NOSIZE 保持当前大小(cx和cy会被忽略)
SWP_NOZORDER 保持窗口在列表的当前位置(hWndInsertAfter将被忽略)
SWP_SHOWWINDOW 显示窗口
SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口,即使窗口的大小没有改变
(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 Long 调用SetWindowPos的参数设定:
x 0
y 0
cx Screen.Width/Screen.TwipsPerPixelX-1
cy Screen.Height/Screen.TwipsPerPixelY-1