Работа с массивом элементов 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы