多次元配列のインデックスを取得するには？ (ID:146595)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こういう事で良いのかな?

Public Class Form1
    Private cmbABC()() As ComboBox

Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        cmbABC = New ComboBox()() {New ComboBox() {cmbA0, cmbA1}, New ComboBox() {cmbB0, cmbB1}, New ComboBox() {cmbC0, cmbC1}}
    End Sub

Private Sub cmbABC_SelectedIndexChanged(ByVal sender As ComboBox, ByVal e As EventArgs) _
    Handles cmbA0.SelectedIndexChanged, _
            cmbA1.SelectedIndexChanged, _
            cmbB0.SelectedIndexChanged, _
            cmbB1.SelectedIndexChanged, _
            cmbC0.SelectedIndexChanged, _
            cmbC1.SelectedIndexChanged

Dim q = cmbABC.Where(Function(x) x.Contains(sender)).Select(Function(ComboBoxes) _
                New With {ComboBoxes, .Index = Array.IndexOf(ComboBoxes, sender)}).First()

If q.ComboBoxes(0).SelectedIndex <> q.ComboBoxes(1).SelectedIndex Then
            q.ComboBoxes(1 - q.Index).SelectedIndex = q.ComboBoxes(q.Index).SelectedIndex
        End If
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る