否则，如果不能在Visual Basic 6中使用

Question

我想在图片框中显示所选图片。 以下是代码：

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
On Error GoTo lab
lab:
If Err.Number = 481 Then
    MsgBox ("Please select a valid Picture")
Else
    If Err.Number = 68 Then
        MsgBox ("Device not ready")
    End If
End If
Resume Next
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

情况481可以正常工作，但是第二种情况，错误68根本不起作用。 它显示运行时错误68。以下是输出：

请让我知道以上代码中的错误。

Answer 1

您通常将错误处理程序放在可能引发错误的代码之前吗？ 我自己无法用一个简单的案例来复制它，但是这段代码的结构似乎令人怀疑。 您还将有一个Resume Next没有循环。 尝试以下方法：

Private Sub File1_Click()
On Error GoTo lab
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
Exit Sub

lab:
Select Case Err.Number
    Case 481 Then
        MsgBox ("Please select a valid Picture")
    Case 68 Then
        MsgBox ("Device not ready")
End Select

End Sub

听起来您在其他过程中可能需要其他错误处理程序，例如：

Private Sub Dir1_Change()
    On Error Resume Next
    File1.Path = Dir1.Path
    If Err.Number = 0 Then Exit Sub
    Select Case Err.Number
        Case 68
            Msgbox ("Device not ready")
        Case Else
            MsgBox ("Error " & Err.NUmber) '# Modify as needed...
    End Select
End Sub

Private Sub Drive1_Change()
    On Error Resume Next
    Dir1.Path = Drive1.Drive
    If Err.Number = 0 Then Exit Sub
    Select Case Err.Number
        Case 68
            Msgbox ("Device not ready")
        Case Else
            MsgBox ("Error " & Err.NUmber) '# Modify as needed...
    End Select
End Sub