Visual Basic Tips

コントロールの動的配置

フォームにコントロールを一つ貼り付けるだけで、後はプログラム内で動的に配置できます。
このサンプルでは、デザイン時にフォームにテキストボックスを一つだけ貼り付けておいて（indexプロパティは0にして下さい）実行すると１０個のテキストボックスを動的に配置します。フォームをクリックするとデザイン時のテキストボックスのみになります。

Private Sub Form_Click()
　　Dim i As Integer

　　'コントロールのアンロード
　　For i = 1 To 10
　　　　Unload Text1(i)
　　Next

End Sub

Private Sub Form_Load()
　　Dim i As Integer

　　'コントロールのロード
　　For i = 1 To 10
　　　　Load Text1(i)
　　　　Text1(i).Top = Text1(0).Top + Text1(i).Height * i
　　　　Text1(i).Visible = True
　　　　Text1(i).Text = i
　　Next
End Sub

DownLoad vbtips010.lzh 2KB (VB6.0)