Чудеса, или разная работа кода в дизайнере и exe

Суббота, 19 Декабря 2020 г. 04:00 + в цитатник

BlackSun: В дизайнере код работает - при нажатии кнопки получаем "OK" на выходе:

Private Sub Test(Flag As Boolean)

Dim i As Long, sArr() As String

If Flag Then

ReDim sArr(0)

i = 0

GoTo mNext

End If

ReDim sArr(0 to 9)

For i = 0 To UBound(sArr)

mNext:

lblRes.Caption = "OK"

End Sub

Private Sub Command1_Click()

Test True

End Sub

В exe код зависает (Win10), не срабатывает Next (происходит зацикливание). В чём причина?

Метки: Visual Basic: Общие вопросы

Комментировать

Страницы: [1] [Новые]

LiveInternetLiveInternet