ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / изменить картинку в форме
4 сообщений из 4, страница 1 из 1
изменить картинку в форме
    #39030283
rema174
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rema174
Гость


Есть форма, картинку выбрал (показана как Bitmap), т.о. эта картинка в редакторе отобразилась. Как теперь эту картинку отобразить при выполнении? Как я понял за это отвечает след-й код, там изначально отображалось пять картинок в зависомости от выбора type... Каким образом отобразить при выполнении нужную картинку - та которая выбрана в редакторе, потому что при выполнении отбражается другая картинка?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub UpdateRegType()
    Dim n As Long
    n = RegType.ListIndex
    Image1.Visible = (n = 0)
    Image2.Visible = (n = 1)
    Image3.Visible = (n = 2)
    Image4.Visible = (n = 3)
    Image5.Visible = (n = 4)
End Sub
...
Рейтинг: 0 / 0
16.08.2015, 14:50
| Ответить | Цитировать | Написать  
изменить картинку в форме
    #39030284
rema174
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rema174
Гость
...
Рейтинг: 0 / 0
16.08.2015, 14:53
| Ответить | Цитировать | Написать  
изменить картинку в форме
    #39030394
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Совершенно непонятно, что вы хотите. Если вы задаете какую-то картинку в редакторе, она будет видна и при выполнении, если ее никакой код не прячет и не затирает. Если ее прячет или затирает какой-то код, уберите этот код.
...
Рейтинг: 0 / 0
16.08.2015, 20:50
| Ответить | Цитировать | Написать  
изменить картинку в форме
    #39031111
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
rema174, при инициализации формы задайте нужный RegType.ListIndex и запустите эту процедуру
Код: vbnet
1.
2.
3.
4.
5.
Private Sub UserForm_Initialize()
  RegType.List = Array("type1", "type2", "type3") 'пример заполнения комбобокса
  RegType.ListIndex = 1 'у 1-го элемента индекс 0
  UpdateRegType
End Sub
...
Рейтинг: 0 / 0
17.08.2015, 20:33
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / изменить картинку в форме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%B5%D1%83%D1%8B%D0%B5-20&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 15ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 768ms
total:  930ms
созд. / загр.: 930ms
x
x
Закрыть


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