Question

使用VB6

使用MDI表单，子表单也

当我在超过15英寸屏幕，Crviewer控件，帧控制中运行软件时，一切都出现在屏幕的75％，我在表单调整大小事件中写了Crviewer Control的代码。

代码

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

VB表格调整事件问题？

1 个答案: