Постараюсь покорректнее изложить проблемку.
На форме на одном месте установлено 24 изображения.
По событию Combobx_change из 4-х комбобоксов генерится код ImageCode,
который является частью имени изображения.
Задача - нужно показать соответствующуб картинку, остальные погасить.
Ход думаю применить такой: (сначала думал Select Case делать)
Гасим все имэйджи, а потом зажигаем один, который как-то надо
обозначить что-ли..
Вобщем имя картинки состоит из Im и кода ImageCode As string,
подсажите пожалста, как это обставить можно?
Как задать в таком случае изображение, которое надо отобразить?
- Код: Выделить всё
Private Sub ImageShow()
????
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
