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  将隐藏的窗口显示出来

解决方案 »

  1.   

    隐藏任务栏Private Declare Function FindWindow Lib "user32"
         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
      

  2.   

    wFlags Long,包含了旗标的一个整数 
    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消息进入窗口,即使窗口的大小没有改变 
      

  3.   

    让窗口满屏: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 调用SetWindowPos的参数设定:
       x   0
       y   0
       cx  Screen.Width/Screen.TwipsPerPixelX-1
       cy  Screen.Height/Screen.TwipsPerPixelY-1