VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2004/03/22(Mon) 16:52
投稿者： とろ
Ｅメール：
ＵＲＬ：
タイトル： Re: コントロールの自動作成

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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -