|
' オブジェクト変数を CommandButton として宣言します。
Private WithEvents cmdObject As CommandButton
Private Sub Form_Load()
Set cmdObject = Form1.Controls.Add("VB.CommandButton", "cmdOne")
cmdObject.Visible = True
cmdObject.Width = 3000
cmdObject.Caption = "動的 CommandButton"
End Sub
Private Sub cmdObject_Click()
MsgBox ("これは動的に追加されたコントロールです。")
End Sub
| |