vb 改变窗体大小问题?

来源：百度知道 编辑：UC知道 时间：2024/05/23 23:11:55
我想改变窗体大小，但又不想无限缩小，我用resize出问题了
Private Sub Form_Resize()
If Me.Width <= 5000 Then
Me.Width = 5000
End If
End Sub
出现 当最大化或最小华时窗体不能移动或调整
我该怎么办？？？
如果用 用错误陷阱,忽略错误
在拖动窗体时，窗体会闪烁的，界面不好看的

用错误陷阱,忽略错误
Private Sub Form_Resize()
On Error Resume Next

If Me.Width <= 5000 Then
Me.Width = 5000
End If
End Sub

打开任务管理器将其关闭

Private Sub Form_Resize()
If Me.WindowState <> 0 Then Me.WindowState = 0
If Me.Width <= 5000 Then
Me.Width = 5000
End If
End Sub

试一下看（禁止了最大化和最小化窗口）。