Objects and Arrays

[ronaldk]

I have a form with 5 textboxes below each other and next to each textbox a button that removes the values in that textbox and hides the last textbox (creating the impression that that row is deleted and the other rows jumped one up).

If textbox1 is removed my code reads:

Private Sub btnRemove1_Click()
    textbox1.value=textbox2.value
    textbox2.value=textbox3.value
    textbox3.value=textbox4.value
    textbox4.value=textbox5.value
    textbox5.value=0
    textbox5.visible=false
End sub

You can see that this code gets very long when there is more than 1 textbox in a row and a number of rows.

Surely there must be a shorter way. Could any of the smart men help this fool? (The values of the textboxes are stored on a sheet.)

[pike]

Hi ronaldk
can you explain a little more on why you have this set up?

[ronaldk]

It is a little calculator that I built for financial advisors.
Attached please find the form.
I just feel I should be able to use loops in some way.

[shg]

Maybe like this (untested):

Private Sub btnRemove1_Click()
    btnRemove 1
End Sub

Private Sub btnRemove2Click()
    btnRemove 2
End Sub

Private Sub btnRemove(m As Long)
    Const n As Long = 5 ' number of textboxes
    Dim i As Long
    
    For i = m To n - 1
        Me.Controls("textbox" & i).Value = Me.Controls("textbox" & i + 1).Value
    Next i
    
    Me.Controls("textbox" & n).Value = vbNullString
    
    For i = 1 To n
        If Me.Controls("textbox" & i).Value = vbNullString Then Me.Controls("textbox" & i).Visible = False
    Next i
End Sub