Не считываются индексы контролов массива 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д