vb6 - 在条件 vb6 时执行

Question

我有一个小的 vb6 程序:

Private Sub Form_Load()
    Dim varTemp As Variant
    Dim string1 As String

    Dim x As Integer
    x = 0

    dialog.Filter = "toate fisierele(*.*) | *.*"
    dialog.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames Or cdlOFNExplorer

    'open the window to select files
    dialog.ShowOpen

    varTemp = Split(dialog.FileName, vbNullChar)

    Do While (varTemp(x) <> "")

    string1 = varTemp(x)
    x = x + 1

    Loop

    Unload Form1
    End

End Sub

我希望 Do While 循环直到它到达 varTemp 的末尾。但是，当我从对话框中选择两个文件并且“Do While”被 x = 3 击中时，我得到“运行时错误‘9’:下标超出范围”。 “Do While”循环必须在什么条件下循环直到 varTemp 结束？谢谢你。

Answer 1

您可以改用它:

Do While x <= UBound(varTemp)

由于 varTemp 将是一个数组，这将循环直到您命中数组中的最后一个元素。

如果用户取消选择，并且 varTemp 为空，您可以在循环之前检查空字符串，如下所示:

If varTemp <> vbNullString Then 
    Do While x <= UBound(varTemp)

        string1 = varTemp(x)
        x = x + 1

    Loop
End If