是否可以设置表单的最小宽度和最大高度?

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