|
userformに動的にボタンやラベルを追加したいです。
Private Sub UserForm_Initialize()
Dim cpstr, material(3)
Dim i as long
material(0) = "A"
material(1) = "B"
material(2) = "C"
material(3) = "D"
for i= Lbound(material) to Ubound(material)
Set cpstr = Me.Controls.Add("Forms.label.1", "label" & i)
With cpstr
.Left = (200*i)+200
.Top = 216
.Height = 14.95
.Width = 100
.caption=material(i)
end with
next i
set cpstr=nothing
end sub
Set cpstr = Me.Controls.Add("Forms.label.1", "label" & i)
1.この"label"& i は生成されるオブジェクト名前になるのですか?
2.同じ名前がuserform上に存在したらどうなりますか?
調べてラベルの動的配列を作る方法を見つけたのですが、イマイチわかりません。
後この、ラベルを操作するにはクラスを使えを書かれています。
詳しく解説されているページなどありましたら追加で教え願います。
素人でコードがひどいと思いますが、皆様よろしくお願いします。
|
|