ユーザーフォームに動的にボタン等を追加する

今までユーザーフォームに配置するコマンドボタン等のコントロール類はユーザーフォームの作成時に全てきっちり配置していました。

というかその方法しか知らなかった。

ところがコントロール類はユーザーフォームのイベントと連動して動的に、しかも簡単に配置できる事を知ったのその備忘録。

まずはユーザーフォームを作成してコマンドボタンを１つ設置。

f:id:ExcelLover:20170730155019j:plain

このボタンをクリックする度にコマンドボタンを追加するようにしました。

f:id:ExcelLover:20170730155052j:plain

ユーザーフォームのコードは以下の通り。

Option Explicit
Dim myCol As Collection
Dim myCls As Class1

Private Sub UserForm_Initialize()
    Set myCol = New Collection
End Sub

Private Sub CommandButton0_Click()
    Dim myCmdBtn As MSForms.CommandButton
    
    Set myCmdBtn = UserForm1.Controls.Add("Forms.CommandButton.1", "CommandButton" & myCol.Count + 1, True)
    With myCmdBtn
        .Left = 10
        .Top = 10 + 20 * myCol.Count
        .Width = 150
        .Caption = "CommandButton" & myCol.Count + 1
    End With
    Set myCls = New Class1
    myCls.setBtn myCmdBtn
    myCol.Add myCls
End Sub

この内、動的にボタンを追加しているのは Set myCmdBtn = UserForm1.Controls.Add(“Forms.CommandButton.1”, “CommandButton” & myCol.Count + 1, True) の部分です。追加したいフォームのコントロールコレクションに、追加したいコントロールを指定してやれば、フォームにコントロールが追加されます。

第１引数のコントロールを指定する文字列は以下の通り。

作成するコントロール	使用する ID
チェックボックス (CheckBox)	Forms.CheckBox.1
コンボボックス (ComboBox)	Forms.ComboBox.1
コマンドボタン (CommandButton)	Forms.CommandButton.1
フレーム (Frame)	Forms.Frame.1
イメージ (Image)	Forms.Image.1
ラベル (Label)	Forms.Label.1
リストボックス (ListBox)	Forms.ListBox.1
マルチページ (MultiPage)	Forms.MultiPage.1
オプションボタン (OptionButton)	Forms.OptionButton.1
スクロールバー (ScrollBar)	Forms.ScrollBar.1
スピンボタン (SpinButton)	Forms.SpinButton.1
タブストリップ (TabStrip)	Forms.TabStrip.1
テキストボックス (TextBox)	Forms.TextBox.1
トグルボタン (ToggleButton)	Forms.ToggleButton.1

イベントの登録

動的に配置したボタンにはイベントが登録されていないので、このままではただの飾りになってしまう。

クラスを作成して以下のようなコードを登録

クラスを作成して以下のようなコードを登録
Option Explicit
Private WithEvents myCmdBtn As MSForms.CommandButton

Private Sub myCmdBtn_Click()
    MsgBox myCmdBtn.Caption
End Sub

Sub setBtn(Cmdbtn As MSForms.CommandButton)
    Set myCmdBtn = Cmdbtn
End Sub