VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

コントロールの動的配置とそれぞれの制御(VB6.0)_3 ( No.3 ) 　[親スレッドへ]

日時： 2011/04/05 13:05
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[コントロール共通][基本コード][]                                    *
* キーワード：動的作成,実行時に作成,配列,テキストボックス,ボタン,イベント処理     *
***********************************************************************************

元質問：コントロールの自動作成 - kamurin 　2004/03/22-15:37 No.8463

データベースのデータを表示させる処理でレコード数分のTextBoxを作りたいのですが・

-----------------------------------------------------------------
Re: コントロールの自動作成 - とろ  2004/03/22-16:52 No.8466
-----------------------------------------------------------------

VB6 以前ならば次のような感じ。

Text1, Text2, Command1 をフォーム上に配置して、
下のコードを実行して下さい。
# デザイン時に Text2 の Index は 0 にしておいて下さい。

Text1 に数値（質問の場合、レコード数）を入力して、ボタンを押すと
その数だけ Text2 が作成されます。

'----------------------------------------
Option Explicit
Private Sub Command1_Click()
  Dim i As Integer
  For i = 1 To Text2.UBound
    Unload Text2(i)
  Next i
  For i = 1 To CInt(Text1.Text)
    Load Text2(i)
    With Text2(i)
      .Top = (Text2(0).Height + 30) * i
      .Visible = True
    End With
  Next i
End Sub
Private Sub Form_Load()
    Text2(0).Visible = False
    Text1.Text = "10"
End Sub