на бейсике это примерно так:
- Код: Выделить всё
Select Case strValue
Case "Val1"
'вызов процедуры1
Case "Val1"
'вызов процедуры2
End Select
Модератор: Ramzes

Select Case strValue
Case "Val1"
'вызов процедуры1
Case "Val1"
'вызов процедуры2
End SelectСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7