Условие для сообщения.

Тема в разделе "Visual Basic", создана пользователем segail, 10 дек 2009.

  1. segail

    segail Гость

    Репутация:
    0
    Здравствуйте
    Подскажите как изменить текст сообщения ”АААА” на ”ББББ” если TextBox1=0
    <!--shcode--><pre><code class='vb'>DopUslov:
    If MsgBox("АААА", _
    vbYesNo Or 48, " ") = vbNo Then Exit Sub
    Cells(i + 35, 21).Value = CDbl(TextBox1.Text)[/CODE]
     
  2. vital

    vital Больной Компом Детектед

    Репутация:
    0
    Регистрация:
    29 янв 2006
    Сообщения:
    2.434
    Симпатии:
    39
    if TextBox1.text="0" then - Вы ЭТО имели ввиду?
    If MsgBox("BBBB", _
    vbYesNo Or 48, " ") = vbNo Then Exit Sub
    Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
    else
    If MsgBox("АААА", _
    vbYesNo Or 48, " ") = vbNo Then Exit Sub
    Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
     
  3. alex777

    alex777 Гость

    Репутация:
    0
    Код (Text):
    re = IIf(Textbox1 = 0, "AAAA", "BBBB")
    If MsgBox(re, vbYesNo Or 48, " ") = vbNo Then Exit Sub
     
  4. segail

    segail Гость

    Репутация:
    0
    То что надо
    Спасибо
     
  5. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.445
    Симпатии:
    8
    Я сегодня зануда: поясни-ка, в VB одновременно может быть
    (последнее используется в выражении - CDbl(TextBox1.Text))
     
  6. segail

    segail Гость

    Репутация:
    0
    Короче нужно было так. Код работает что надо?
    Код (Text):
    If MsgBox(IIf(Val(TextBox1) <> 0, "АААА", "ВВВВ"), vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub
     
  7. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.445
    Симпатии:
    8
    [post="155519"]описывать нормально задачу[/post] :what?:
     
Загрузка...

Поделиться этой страницей