同じ操作 (ID:118256)

名前

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

本文

それぞれ、過去ログにも似たようなサンプルはたくさんありますし、
ヘルプでもひと通り調べておいて下さい。
[VB.NET]
    ' ループで利用できるようにコンボボックスの配列に参照を格納する例
    Private mComboBoxes() As ComboBox
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Me.SetComboBoxes()
    End Sub
    Private Sub SetComboBoxes()
        ReDim Me.mComboBoxes(7)
        Me.mComboBoxes(0) = Me.ComboBox1
        Me.mComboBoxes(1) = Me.ComboBox3
        Me.mComboBoxes(2) = Me.ComboBox5
        '(省略)
    End Sub
    ' 複数のコンボボックスのイベントを１つの関数で受け取る例
    Private Sub Cbo_SelectedIndexChanged(ByVal sender As System.Object, _
                                        ByVal e As System.EventArgs) _
                                        Handles ComboBox1.SelectedIndexChanged, _
                                                ComboBox3.SelectedIndexChanged, _
                                                ComboBox5.SelectedIndexChanged
        '                                       (省略)
        Dim wComboBoxX As ComboBox = DirectCast(sender, ComboBox)
        Debug.WriteLine(wComboBoxX.Name)
    End Sub
    ' 引数にコンボボックスを渡す関数の例
    Private Sub DispScore(ByVal ComboBoxFirst As ComboBox, ByVal ComboBoxSecond As ComboBox)
        If ComboBoxFirst.Text = "0" Then
            ComboBoxSecond.SelectedIndex = -1
        Else
            ComboBoxSecond.SelectedIndex = 0
        End If
    End Sub

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

戻る