Люди, подскажите пожалуйста. Мне надо на форме создать нечто вроде таблицы из image boxes. Вроде всё просто, но в VB. NET убрали мою любимую возможность - создание массивов элементов управления. Кто знает, как программно создать много image boxes на фореме (много это порядка 100) и как ими потом управлять. Буду очень благодарен за все советы

Цитата(YoD @ 1.12.2004, 00:30)

Вроде всё просто, но в VB. NET убрали мою любимую возможность - создание массивов элементов управления

Не убрали, а скорее усовершенствовали Просто в новой архитектуре использовать некое "загадочное" свойство Index у контролов, перестало быть необходимым. Теперь все контролы создаются програмно, в коде, а не где-то там за кулисами... И ф-ии для обработки событий назначаются тоже теперь програмно...
Короче вот код на примере массива PictureBox'ов. Ниже написанное засовываем в класс формы.

Код

'Объявим массив типа PictureBox    Dim pics() As System.Windows.Forms.PictureBox    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim i As Integer        'добавим Пять контролов        For i = 0 To 4            ReDim Preserve pics(i)            pics(i) = New System.Windows.Forms.PictureBox()            With pics(i)                'Задаем каждому следующему PictureBox, разную Х координату (i*150)                .Location = New System.Drawing.Point(i * 150, 0)                'Задаем цвет                .BackColor = System.Drawing.Color.AliceBlue                'Здесь пишем любую инициализацию экземпляров PictureBox            End With            'Далее задаем функции для событий            'MouseEnter, MouseLeave и Click соответственно            AddHandler pics(i).MouseEnter, AddressOf picMEnter            AddHandler pics(i).MouseLeave, AddressOf picMLeave            AddHandler pics(i).Click, AddressOf picClick        Next i        'Добавляем весь массив в коллекцию контролов формы        Me.Controls.AddRange(Me.pics)        Me.ResumeLayout()    End Sub    Private Sub picMEnter(ByVal sender As System.Object, ByVal e As System.EventArgs)        sender.BorderStyle = BorderStyle.Fixed3D    End Sub    Private Sub picMLeave(ByVal sender As System.Object, ByVal e As System.EventArgs)        sender.BorderStyle = BorderStyle.None    End Sub    Private Sub picClick(ByVal sender As System.Object, ByVal e As System.EventArgs)        Dim i As Integer        'Если надо узнать именно индекс в массиве,        'то ищем объект sender        i = pics.IndexOf(pics, sender)        MsgBox("   Кликнули по " & i & " PictureBox'у   ")    End Sub

Пробуй, будут вопросы по этой теме, пиши сюда. Вопросы по другой теме, просьба создавать в новом топике.

-Mikle-

Приветствую.
Вопрос новичка по выше приведенному коду.
Поясни что означает или что происходит в результате выполнения этой строки
ReDim Preserve pics(i)

Заранее спасибо.

она увеличивает количество элементов массиве.

Run-time error
Спасибо.
Но я не совсем понял смысл.

Я бы выполнил это так ( пример размещения на форме 40 label )

Код

Private Sub mnuStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuStart.Click                 Dim count As Int16 = 1         Dim lab As Label         For r As Int16 = 1 To 5   ' пять рядов             For k As Int16 = 1 To 8 ' восемь в ряд поэтому люс в люсе                 lab = New Label                 lab.Name = "lab" & count                 lab.BorderStyle = BorderStyle.Fixed3D                 lab.Width = 20                 lab.Height = 20                 lab.Location = New Point(k * 30, r * 30)                 lab.ImageList = ImageList1                 lab.ImageIndex = Tindex(count) '                 lab.Tag = Tindex(count)                 lab.Visible = True                 AddHandler lab.Click, AddressOf GekliktNog                 Me.Controls.Add(lab) ' эта команда помещает созданные програмно label  на форму.                 count += 1             Next         Next     End Sub

Впрочем Mikle это и так написал. Только в чем фишка AddRange вместо Add просто?

Если можно то вопрос по обработчику событий Click.
Как сделать:
кликнули по первому контролу он стал невидимым Visible = Fals, кликнули по второму он тоже стал невидимым, а потом если кликнуть по третьему (или через промежуток времени) то первый опять становится видимым.
Есть возможность через IndexOf определить индекс контрола и потом с его помощью управлять контролом дальше.
Но у меня что-то не получается. И потом никак не могу придумать как отследить первый и второй клик. Ведь когда кликнули по второму контролу клик номер два, но после клика по третьему клик номер два должен стать кликом номер один, а новый(третий) номером два. Плюс должен сохраняться индекс контрола, чтобы потом его сделать видимым.

Run-time error
Был бы очень признателен за помощь.
Я тут уже несколько дней мучаюсь. По идее при каждом клике должен быть разный индекс контрола. А у меня почемуто часто выскакивает один и тот же. Использую это выражение для определения индекса контрола по которому кликнули: nrT = Me.Controls.IndexOf(sender)

ЗЫ модератор простите, если что нарушил.

Всего доброго.

Это все хорошо, но я столкнулся с такой проблемой.  У меня на форме имеется Controlbox, в котором находятся35 textbox'ов. Мне нужно при загрузке формы, чтобы все textbox'ы были недоступны, а при нажатии на кнопку (назовем ее "редактировать") они разблокировались.  Делал как написано во 2 посте и постоянно получаю пустой массив. Если убрать маску и взять все элементы на форме, то видно что контролы находящиеся внутри   Controlbox'а просто игнорируются. Пробовал экспериментировать с Controlbox, но результатов не получил. Очень надеюсь на вашу помощь.

создай сначала Panel (программно или в дизайне), а уже к ней цепляй свои textbox'ы
для блокирования/разблокирования
this.panel1.Enabled = true; // или false
ps. что в коде не смотрел (не люблю vb (: ) поэтому ответил как понял вопрос.

т.е. в Controlbox вставляю панель, а в панель все остальное... Я правильно понял? 

Что такое Controlbox? Это панель? или контейнер? Такого компонента нет в VB...

Признаю, мой косяк. Не ControlBox,  а TabControl

Это сообщение отредактировал(а) thicking - 7.4.2009, 08:59

Да, тогда так:


Если ты потом у панели выставишь свойство Enabled = False, то все расположенные на нем контролы станут неактивными.

Так и сделаю, но вопрос все равно остается открытым, так как потом еще все это нужно будет заполнить данными, а тупо  описывать каждый textbox с новой строчки очень не удобно

Сделал примерно так: