VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/14(Tue) 15:56 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 実行時、コントロールの生成 |
> [開発環境：Windows2000,VisualBasic6.0]
> [データベース：Access2000]
>
> お疲れ様です。
> 現在VB6.0で画面を作成しています。
> VB6.0でコントロールを生成する関数・メソッド等は存在するのでしょうか？
> もし存在するのならば、サンプルソース等Web上に転がっています？
> もしどなたかご存知の方がいらっしゃれば、ご教授の方よろしくお願いいたします。
昔手遊びに作ったものでよければどうぞ。
フォームにコピペして貼ってください。
'------------------------------------------------
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
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）