user forms - button class

[mortgageman]

I have a user form with at least 6 option buttons, with the possibility of 12.
As I understand it, unless I create a "button class" (here the quotes indicate my ignorance of what I am talking about), I will have to duplicate the code in each of the [Private Sub OptionButtonx_Click()] functions.

Can any of the experts let me know how to set up a button class for option buttons?

Gene, "The Mortgage Man", Klein

 

[mortgageman]

bump

No one here knows anything about button classes?

Gene, "The Mortgage Man", Klein

 

[Norie]

Gene

Try the following code.

In a new class module called COptions.

Option Explicit

Public WithEvents ButtonGroup As MSForms.OptionButton

Private Sub ButtonGroup_Click()
    MsgBox ButtonGroup.Caption
End Sub

In a new standard module.

Option Explicit


Dim Buttons() As New COptions

Sub ShowUserForm()
Dim ButtonCount As Integer
Dim ctl As Control

    ButtonCount = 0
    For Each ctl In UserForm1.Controls
    
        If TypeName(ctl) = "OptionButton" Then
            
            ButtonCount = ButtonCount + 1
            ReDim Preserve Buttons(1 To ButtonCount)
            Set Buttons(ButtonCount).ButtonGroup = ctl

        End If
    Next ctl
    UserForm1.Show
End Sub

Now if you run the code in the standard module, it will show the userform and whenever you click an option a message box with it's caption should appear. Change the code in the class module to do what you want.

I tried putting the module code in the userform initialize event but it didn't work.

I don't know if it's me doing something wrong or it just can't go there.

 

[Norie]

Just worked out how to use the userform initialize event for this.

Put the same code I suggested in the previous post in the class module.

In a standard module put this.

Public Buttons() As New COptions

And in the userform module put this.

Private Sub UserForm_Initialize()

Dim ButtonCount As Integer
Dim ctl As Control

    ButtonCount = 0
    For Each ctl In UserForm1.Controls
    
        If TypeName(ctl) = "OptionButton" Then
            
            ButtonCount = ButtonCount + 1
            ReDim Preserve Buttons(1 To ButtonCount)
            Set Buttons(ButtonCount).ButtonGroup = ctl

        End If
    Next ctl

End Sub

 

[mortgageman]

Thanks - To be honest, I wasn't going to try it, given that you said you couldn't get it to work. (I figure it would just be too arrogant for me to try if you couldn't!)

I will give it a whirl and let you know

BTW - What stuff?