Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Трехзадачный IF Добавлено: 02.01.04 20:51  

Автор вопроса:  el Di@mond | Web-сайт: www.artofcode.by.ru | ICQ: 313950105 

У меня условие

If msgbox("",vbExclamation + vbYesNoCancel,"") = vbyes then

Esle vbCancel

Else

End if

В чем проглюк?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
 Профиль | | #1 Добавлено: 02.01.04 21:17

dim lResult as long

lResult = msgbox("",vbExclamation + vbYesNoCancel,"")

If lresult= vbyes then

Esleif  lresult = vbCancel Then

Else

End if

Ответить

Номер ответа: 2
Автор ответа:
 AASoft



Вопросов: 86
Ответов: 920
 Профиль | | #2 Добавлено: 02.01.04 21:17

dim lResult as long

lResult = msgbox("",vbExclamation + vbYesNoCancel,"")

If lresult= vbyes then

Elseif  lresult = vbCancel Then

Else

End if

Ответить

Номер ответа: 3
Автор ответа:
 boevik



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
 Web-сайт: www.hypertech.ru
 Профиль | | #3
Добавлено: 04.01.04 09:49

А почему if, а не Select Case?

Select Case MsgBox("press", vbYesNoCancel)
    Case vbYes:
        Debug.Print "Yes"
    Case vbNo:
        Debug.Print "No"
    Case Else
        Debug.Print "Else"
End Select

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам