I have create a dynamic control array. For example: Create a text control name Text1 and set index = 0  -> Text1(0)
for i% = 1 to 5
   Load Text1(i)
   Text1(i).Left = Text1(i-1).Left
   Text1(i).Top = Text1(i-1).Top + Text1(0).Height + 20
   Text1(i).Visible = True
Next

Then I remove a control item from above array like:
Unload Text1(3)
What I need is the way to re-index that control array in order and also keep all properties of all controls. ie: the result control array I want is: Text1(i) where i = 0 .. 4 and all properties of the rest controls after control Text1(3): Text1(4) and Text1(5) are remain and shift to 0

Please give me a solution

Thanks in advance!

PS: Sorry for bad english

[Edited by admin on 05-04-2002 at 01:27 PM GMT]

Hi,

This solution may be just a little too simple. Why not leave the control items in your array but just set the Visible property to False. This will disable them and avoid them getting in the way of your display. You can leave them in place and thus not disturb your code.

Mike

[Edited by admin on 05-04-2002 at 01:27 PM GMT]

Try this...

Private Sub Command1_Click()     Dim i As Integer          For i = 1 To 4         Load Text1(i)         Text1(i).Visible = True         Text1(i).Top = Text1(i - 1).Top + Text1(i - 1).Height + 60     Next      End Sub Private Sub UnloadControl(Num As Long)     Dim i As Integer     For i = Num To Text1.UBound - 1         Text1(i).Alignment = Text1(i + 1).Alignment         Text1(i).BackColor = Text1(i + 1).BackColor         Text1(i).BorderStyle = Text1(i + 1).BorderStyle         Text1(i).Left = Text1(i + 1).Left         Text1(i).Top = Text1(i + 1).Top         Text1(i).Height = Text1(i + 1).Height         Text1(i).Width = Text1(i + 1).Width         Text1(i).Text = Text1(i + 1).Text         Text1(i).Enabled = Text1(i + 1).Enabled         '...and all other properties     Next     Unload Text1(Text1.UBound) End Sub Private Sub Command2_Click()     UnloadControl 1 End Sub

[Edited by admin on 10-04-2002 at 01:18 PM GMT]

____________________________
AndreaVB

Many Thanks for your answer.
Your solution is shift back (copy all properies) to previous by 1 and finally delete the last control. My control is not simple as TextBox, it is a UserControl with many properties. Another question is: Is there any fast way to copy all properties to another control with the same type (Not .Text = .Text, .Left = .Left,...)

anyway, your answer is satisfy my need. Thanks alot!

Some times you can do this:

  Set FirstControl = SecondControl

But it doesn't work for everything, and if it does work, it may just set 1 property, not all of them (doesn't work for text boxes and the like, but may for custom controls)