動的に作ったコントロールと

あらかじめ配置されているコントロールの連携のテスト

連携とか関連付けとかをラクにしたくてテストしてみた

機能は

TabControlにTabPageの追加と削除

TabPageにボタンの追加と削除

追加したボタンクリックで連携しているLabelにボタンの数字を表示

Labelクリックで連携しているボタンの色変更

追加したボタンはどのLabelと連携するのかの指定をして、その確認

エラー(例外)の処理は全くしていないので

タブがないのにタブ削除しようとするとエラーで止まる、ボタン削除も一緒

他にもタブがないのにボタンを追加しようとしたりとかも

「タブ追加1」ボタンでタブ1、「タブ追加2」ボタンでタブ2というTabPageが追加される

追加するときに連携するLabelを指定している、それぞれLabel1とLabel2

「ボタン追加」ボタンで表示しているタブにボタンが上から順番に追加される

タブ2に追加されたボタンはLabel2と連携する

追加されたボタンを押すとLabel2の表示が押したボタンと同じ数字になる

連携していないLabel1は変化なし

Label2をクリックすると連携しているタブにあるボタンの中で

同じ数字のボタンの色が変化する

タブの表示をタブ1に切り替えてボタンを3つ追加したところ

追加されたボタンを押すとLabel1の表示が変化する、Label2は変化なし

Label1クリックでボタンの色を変更したところ

テストアプリの中身は

デザイン画面

f:id:gogowaten:20191024144149p:plain

ボタン5個、Label2個、TabControl1個

ボタン以外の名前は初期値

今回はTabPageを継承したExPageクラスを作成して使うので

TabControlを追加した時に自動で作成されるTabPage1とTabPage2は削除

Form1

f:id:gogowaten:20191024144159p:plain

Public Class Form1
    'ボタン追加：タブにボタンを追加、右に追加
    'ボタン削除：タブにあるボタンを削除、右端のボタンを削除
    'タブに追加したボタンを押すと対応したLabelに自身のtextを表示
    'Labelをクリックで対応したボタンの色が変化
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.BorderStyle = BorderStyle.FixedSingle
        Label2.BorderStyle = BorderStyle.FixedSingle
    End Sub
    Private Sub Button1タブ追加1_Click(sender As Object, e As EventArgs) Handles Button1タブ追加1.Click
        Call AddPageタブ追加(Label1, "タブ1")
    End Sub
    Private Sub Button2タブ追加2_Click(sender As Object, e As EventArgs) Handles Button2タブ追加2.Click
        Call AddPageタブ追加(Label2, "タブ2")
    End Sub
    '表示しているタブページを削除
    Private Sub Button3タブ削除_Click(sender As Object, e As EventArgs) Handles Button3タブ削除.Click
        TabControl1.TabPages.Remove(TabControl1.SelectedTab)
    End Sub
    Private Sub Button4ボタン追加_Click(sender As Object, e As EventArgs) Handles Button4ボタン追加.Click
        Dim iPage As exPage = TabControl1.SelectedTab
        iPage.AddButtonボタン追加()
    End Sub
    '最後に作成されたボタンを削除
    Private Sub Button5ボタン削除_Click(sender As Object, e As EventArgs) Handles Button5ボタン削除.Click
        Dim iPage As exPage = TabControl1.SelectedTab

        'ボタンが1個でも在れば
        If iPage.Controls.Count > 0 Then
            iPage.RemoveButtonボタン削除()
        End If
    End Sub
    'Labelクリックで対応したボタンの色変更
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click, Label2.Click
        Dim l As Label = DirectCast(sender, Label)
        Dim tp As exPage = TabControl1.SelectedTab
        tp.ChangeColorボタンの色変更(l)
    End Sub
    Private Sub AddPageタブ追加(l As Label, tabName As String)
        Dim eP As New exPage(l)
        eP.Text = tabName
        TabControl1.TabPages.Add(eP)
        TabControl1.SelectedTab = eP '追加したタブを選択状態にする
    End Sub

End Class

ExPage

f:id:gogowaten:20191024144218p:plain

'TabPageを継承したexPage、
Public Class exPage
    Inherits TabPage
    Private BtList As New List(Of Button) '作ったボタンを入れておくリスト
    Private BtCount As Integer = 0 'ボタン数記録用
    Private BtHeight As Integer = 24 'ボタンの高さ、追加する時の位置決定に使う
    Private LastButton As Button '最後に追加されたボタン記録用
    Private WithEvents bt As Button 'イベント付き変数
    Private Form1Label As Label '連携するLabel記録
    Public Sub New(l As Label)
        Form1Label = l 'タブにあるボタンと連携するLabel指定する
    End Sub
    Public Sub AddButtonボタン追加()
        'ボタンの位置決め
        Dim nP As Point
        If BtCount = 0 Then
            nP = New Point(0, 0)
        Else
            nP = New Point(0, LastButton.Top + BtHeight)
        End If
        'ボタン作成
        bt = New Button
        With bt
            .Text = BtCount '& Me.Text
            .Location = nP
        End With
        'ボタン追加
        BtList.Add(bt)
        BtCount += 1
        LastButton = bt
        Controls.Add(bt)
        AddHandler bt.MouseClick, AddressOf DisplayLabelに表示 'クリックイベントに関連付け
    End Sub
    Public Sub RemoveButtonボタン削除()
        '表示ページの中で最後に追加されたボタンを削除する
        'Controls.RemoveAt(BtCount - 1)
        Controls.Remove(LastButton) '外す
        LastButton.Dispose() 'これ要る？
        BtList.RemoveAt(BtCount - 1) 'リストからも削除
        BtCount -= 1 'カウント1減らす
        If BtCount > 0 Then
            LastButton = BtList(BtCount - 1)
        End If
    End Sub
    Private Sub DisplayLabelに表示(sender As Object, e As MouseEventArgs) Handles bt.Click
        Dim ibt As Button = DirectCast(sender, Button)
        Form1Label.Text = ibt.Text
    End Sub
    Public Sub ChangeColorボタンの色変更(l As Label)
        If l.Equals(Form1Label) = False Then Return '対応Labelと違っていたらなにもしないで終了

        Dim bt As Button = BtList(l.Text)
        If bt.BackColor = Color.PeachPuff Then
            bt.BackColor = Color.PowderBlue
        Else
            bt.BackColor = Color.PeachPuff
        End If
    End Sub
End Class