参考一下vb6的程序: Option Explicit 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 LongPrivate Sub Form_Resize() Dim a, b, c a = Me.Width / 15 b = Me.Top / 10 c = Me.Left / 10 SetWindowPos Me.hwnd, 0, c, b, a, 200, 0 End Sub 这段程序把最大化时也控制在一定高度上
Option Explicit
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 LongPrivate Sub Form_Resize()
Dim a, b, c
a = Me.Width / 15
b = Me.Top / 10
c = Me.Left / 10
SetWindowPos Me.hwnd, 0, c, b, a, 200, 0
End Sub
这段程序把最大化时也控制在一定高度上