- Сообщения
- 281
- Реакции
- 5
Есть форма, картинку выбрал (показана как Bitmap), т.о. эта картинка в редакторе отобразилась. Как теперь эту картинку отобразить при выполнении? Как я понял за это отвечает след-й код, там изначально отображалось пять картинок в зависомости от выбора type... Каким образом отобразить при выполнении нужную картинку - та которая выбрана в редакторе, потому что при выполнении отбражается другая картинка?
Код:
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
p.s. исходный макрос oberon cropmarks
Последнее редактирование: