ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вопрос по Select Case
9 сообщений из 9, страница 1 из 1
Вопрос по Select Case
    #37473806
Eugen2011
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugen2011
Гость
Всем привет! Подскажите пожалуйста, как правильно вложить моё творчество в оператор 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, 07:48
| Ответить | Цитировать | Написать  
Вопрос по Select Case
    #37473838
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
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, 09:59
| Ответить | Цитировать | Написать  
Вопрос по Select Case
    #37473841
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
Сорри! Теги пропустил
Код: 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, 10:00
| Ответить | Цитировать | Написать  
Вопрос по Select Case
    #37473961
Eugen2011
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eugen2011
Гость
alex77755
Спасибо! Работает!
...
Рейтинг: 0 / 0
08.10.2011, 13:38
| Ответить | Цитировать | Написать  
Вопрос по Select Case
    #37474138
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
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, 20:17
| Ответить | Цитировать | Написать  
Вопрос по Select Case
    #37474273
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Hugo121,

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


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