VB6 MinWidth и MaxHeight формы VB6

Question

Я новичок в VB6, и я делаю это только потому, что у меня есть проект, созданный 25 лет назад.

Теперь я нашел что-то нехорошее в форме, и я хочу создать его MinWidthи MaxHeight.

У меня есть любое свойство, которое может заставить меня сделать это, как в WinForm или 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