Vb6 是否可以设置窗体的MinWidth和MaxHeight？

我不熟悉使用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

如果W<7399，则
W=7400
已启用=错误
DoEvents:DoEvents
启用=真
如果W>=7400，则
W=cmdSelect.Width
DoEvents:DoEvents
启用=真
如果结束

通常的方法是响应

表单调整

事件

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

选项显式
专用常量最小宽度为单个=1000
专用常量最大高度为单个=6000
私有子表单_Resize（）
如果Me.WindowState=vb最小化，则退出Sub
如果Me.WidthMAXHEIGHT，则Me.Height=MAXHEIGHT
端接头

通常的方法是响应

表单调整

事件

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

选项显式
专用常量最小宽度为单个=1000
专用常量最大高度为单个=6000
私有子表单_Resize（）
如果Me.WindowState=vb最小化，则退出Sub
如果Me.WidthMAXHEIGHT，则Me.Height=MAXHEIGHT
端接头

“WinForm”和“VB6”是非常不同的技术；你用哪一种？您编写的代码在哪里运行？

W

来自哪里？在这里设置后，如何处理

W

，“WinForm”和“VB6”是非常不同的技术；你用哪一种？您编写的代码在哪里运行？

W

来自哪里？在这里设置后，如何处理

W

？当在resize事件中调用resize时，这里是否有递归的机会？递归似乎不是问题，但仍然需要使用“On Error Resume Next”（或其他更优雅的方法）来保护整个例程。这是因为，如果窗口最小化，例程将失败。@为了获得好的捕获，我更新了我的答案。我也从来没有遇到过递归问题。@ RockJunior，如果答案已经解决了你的问题，请考虑点击复选标记和点击上箭头来进行投票。这向更广泛的社区表明，您已经找到了解决方案。没有义务这么做。@DaveInCaz确定你是对的，我只是给你打分，但不接受当在resize事件中调用resize时，这里是否有递归的机会？递归似乎不是问题，但仍然有必要使用“On Error Resume Next”（或其他更优雅的方法）来保护整个例程。这是因为，如果窗口最小化，例程将失败。@为了获得好的捕获，我更新了我的答案。我也从来没有遇到过递归问题。@ RockJunior，如果答案已经解决了你的问题，请考虑点击复选标记和点击上箭头来进行投票。这向更广泛的社区表明，您已经找到了解决方案。没有义务这么做。@DaveInCaz确定你是对的，我只是给你打分，但没有被接受