Работа с массивом элементов image - VB
Формулировка задачи:
Подскажите, пожалуйста!!!!! Имеется массив картинок, которые появляются при загрузке. Все картинки можно на форме свободно перемещать. Необходимо ещё при нажатии на картинку ее скрыть. Но! Реакции никакой нет, даже просто сообщение , например, не выводит.При этом, если загружаю картинку на форму вручную, то все работает. В чем проблема???
Решение задачи: «Работа с массивом элементов image»
textual
Листинг программы
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) x1 = Source.Left y1 = Source.Top If x1 = 0 Then Source.Move X, Y, Source.Width, Source.Height Debug.Print "Form_DragOver" ind = ind + 1 Load Image1(ind) With Image1(ind) .Stretch = 1 .Picture = Source.Picture .Move 0, 0, Source.Width, Source.Height .DragMode = 1 .Visible = 1 End With ind1 = ind1 + 1 Load Image2(ind1) With Image2(ind1) .Stretch = 1 .Picture = Source.Picture .Move X, Y, Source.Width, Source.Height .DragMode = 1 .Visible = 1 End With Else Source.Move X, Y, Source.Width, Source.Height End If End Sub Private Sub Form_Load() On Error Resume Next ChDir App.Path Load Image1(ind) With Image1(ind) .Stretch = 1 .Picture = LoadPicture("pic\comutator.jpg") .Move 0, 0, rct, rct .DragMode = 1 .Visible = 1 End With Load Image2(ind1) With Image2(ind1) .Stretch = 1 .Picture = LoadPicture("pic\router.jpg") .Move 0, rct, rct, rct .DragMode = 1 .Visible = 1 End With End Sub Private Sub Image1_Click(Index As Integer) MsgBox ("112133") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д