Vb6 VB窗体调整事件大小问题？

使用VB6

使用MDI表单，子表单

当我在超过15英寸的屏幕上运行该软件时，Crviewer控件、帧控件，所有内容都显示在75%的屏幕上，我在form resize事件中为Crviewer控件编写了代码

代码

有时它显示错误，有时它正在执行，因此有任何其他代码可供所有控件使用。控件应显示在所有类型的windows屏幕大小中

---

请任何人帮助解决这些问题。

关于这段代码，您应该修改一些内容

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

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

其次，您需要确保没有将任何属性设置为小于或等于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

---

关于这段代码，您应该修改几件事

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

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

其次，您需要确保没有将任何属性设置为小于或等于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

---

框架和按钮呢。它将显示在屏幕大小中，框架、按钮如何？下面是他们的情况。您必须编写代码来调整它们的大小并将它们移动到您想要的位置。那么框架、按钮呢。它将显示在屏幕大小中，框架、按钮如何？下面是他们的情况。您必须编写代码来调整它们的大小并将它们移动到您想要的位置。