Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9773 / 76734 ←次へ | 前へ→

【72519】controls.add
質問  free  - 12/8/19(日) 15:51 -

引用なし
パスワード
   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上に存在したらどうなりますか?

調べてラベルの動的配列を作る方法を見つけたのですが、イマイチわかりません。
後この、ラベルを操作するにはクラスを使えを書かれています。

詳しく解説されているページなどありましたら追加で教え願います。

素人でコードがひどいと思いますが、皆様よろしくお願いします。

3 hits

【72519】controls.add free 12/8/19(日) 15:51 質問
【72522】Re:controls.add UO3 12/8/19(日) 16:34 発言

9773 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free