コントロール配列を「詰める」には？ (ID:76263)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Unloadしなくてもいいのでは？ ユーザから見れば、見えなくなればいいのだし・・・。 たとえば、Formにボタンとテキストボックス1個置いて、 Option Explicit Dim objText(20) As TextBox Private Sub DeleteText1(lngIndex As Long) Dim i As Long objText(lngIndex).Visible = False For i = lngIndex To 19 Set objText(i) = Text1(i + 1) objText(i).Top = objText(i - 1).Top + objText(i - 1).Height Next End Sub Private Sub Command1_Click() 'Text1(16)の削除 Call DeleteText1(16) End Sub Private Sub Form_Load() Dim i As Long Set objText(0) = Text1(0) Text1(0).Text = "Text1(0)" For i = 1 To 20 Load Text1(i) Set objText(i) = Text1(i) objText(i).Top = objText(i - 1).Top + objText(i - 1).Height objText(i).Text = "Text1(" & CStr(i) & ")" objText(i).Visible = True Next End Sub とか・・・。