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

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

  1. segail

    segail Гость

    Здравствуйте
    Подскажите как изменить текст сообщения ”АААА” на ”ББББ” если 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 Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.470
    Симпатии:
    27
    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 Гость

    Код (Text):
    re = IIf(Textbox1 = 0, "AAAA", "BBBB")
    If MsgBox(re, vbYesNo Or 48, " ") = vbNo Then Exit Sub
     
  4. segail

    segail Гость

    То что надо
    Спасибо
     
  5. hosm

    hosm * so what *

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

    segail Гость

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

    hosm * so what *

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

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