| 投稿日 | ： 2002/08/29(Thu) 12:01 |
| 投稿者 | ： 故あって匿名 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: コントロール内にコントロールの動的配置 |
ＭＳＤＮの抜粋ですが。
フォームにフレームをおいといてください。
------------------------------------------------------------
Option Explicit
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "これは動的に追加されたボタンです。"
End Sub
Private Sub Form_Load()
'一番最後のFrameが追加したいコントロール
Set btnObj = Controls.Add("VB.CommandButton", "btnObj", Frame1)
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub