Массив элементов управления

[3D-fleX]

Код: Выделить всё

Private Sub cboOrder()
          For i = 0 to 6
                Select Case ComboBox(i)
                    Case "1"
                        ComboBox(i+1).Enabled = True
                        ComboBox(i+1).Text = ""
                        ComboBox(i+1).Items.Clear()
                        ComboBox(i+1).Items.Add("2")
                        ComboBox(i+1).Items.Add("3")
                        ComboBox(i+1).Items.Add("5")
                 End Select
           Next
    End Sub

На VB 6 была возможность задавать массивы для элементов управления, а как в VB.NET реализовать этот код?

[MIT]

Код: Выделить всё

DIm CB(9) as ComboBox
For i as integer = 0 to 9
CB(i) = new ComboBox
With CB(i)
// // //
End With
Next

[3D-fleX]

Код: Выделить всё

DIm CB(9) as ComboBox
For i as integer = 0 to 9
CB(i) = new ComboBox
With CB(i)
// // //
End With
Next

У меня контролы на форме, а тут получается создавать динамически

[MIT]

У меня контролы на форме, а тут получается создавать динамически

Если для тебя создавать в реалтайме неприемлимо, то можно, например, руками сделать так:

Код: Выделить всё

Dim CB(9) as ComboBox
CB(0) = combo1
CB(1) = combo2
CB(2) = combo3
//...

[3D-fleX]

Код: Выделить всё

Dim CB(9) as ComboBox
CB(0) = combo1
CB(1) = combo2
CB(2) = combo3
//...

У меня VB.NET 2008, пишет такую ошибку:
Class 'System.Windows.Forms.ComboBox' cannot be indexed because it has no default property.

[MIT]

Наверно на строку Select Case ComboBox(i), да? Если да - то объясню: в .NET`е нет стандартных свойств, так что фишка из vb6 (типа Text1 вместо Text1.Text) не прокатит. Юзай ComboBox(i).Text

[3D-fleX]

Наверно на строку Select Case ComboBox(i), да? Если да - то объясню: в .NET`е нет стандартных свойств, так что фишка из vb6 (типа Text1 вместо Text1.Text) не прокатит. Юзай ComboBox(i).Text

нет, в самом начале при присвоении элемната к CB() массиву.

Юзай ComboBox(i).Text

- А это совсем не катит.

[MIT]

нет, в самом начале при присвоении элемната к CB() массиву.

Ты что-то не так делаешь. Код

Код: Выделить всё

        Dim cb(4) As ComboBox
        cb(0) = Me.ComboBox1
        cb(1) = Me.ComboBox2
        cb(2) = Me.ComboBox3
        cb(3) = Me.ComboBox4
        cb(4) = Me.ComboBox5

        For i As Integer = 0 To 4
            With cb(i)
                .Items.Add("test")
                .SelectedIndex = 0
            End With
        Next

работает замечатльно (на форме должны лежать эти комбы)

- А это совсем не катит.

Почему?

[3D-fleX]

Сейчас вроде работает когда указал размер массиву CB(4).

- А это совсем не катит. - Почему?

Потому что до этого была ошибка:

'ComboBox' is a type and cannot be used as an expression.

[MIT]

Потому что до этого была ошибка: 'ComboBox' is a type and cannot be used as an expression.

А, и правда - умная среда, однако

[3D-fleX]

Еще один вопрос пожауйста. Как указать индекс текущего элемента управления?

[MIT]

В смысле замена ComboBox1.Index?
Можешь в цикле добавить строчку .Tag = i, либо определять по какому-то отличительному признаку.

[3D-fleX]

Мне не хотелось бы конкретный Tag, а текущий(под фокусом) контрол (а то получается Tag, то же самое что имя элемента)

[MIT]

Мне не хотелось бы конкретный Tag, а текущий(под фокусом) контрол (а то получается Tag, то же самое что имя элемента)

Эээ...

Код: Выделить всё

        Dim cb(4) As ComboBox
        cb(0) = Me.ComboBox1
        cb(1) = Me.ComboBox2
        cb(2) = Me.ComboBox3
        cb(3) = Me.ComboBox4
        cb(4) = Me.ComboBox5

        For i As Integer = 0 To 4
            With cb(i)
                .Items.Add("test")
                .SelectedIndex = 0
                .Tag = i
            End With
        Next

        With cb(Integer.Parse(Me.ComboBox3.Tag))
            For i As Integer = 0 To 9
                .Items.Add("test " & i)
            Next
        End With

[3D-fleX]

Я решился обойтись без цикла:

Код: Выделить всё

Private Sub cboOrder()
        Dim CB(7) As ComboBox
        CB(0) = Me.ComboBox1
        CB(1) = Me.ComboBox2
       
        Select Case CB(i).Text
            Case "1"
                With CB(i + 1)
                    .Enabled = True
                    .Text = ""
                    .Items.Clear()
                    .Items.Add("2")
                    .Items.Add("3")
                    .Items.Add("5")
                End With
         End Select
End Sub


Вместо i нужен Index..

[MIT]

То ли ты не понимаешь меня, то ли я не понимаю твоего замысла.
Код

Код: Выделить всё

        cb(0) = Me.ComboBox1
        cb(1) = Me.ComboBox2
        cb(2) = Me.ComboBox3
        cb(3) = Me.ComboBox4
        cb(4) = Me.ComboBox5

        For i As Integer = 0 To 4
            With cb(i)
                .Items.Add("test")
                .SelectedIndex = 0
                .Tag = i
            End With
        Next

засовываешь в New() или Load() - в инициализацию формы (объекта)

Код: Выделить всё

Dim cb(4) As ComboBox

объявляешь на уровне класса (можно и как Praivate и как Protected - по ситуации смотри)

А код

Код: Выделить всё

        With cb(Integer.Parse(Me.ComboBox3.Tag))
            For i As Integer = 0 To 9
                .Items.Add("test " & i)
            Next
        End With

это пример прямого обращения к комбе.
Т.е. cb(Index) = Combobox, где Tag равен Index`у

[3D-fleX]

Код: Выделить всё

        With cb(Integer.Parse(Me.ComboBox3.Tag))
            For i As Integer = 0 To 9
                .Items.Add("test " & i)
            Next
        End With

это пример прямого обращения к комбе.
Т.е. cb(Index) = Combobox, где Tag равен Index`у

Ты делаешь дублирование индекса массива.:

Код: Выделить всё

cb(Integer.Parse(Me.ComboBox3.Tag)

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

Код: Выделить всё

_SelectedIndexChanged

. Как тут быть?

[MIT]

Ты делаешь дублирование индекса массива.:

это пример...

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

Получить индекс? Легко:

Код: Выделить всё

    Private Sub ComboBox1_SomeEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SomeEvent
        MsgBox("Index is: " & DirectCast(sender, ComboBox).Tag)
    End Sub

А если тебе все же не индекс нужен, а сам контрол, то тут еще легче:

Код: Выделить всё

    Private Sub ComboBox1_SomeEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SomeEvent
        With DirectCast(sender, ComboBox)
                //...
        End With
    End Sub

[3D-fleX]

Самое оно! Спасибо

[773FF]

8 660 результатов для "VB.Net Массив элементов управления" (0,23 секунд) - http://www.google.com/search?client=opera&rls=ru&q=VB.Net+%D0%9C%D0%B0%D1%81%D1%81%D0%B8%D0%B2+%D1%8D%D0%BB%D0%B5%D0%BC%D0%B5%D0%BD%D1%82%D0%BE%D0%B2+%D1%83%D0%BF%D1%80%D0%B0%D0%B2%D0%BB%D0%B5%D0%BD%D0%B8%D1%8F&sourceid=opera&ie=utf-8&oe=utf-8. Из них можно найти уже на первой странице несколько вполне приемлемых ответов. Простите за вредность, но хочется читать интересные ответы на интересные вопросы.

[MIT]

Не читай

[Joo]

Не читай

Глупости! Как раз таки с этого нужно начинать поход на форум!

[3D-fleX]

8 660 результатов для "VB.Net Массив элементов управления" (0,23 секунд)

И практический ни в одном не нашел полезной инофрмации.

[Ramzes]

На заметку автору топика! Тема уже обсуждалась у нас на форме. Ты плохо искал.
Тему не закрываю, так, как вроде обсждают чего-то.
Автору устное предупреждение.
Попробуй в следующий раз поискать хотя бы по форуму

[773FF]

Честно говоря я погорячился, сам долго копался в И-нете, пока разобрался как создать массив. В VB6 было удобнее это делать. Прошу прошения за неоправданное замечание.

[3D-fleX]

Честно говоря я погорячился, сам долго копался в И-нете, пока разобрался как создать массив. В VB6 было удобнее это делать. Прошу прошения за неоправданное замечание.

И вправду, очень замудрённо задумано здесь. Вот я нашел Метод IndexOf класса Control, но вот беда, почему то индексы не всегда присваиваются к элементу. Допустим у меня был элемент GoupBox с индексом 8, как только нарисовал новый элемент индекс GroupBox`а сбросился на 0. Возможно есть еще какой то метод чтоб добраться до элемента (и не только к текущему а к следующему после текущего)

[MIT]

Возможно есть еще какой то метод чтоб добраться до элемента

Как вариант можно, конечно, использовать TabStop в качестве индекса, но это, имхо, кривой способ.

к следующему после текущего

Код: Выделить всё

    Private Sub ComboBox1_SomeEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SomeEvent
        MsgBox(cb(Integer.Parse(DirectCast(sender, ComboBox).Tag) + 1).Text)
    End Sub