是否可以设置 Form 的 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

是否可以设置 Form 的 MinWidth 和 MaxHeight？

Is it possible to set MinWidth and MaxHeight of a Form?

vb6