🚀 go-pugleaf

ｔｏｙｏっすm(_ _)m

野坂 敬さんの<01bd2d3d$c5ec61e0$1565a0b9@rosk_jts_jone1.osaka-rics>から
>VisualBasic V4 か　V5で、フォーム上にＬｉｎｅコントロールを
>動的に複数、作成したいのですが、どうすればいいのですか？
> どなたか、教えて下さい。　よろしくお願いします。
　一個は作成して下さい。
　そして、そのラインコントロールのIndexプロパティを０にして、
配列にして下さいな。

　あとは、下のソースを参考に。
－－－－－－－－－－－－－－－－－－－－－－
Private Sub Form_Load()
    Dim i As Integer

    For i = 1 To 10	'11個作ってみましょう
        Load Line1(i)	'ここで生成する

	'位置が重なってるとわからんのでずらします。
        Line1(i).Y1 = Line1(0).Y1 + (i * 50)

	'これを忘れると見えません。
        Line1(i).Visible = True
    Next

End Sub
－－－－－－－－－－－－－－－－－－－－－－－－－

　Indexが０のLineは既にあるので、Loadしないように。


/toyotoyo@marinet.or.jp