Структура If Then...

[Saturn.65]

Даны несколько TextBox. При нажатии на кнопку нужно посмотреть, если первый Text1.Text пустой, то ввести туда значение, если он не пустой, то записать во второй TextBox, если занят второй, то записать в третий и т.д. Пример:

Код: Выделить всё

Private Sub Command1_Click()
If Text1.Text = "" Then
Text1.Text = 5 + 5
ElseIf Val(Text1.Text) > 0 Then
Text2.Text = 6 + 6
ElseIf Val(Text2.Text) > 0 Then
Text3.Text = 7 + 7
Else
MsgBox "ОК"
End If
End Sub


Дальше Text2.Text операции не выполняются. Что может быть не правильно? И как правильно написать.

[MIT]

Может лучше длину строки с нулем сравнивать, а не саму строку?

[Saturn.65]

Может лучше длину строки с нулем сравнивать, а не саму строку?

Всяко пробовал. Мне надо чтоб с каждым нажатием кнопки запись происходила в следующий TextBox по очереди, а не сразу во все.

[Xcode]

Попробуй протрасировать код. Думаю поймешь почему так происходит.

[Денис]

Для этого кода ты должен сделать текстбоксы массивом (в дизайнере):

Код: Выделить всё

Private Sub Command1_Click()

    Dim i as integer
   
    for i = 0 to TextB.Count-1
        If TextB(i).Text = "" Then
            TextB(i).Text = (5+i) + (5+i)
            exit for
        else
            MsgBox "ОК"
        end if
    next

End Sub

[Saturn.65]

Денис
Это то что надо! Большое спасибо!

[Хакер]

Saturn.65, а ты вообще когда-нибудь пользуешься переменными? Или только текстбоксами?

[Saturn.65]

Saturn.65, а ты вообще когда-нибудь пользуешься переменными?

Работаю. Просто я для примера показал. А кстати, в чем будет плюс замены, например Text1.Text на переменную?
Или я не в тему?

[Хакер]

У меня есть килограмм гвоздей. Их можно хранить в картонной коробке, а можно купить специально для этого новый автомобиль и хранить гвозди в салоне.

В чём плюс картонной коробки?

[Debugger]

В том, что она в самый нужный момент порвется.
Переменные, если я не ошибаюсь, работуют несколько быстрее обращений к свойствам.