如何隐藏一个标题栏，不要BORDSTYLE=0

我需要API函数解决方案  
  把标题栏隐藏，然后还能显示。 问题点数：24、回复次数：1Top

1 楼fraser01（王晓栋）回复于 2001-12-10 15:22:44 得分 24

关于这个问题以前已经有了解答，以后请搜索一下以前的贴子，以免浪费时间。  
   
  窗体：  
  Private   Function   ShowTitleBar(ByVal   bState   As   Boolean)  
          Dim   lStyle   As   Long  
          Dim   tR   As   RECT  
          GetWindowRect   Me.hwnd,   tR  
          lStyle   =   GetWindowLong(Me.hwnd,   GWL_STYLE)  
          If   (bState)   Then  
                  Me.Caption   =   Me.Tag     '恢复标题栏文字  
                  If   Me.ControlBox   Then  
                          lStyle   =   lStyle   Or   WS_SYSMENU  
                  End   If  
                  If   Me.MaxButton   Then  
                          lStyle   =   lStyle   Or   WS_MAXIMIZEBOX  
                  End   If  
                  If   Me.MinButton   Then  
                          lStyle   =   lStyle   Or   WS_MINIMIZEBOX  
                  End   If  
                  If   Me.Caption   <>   ""   Then  
                          lStyle   =   lStyle   Or   WS_CAPTION  
                  End   If  
          Else  
                  Me.Tag   =   Me.Caption     '保存原始标题栏文字  
                  Me.Caption   =   ""     '清空标题栏  
                  lStyle   =   lStyle   And   Not   WS_SYSMENU  
                  lStyle   =   lStyle   And   Not   WS_MAXIMIZEBOX  
                  lStyle   =   lStyle   And   Not   WS_MINIMIZEBOX  
                  lStyle   =   lStyle   And   Not   WS_CAPTION  
          End   If  
          SetWindowLong   Me.hwnd,   GWL_STYLE,   lStyle  
          '   设置窗口大小不变  
          SetWindowPos   Me.hwnd,   0,   tR.Left,   tR.Top,   tR.Right   -   tR.Left,   tR.Bottom   -   tR.Top,   SWP_NOREPOSITION   Or   SWP_NOZORDER   Or   SWP_FRAMECHANGED  
          Me.Refresh  
  End   Function  
   
  Private   Sub   Command1_Click()  
          ShowTitleBar   True  
  End   Sub  
   
  Private   Sub   Command2_Click()  
          ShowTitleBar   False  
  End   Sub  
   
   
  模块：  
  Public   Declare   Function   SetWindowLong   Lib   "user32"   Alias   "SetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   nIndex   As   Long,   ByVal   dwNewLong   As   Long)   As   Long  
  Public   Declare   Function   GetWindowLong   Lib   "user32"   Alias   "GetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   nIndex   As   Long)   As   Long  
  Public   Declare   Function   FlashWindow   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   bInvert   As   Long)   As   Long  
  Public   Const   GWL_STYLE   =   (-16)  
  Public   Const   WS_CAPTION   =   &HC00000  
  Public   Const   WS_MAXIMIZEBOX   =   &H10000  
  Public   Const   WS_MINIMIZEBOX   =   &H20000  
  Public   Const   WS_SYSMENU   =   &H80000  
  Public   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   Long  
  Public   Enum   ESetWindowPosStyles  
          SWP_SHOWWINDOW   =   &H40  
          SWP_HIDEWINDOW   =   &H80  
          SWP_FRAMECHANGED   =   &H20  
          SWP_NOACTIVATE   =   &H10  
          SWP_NOCOPYBITS   =   &H100  
          SWP_NOMOVE   =   &H2  
          SWP_NOOWNERZORDER   =   &H200  
          SWP_NOREDRAW   =   &H8  
          SWP_NOREPOSITION   =   SWP_NOOWNERZORDER  
          SWP_NOSIZE   =   &H1  
          SWP_NOZORDER   =   &H4  
          SWP_DRAWFRAME   =   SWP_FRAMECHANGED  
          HWND_NOTOPMOST   =   -2  
  End   Enum  
   
  Public   Declare   Function   GetWindowRect   Lib   "user32"   (ByVal   hwnd   As   Long,   lpRect   As   RECT)   As   Long  
  Public   Type   RECT  
          Left   As   Long  
          Top   As   Long  
          Right   As   Long  
          Bottom   As   Long  
  End   Type  
  Top

相关问题

• ws
• me
• lstyle
• 标题栏
• showtitlebar
• caption
• swp
• byval
• hwnd
• tr

• 帖主：smallhawk001
• fraser01

• Visual Basic类图书
• Visual Basic类源码下载