可以设置表单的MinWidth和MaxHeight吗？

Question

我是VB6的新手，我这样做只是因为我有一个25年前创建的项目。

我需要限制表单的大小，特别是MinWidth和MaxHeight。

我有没有可以像WinForms或WPF中那样使我做到的属性？

例：

FormName.MinWidth =1000;

我试过了，但无法正常工作：

If W < 7399 Then
  W = 7400
  Enabled = False
  DoEvents: DoEvents
  Enabled = True
ElseIf W >= 7400 Then
  W = cmdSelect.Width
  DoEvents: DoEvents
  Enabled = True
End If

Answer 1

一般方法是对Form_Resize事件做出响应。

Option Explicit

Private Const MINWIDTH As Single = 1000
Private Const MAXHEIGHT As Single = 6000

Private Sub Form_Resize()
   If Me.WindowState = vbMinimized Then Exit Sub

   If Me.Width < MINWIDTH Then Me.Width = MINWIDTH
   If Me.Height > MAXHEIGHT Then Me.Height = MAXHEIGHT
End Sub