- 日時： 2009/12/27 12:54
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[コントロール共通][基本コード][] *
* キーワード：動的作成,実行時に作成,配列,テキストボックス,ボタン,イベント処理 *
***********************************************************************************
元質問：実行時、コントロールの生成 - 裕治 2003/01/14-15:48 No.2155
元質問：コントロールの動的配置とそれぞれの制御 - tunenon 2003/12/12-17:24 No.7102
------------------------------------------------------------------------------------
------------------------------------------------------------------------------------
Re: 実行時、コントロールの生成 - A221 2003/01/14-15:56 No.2157
------------------------------------------------------------------------------------
昔手遊びに作ったものでよければどうぞ。
フォームにコピペして貼ってください。
'------------------------------------------------
Option Explicit
Private WithEvents btnObj As CommandButton
Private addlabel As Label
Private counter As Long
Private Sub btnObj_Click()
'クリックでコントロールを動的に追加
counter = counter + 1
Set addlabel = Controls.Add("VB.Label", "addLabel" & counter, Form1)
With addlabel
.Move 0, counter * 200, 1000, 200
.Caption = "count" & counter
.Visible = True
End With
End Sub
Private Sub Form_Load()
'一番最後のFormが追加したいコンテナ
Set btnObj = Controls.Add("VB.CommandButton", "btnObj", Form1)
With btnObj
.Caption = "test"
.Move Form1.Width - 1000, Form1.Height - 1000, 500, 500
.Visible = True
End With
Set addlabel = Controls.Add("VB.Label", "addLabel" & counter, Form1)
With addlabel
.Caption = "count" & counter
.Move 0, 0, 1000, 200
.Visible = True
End With
End Sub
|
コントロールの動的配置とそれぞれの制御(VB6.0)