Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по Select Case / 9 сообщений из 9, страница 1 из 1
08.10.2011, 07:48
    #37473806
Eugen2011
Eugen2011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Всем привет! Подскажите пожалуйста, как правильно вложить моё творчество в оператор Select Case?
Заранее спасибо!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
 
Private Function LoadMyFile() 
Dim T3t As Integer
T3t = Val(Text1.Text)
If Check1.Value =  1  Then
    If T3t =  2  Then LoadFile2
    If T3t =  3  Then LoadFile3
    If T3t =  4  Then LoadFile4
    If T3t =  5  Then LoadFile5
End If
Exit Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2011, 09:59
    #37473838
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Private Function LoadMyFile()
Dim T3t As Integer
If Check1.Value = 1 Then
Select Case Val(Text1.Text)
Case 2
LoadFile2
Case 3
LoadFile3
Case 3
LoadFile4
Case 4
LoadFile5
End Select
End If
Exit Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2011, 10:00
    #37473841
alex77755
alex77755
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Сорри! Теги пропустил
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Function LoadMyFile()
Dim T3t As Integer
If Check1.Value =  1  Then
    Select Case Val(Text1.Text)
        Case  2 
            LoadFile2
        Case  3 
            LoadFile3
        Case  3 
            LoadFile4
        Case  4 
            LoadFile5
    End Select
End If
Exit Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2011, 13:38
    #37473961
Eugen2011
Eugen2011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
alex77755
Спасибо! Работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2011, 20:17
    #37474138
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Eugen2011,

Код: plaintext
1.
2.
3.
Private Function LoadMyFile()
If Check1.Value =  1  Then Application.Run "LoadFile" & Text1.Text
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2011, 23:22
    #37474273
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Hugo121,

ты хоть предупреждай человека, что это для ВБА. Автор ведь среду не упомянул.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2011, 01:02
    #37474321
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Shocker.Pro, упс, точно, не заметил, что ветка не та... :) Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2011, 02:47
    #37474348
AndrF
AndrF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
И в VB6 можно легко выполнить строку вызвав Eval того же ScriptControl-a...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.10.2011, 09:02
    #37474382
Eugen2011
Eugen2011
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вопрос по Select Case
Всем спасибо за внимание. Мне подошёл вариант который написал alex77755
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по Select Case / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 465ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158395]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 337ms
total:  465ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]