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

名前

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

本文 {{0, 1},{2, 3},{4, 5}} という階層配列にするのではなく、 {0, 1, 2, 3, 4, 5} という 1 次元配列にて管理するならば、 Dim Index1 As Integer = Array.IndexOf(cmbABC, sender) Dim Index2 As Integer = Index1 + If(Index1 Mod 2 = 0, 1, -1) If cmbABC(Index1).SelectedIndex <> cmbABC(Index2).SelectedIndex Then cmbABC(Index2).SelectedIndex = cmbABC(Index1).SelectedIndex End If と書けますね。 あるいは、相方を Tag プロパティに 'Form の Load イベント cmbA0.Tag = cmbA1 cmbA1.Tag = cmbA0 cmbB0.Tag = cmbB1 cmbB1.Tag = cmbB0 cmbC0.Tag = cmbC1 とセットしておけば、SelectedIndexChanged では Dim a As ComboBox = DirectCast(sender, ComboBox) Dim b As ComboBox = DirectCast(a.Tag, ComboBox) If a.SelectedIndex <> b.SelectedIndex Then b.SelectedIndex = a.SelectedIndex End If のように、短く記述することができます。