在运行时显示或隐藏窗体的标题栏_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

在运行时显示或隐藏窗体的标题栏

作者：闵涛文章来源：闵涛的学习笔记点击数：774 更新时间：2009/4/23 18:58:53

这则代码告诉你如何在运行时显示或隐藏窗体的标题栏。要使一个窗口的标题栏消失，你必须去掉control box、最大化按钮和最小化按钮，并且将caption设为空。不幸的是，VB中窗体的ControlBox、MinButton和MaxButton属性在运行期是只读的，因此，你只能在设计时做这些事。其实，只要能熟练操作关于窗口式样的API，你同样能在运行时办到这一点。
　　新建一个项目，把以下代码写入窗体：

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000　　 '''' WS_BORDER 或 WS_DLGFRAME
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private 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

Private Enum ESetWindowPosStyles
　　SWP_SHOWWINDOW = &H40
　　SWP_HIDEWINDOW = &H80
　　SWP_FRAMECHANGED = &H20 '''' The frame changed: send WM_NCCALCSIZE
　　SWP_NOACTIVATE = &H10
　　SWP_NOCOPYBITS = &H100
　　SWP_NOMOVE = &H2
　　SWP_NOOWNERZORDER = &H200 '''' Don''''t do owner Z ordering
　　SWP_NOREDRAW = &H8
　　SWP_NOREPOSITION = SWP_NOOWNERZORDER
　　SWP_NOSIZE = &H1
　　SWP_NOZORDER = &H4
　　SWP_DRAWFRAME = SWP_FRAMECHANGED
　　HWND_NOTOPMOST = -2
End Enum

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
End Type

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

'''' 你可能需要在Form_Resize中加一点代码，因为客户区的大小已经改变：
''''Form_Resize

End Function

　　为了试验一下代码，在窗体上放一个CheckBox，将它的Value属性设为1 (Checked)。然后写入以下代码：

Private Sub Check1_Click()
　　If (Check1.Value = Checked) Then
　　ShowTitleBar True
　　Else
　　ShowTitleBar False
End If
End Sub

　　运行，当你点击这个CheckBox时，窗体的标题栏将会在隐藏或显示之间切换。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VB IGMP

下一篇教程：判别剪贴板上所有可用的格式

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……