Не считываются индексы контролов массива Image - VB

Узнай цену своей работы

Формулировка задачи:

Массив 'контролов' Image(33) создается программно, размещается в форме клетками 7Х5 , заполняется картинками. Код между '********* звездочками см. ниже. Не догоняю почему в процедуре клик не считывается индекс элемента, возвращает ошибку 'переменная не определена'. Кто поможет? Массив из трех options ( OptMode ) таки нормально возвращает индекс в 'клике', а ImgLTR - нет. Для проверки создал в той же форме короткий массиве image вручную, индекс тоже читается. Единственное отличие было у ImgLTR : первый индекс =1. Заменил на 0-32, тоже не помогло.

Решение задачи: «Не считываются индексы контролов массива Image»

textual
Листинг программы
Dim ZazGor1%, ZazGor2%, ZazVer1%, ZazVer2%
 
Private Sub Form_Load()
ZazGor1 = (Me.ScaleHeight - Img1(1).Height * 5) \ 8
ZazGor2 = ZazGor1 * 2
 
ZazVer1 = (Me.ScaleWidth - Img1(1).Width * 7) \ 10
ZazVer2 = ZazVer1 * 2
 
For i = 0 To 4
For j = 0 To 6
s = s + 1
Img1(s).Top = ZazGor2 + (Img1(1).Height + ZazGor1) * i
Img1(s).Left = ZazVer2 + (Img1(1).Width + ZazVer1) * j
Next j
Next i:
End Sub

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

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