Вставка картинок с использованием Combobox - VB
Формулировка задачи:
Здравствуйте!
Необходимо сделать так, что бы при выборе в комбо определенного знака зодиака в Picture появлялась соответственная картинка.
Написал это через Select Case, но почему-то картинку выдает он только для козерога, других словно нет.
Имена проверял, пути тоже.
Огромное спасибо заранее!
Вот код:
Листинг программы
- Private Sub Combo1_Click()
- Select Case Combo1.ListIndex
- Case Козерог
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\kozerojkarojkarojka.jpg")
- Case Водолей
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\vod\vodkaley.jpg")
- Case Скорпион
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\Scorp.jpg")
- Case Овен
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\oven.jpg")
- Case Рак
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\mid.jpg")
- Case Телец
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\Telec.jpg")
- Case Стрелец
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\strelec.jpg")
- Case Рыбы
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\ribibeshki.jpg")
- Case Дева
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\devaha.jpg")
- Case Близнецы
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\bliznec.jpg")
- Case Лев
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\leo.jpg")
- Case Весы
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\ves.jpg")
- End Select
- End Sub
Решение задачи: «Вставка картинок с использованием Combobox»
textual
Листинг программы
- Case 0
- Picture2.Picture = LoadPicture("C:\Users\Tera\Desktop\ucheba\Project\Znaki\kozerojkarojkarojka.jpg")
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д