如何隐藏MDIFORM窗体的标题栏
编号：QA002576
建立日期: 2000年2月15日 最后修改日期：2000年2月15日
所属类别：
刘天阳:
编程工具: VB5.0
操作系统: WIN98
我设计了一个MDIFORM，想隐藏窗体的标题栏，尤其是不希望在按下ALT+空格时出现那个下拉菜单，请问有什么办法可以实现。
回答:
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
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Private Sub MDIForm_Load()
Dim L As Long
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_CAPTION)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub
此问题由李海回答。
| |
|
|
| |
|
|
