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

[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]

 

[vital]

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)

 

[alex777]

re = IIf(Textbox1 = 0, "AAAA", "BBBB")
If MsgBox(re, vbYesNo Or 48, " ") = vbNo Then Exit Sub

 

[segail]

re = IIf(Textbox1 = 0, "AAAA", "BBBB")
If MsgBox(re, vbYesNo Or 48, " ") = vbNo Then Exit Sub

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

 

[hosm]

Я сегодня зануда: поясни-ка, в VB одновременно может быть

Textbox1 = 0
TextBox1.Text

(последнее используется в выражении - CDbl(TextBox1.Text))

 

[segail]

Я сегодня зануда: поясни-ка, в VB одновременно может быть

(последнее используется в выражении - CDbl(TextBox1.Text))

Короче нужно было так. Код работает что надо?

If MsgBox(IIf(Val(TextBox1) <> 0, "АААА", "ВВВВ"), vbYesNo + vbExclamation, "Информационное сообщение") = vbNo Then Exit Sub

 

[hosm]

Код работает что надо?

[post="155519"]описывать нормально задачу[/post] :what?: