问do while条件vb6
EN

Stack Overflow用户

提问于 2013-01-09 22:10:05

回答 1查看 9.9K关注 0票数 2

我有一个小的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结束？谢谢。

vb6

while-loop

回答 1

Stack Overflow用户

回答已采纳

发布于 2013-01-09 22:15:23

您可以改用下面的代码：

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

票数 4

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/14237099

复制

相似问题

问do while条件vb6
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问do while条件vb6EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问do while条件vb6
EN