本人新手,求高手解答一下~
1.如何改变页框(红框之外)的颜色〜或是变成平面〜或是隐藏〜不是Form1.BorderStyle=0那种〜
2.有人能解释一下这两种Form之间的关系吗?或是提供这方面的资讯也可以〜
2011-06-11 03:14
2011-06-11 16:52

2011-06-11 18:11
2011-06-11 20:26


2011-06-11 21:43

2011-06-11 21:49


2011-06-11 21:59
程序代码:
Private Function ShowTitleBar()
Dim lStyle As Long
Dim tR As RECT
GetWindowRect Me.hwnd, tR
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
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
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
End Sub

2011-06-12 02:09
2011-06-12 02:14
2011-06-13 13:09