[リストへもどる]
一括表示

投稿時間:2002/08/29(Thu) 11:41
投稿者名:ろあ
Eメール:
URL :
タイトル:
コントロール内にコントロールの動的配置
皆様始めまして。

コントロールの動的配置を勉強しているのですが、Loadをしたときに、
必ずフォームに読み込まれると思いますが、それを既存のコントロール内(Label1など)に
貼り付けたいのです。

Load text1(1)
↑こんな感じのです。

どうやっても方法が見つからないので、何かあったら教えてくれると嬉しいです。
よろしくお願いします。

投稿時間:2002/08/29(Thu) 12:01
投稿者名:故あって匿名
Eメール:
URL :
タイトル:
Re: コントロール内にコントロールの動的配置
MSDNの抜粋ですが。

フォームにフレームをおいといてください。
------------------------------------------------------------
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

投稿時間:2002/08/29(Thu) 13:10
投稿者名:Say
Eメール:
URL :
タイトル:
Re: コントロール内にコントロールの動的配置
> Loadをしたときに、既存のコントロール内(Label1など)に貼り付けたいのです。
>
> Load text1(1)
> ↑こんな感じのです。
>
TextBoxをLabelの中に配置したい、ということでしょうか?
それはできません。
配置可能なのはFrame,PictureBox,SSTabのようなコンテナコントロールだけです。

たとえば、Frame1の中に配置したいなら、
    Load Text1(1)
    Set Text1(1).Container = Frame1
    Text1(1).Visible = True
とか・・・。

投稿時間:2002/08/30(Fri) 11:08
投稿者名:ろあ
Eメール:
URL :
タイトル:
(お礼)Re^2: コントロール内にコントロールの動的配置
>     Load Text1(1)
>     Set Text1(1).Container = Frame1
>     Text1(1).Visible = True

大変参考になりました、アリガトウございました。
Containerというものを使って実現できました。
感謝感謝です。