Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Много изображений на одном месте, выборка? / 3 сообщений из 3, страница 1 из 1
16.03.2008, 18:49
    #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
| Ответить | Цитировать | Написать  
17.03.2008, 12:37
    #35194842
dd44
dd44
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Много изображений на одном месте, выборка?
Я сталкивался с подобной задачей, решил ее так:
Me.Image1.Picture = LoadPicture(mypath & "\" & Me.ComboBox1.Text & ".jpg")

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

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

Обращаю Ваше внимание, что начение комбобокса и имени файла должны строго свпадать. ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.03.2008, 15:32
    #35195631
cadrus
cadrus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Много изображений на одном месте, выборка?
Спасибо, но я применил другой метод - мне на vbstreets человек посоветовал
Controls("Im" + ImageCode).Visible = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Много изображений на одном месте, выборка? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 374ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162528]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 57ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 223ms
total:  374ms
x
x
Закрыть


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