ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Много изображений на одном месте, выборка?
3 сообщений из 3, страница 1 из 1
Много изображений на одном месте, выборка?
    #35193720
cadrus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cadrus
Участник
Здравствуйте, уважаемые господа
Постараюсь покорректнее изложить проблемку.
На форме на одном месте установлено 24 изображения.
По событию Combobx_change из 4-х комбобоксов генерится код ImageCode, который является частью имени изображения.
Задача - нужно показать соответствующуб картинку, остальные погасить.
Ход думаю применить такой: (сначала думал Select Case делать)
Гасим все имэйджи, а потом зажигаем один, который как-то надо
обозначить что-ли..
Вобщем имя картинки состоит из Im и кода ImageCode As string,
подсажите пожалста, как это обставить можно?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
Private Sub ImageShow()
Dim ImageToShow As Image

????

Im30WHTCIN4.Visible = False
Im30WHTCIN9.Visible = False
Im30WHTALN4.Visible = False
Im30WHTALN9.Visible = False
Im30WHTSSN4.Visible = False
Im30WHTSSN9.Visible = False
Im30BLKCIN4.Visible = False
Im30BLKCIN9.Visible = False
Im30BLKALN4.Visible = False
Im30BLKALN9.Visible = False
Im30BLKSSN4.Visible = False
Im30BLKSSN9.Visible = False

Im31WHTCIN4.Visible = False
Im31WHTCIN9.Visible = False
Im31WHTALN4.Visible = False
Im31WHTALN9.Visible = False
Im31WHTSSN4.Visible = False
Im31WHTSSN9.Visible = False
Im31BLKCIN4.Visible = False
Im31BLKCIN9.Visible = False
Im31BLKALN4.Visible = False
Im31BLKALN9.Visible = False
Im31BLKSSN4.Visible = False
Im31BLKSSN9.Visible = False

ImageToShow.Visible = True

End Sub
...
Рейтинг: 0 / 0
16.03.2008, 18:49
| Ответить | Цитировать | Написать  
Много изображений на одном месте, выборка?
    #35194842
dd44
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dd44
Гость
Я сталкивался с подобной задачей, решил ее так:
Me.Image1.Picture = LoadPicture(mypath & "\" & Me.ComboBox1.Text & ".jpg")

в mypath я добавлял путь к открытому фалу, т.к. там же лежали картинки.

данный код я писал в combobox1_Change()
тогда у вас при выборе значения в комбике будет подружаться нужная картинка в имедж.

Обращаю Ваше внимание, что начение комбобокса и имени файла должны строго свпадать. ))
...
Рейтинг: 0 / 0
17.03.2008, 12:37
| Ответить | Цитировать | Написать  
Много изображений на одном месте, выборка?
    #35195631
cadrus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cadrus
Участник
Спасибо, но я применил другой метод - мне на vbstreets человек посоветовал
Controls("Im" + ImageCode).Visible = True
...
Рейтинг: 0 / 0
17.03.2008, 15:32
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Много изображений на одном месте, выборка?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2162528]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 80ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 233ms
total:  399ms
созд. / загр.: 399ms
x
x
Закрыть


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