adding buttons using loop

cjcant · July 28th, 2011, 03:53 PM

Hi,

I am using loops to add my buttons but I do not know how to link the button to a sub that is already there. I have forgotten to take my code with me so this code might not be right but it is along the right lines.

Code:

For intButton = 2 to intButton = 93

     myButton = add.controls(Forms.Button.1, "btnClear" & intButton)
     With myButton
          .left = 616
          .etc
     End with

Next intButton

I did find a bit for code selection.onAction or .onClick(assignMacro) but this wouldn't work in the with. There was also another post about classes but I do not know much about them and am not sure if I have time to learn them.

I also tried making subs with each of the names but that did not work.

Could you please help?

Thanks

cjcant · July 29th, 2011, 05:24 AM

I have just solved it. Instead of having many buttons I had the one and moved it when the scroll exceeds a certain position.

Here is the code if anybody wants it:

Code:

Private Sub UserForm_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)
    
    'Move the button down when the scroll exceeds a certain position
        
    If Me.ScrollTop > intScrollPosition Then
        Me.btnClear.Top = Me.btnClear.Top + 550
        intScrollPosition = intScrollPosition + 550
        intScrollPosition2 = intScrollPosition2 + 550
        
        Else
            'Move the button up when the scroll exceeds a certain position
            
            If Me.ScrollTop < intScrollPosition2 Then
                Me.btnClear.Top = Me.btnClear.Top - 550
                intScrollPosition2 = intScrollPosition2 - 550
                intScrollPosition = intScrollPosition - 550
            End If
    End If

    
End Sub