VB表单大小调整事件有问题吗？

Question

使用VB6

使用MDI表单，子表单也

当我在15英寸以上的屏幕，Crviewer控件，框架控件中运行该软件时，所有内容都出现在75％的屏幕中，我在窗体调整大小事件中编写了Crviewer控件的代码。

码

Private Sub Form_Resize()
    CRviewer2.Top = 1450
    CRviewer2.Left = 0
    CRviewer2.Height = ScaleHeight - 1450
    CRviewer2.Width = ScaleWidth
End Sub

有时它显示错误，有时它正在执行，因此对于所有控件，应该在所有类型的Windows屏幕上显示任何其他代码

请提供任何帮助解决问题。

Answer 1

关于此代码，您需要修改几件事。

首先，您应该检查窗口状态以确保未将窗口最小化。 如果将其最小化，则用户无论如何都看不到屏幕，因此您无需调整大小。

其次，您需要确保没有将任何属性设置为小于或等于0的值。

第三，您应该在此代码中进行错误处理。

Private Sub Form_Resize()

    On Error Resume Next

    If Me.WindowState = vbMinimized Then
        Exit Sub
    End If

    CRviewer2.Top = 1450
    CRviewer2.Left = 0
    If ScaleHeight > 1450 Then
        CRviewer2.Height = ScaleHeight - 1450
    End If

    CRviewer2.Width = ScaleWidth
End Sub