Question

用VB编写的程序运行时，点击最小化会出错，然后关闭软件，请问这是什么原因？？

Private Sub Form_Resize()
On Error Resume Next
Dim i As Long
For i = PicMain.LBound To PicMain.UBound
If PicMain(i).Visible = True Then
PicMain(i).Move 0, 720, Me.ScaleWidth, Me.ScaleHeight - sbStatusBar.Height - OLEArr(0).Height - PicMain(i).Top - 15
OLEMain(i).Move 0, 0, PicMain(i).ScaleWidth, PicMain(i).ScaleHeight
For j = OLEArr.LBound To OLEArr.UBound
If OLEArr(j).Container.Name <> "PicMain" Then
OLEArr(j).Top = PicMain(i).Top + PicMain(i).Height
End If
Next
For j = PicArr.LBound To PicArr.UBound
If PicArr(j).Container.Name <> "PicMain" Then
PicArr(j).Top = PicMain(i).Top + PicMain(i).Height
End If
Next
End If
Next
End Sub

Answer 1

Private Sub Form_Resize()
        On Error Resume Next
        Dim i As Long
    If Me.WindowState = 1 Then Exit Sub '如果最小化就退出,防止出错
    For i = PicMain.LBound To PicMain.UBound
        If PicMain(i).Visible = True Then
            PicMain(i).Move 0, 720, Me.ScaleWidth, Me.ScaleHeight - sbStatusBar.Height - OLEArr(0).Height - PicMain(i).Top - 15
            OLEMain(i).Move 0, 0, PicMain(i).ScaleWidth, PicMain(i).ScaleHeight
            For j = OLEArr.LBound To OLEArr.UBound
                If OLEArr(j).Container.Name <> "PicMain" Then
                    OLEArr(j).Top = PicMain(i).Top + PicMain(i).Height
                End If
            Next
            For j = PicArr.LBound To PicArr.UBound
                If PicArr(j).Container.Name <> "PicMain" Then
                    PicArr(j).Top = PicMain(i).Top + PicMain(i).Height
                End If
            Next
        End If
    Next
End Sub

追问

还是会出错

追答

你先编译看一下是哪句出错(Ctrl+F5),改完后再试试!并把出错的语句放出来看看

追问

编译的按键是灰的。

Answer 2

贴出错那行代码，问问题都不会问

追问

是这个吗？不是学这个，完全不懂。谢谢

追答

把
On Error Resume Next

去掉，看哪行出错。

追问

怎么看出错？

追答

运行，最小化，看哪条代码背景变黄色