type mismatch error passing multiple items with byref

[CsJHUN]

Hello guys,
in advance im just learing the passing values between subs (no clue about classes too ), also a lazy a.. for declare items.
I have a userform with (for example) a simple 2x2 + headline (3x3) crosstable. I have option buttons in the data field. I want to color the x(A or B) and y(1 or 2) headline of the clicked radio button.

[TABLE="class: grid, width: 120, align: center"]
<tbody>[TR]
[TD="align: center"]tbl
[/TD]
[TD="align: center"]Headline A
[/TD]
[TD="align: center"]Headline B
[/TD]
[/TR]
[TR]
[TD="align: center"]Headline 1
[/TD]
[TD="align: center"]o A1
[/TD]
[TD="align: center"]o B1
[/TD]
[/TR]
[TR]
[TD="align: center"]Headline 2
[/TD]
[TD="align: center"]o A2
[/TD]
[TD="align: center"]o B2
[/TD]
[/TR]
</tbody>[/TABLE]

So if clicked on A1 then headline A and headline 1 would be red.
Of course the original "table" is bigger than the example (currently 9x7)
The headlines are labels, the "data" is option button (radio button)


I have this:

Private Sub opbtnclick(ByRef opbtn As OptionButton, ByRef lblx As Label, ByRef lbly As Label)
    lblx.BackColor = vbRed
    lbly.BackColor = vbRed
End Sub

Private Sub opbtn_1_1_Click()
opbtnclick Me.opbtn_1_1, Me.lbl_1_0, Me.lbl_0_1
End Sub

Private Sub opbtn_1_2_Click()
opbtnclick Me.opbtn_1_2, Me.lbl_0_2, Me.lbl_1_0
End Sub

And this gives me type mismatch error.

Help me understand this, thanks
John

 

[pbornemeier]

This site:

http://www.vbaexpress.com/forum/sho...vent-for-a-group-of-option-buttons-in-a-Frame

discussed using classes to allow you to capture the event if any option button in a frame was clicked
(ignore post #2 in that thread)

 

[pbornemeier]

I clicked reply when OP post was the only post. It took some time to find a workaround since I was playing with the code for a while to try to figure it out.

 

[CsJHUN]

BTW, when a button is clicked, should all previous labels be cleared of the red colour?

yes, i made a for loop for it, and inserted before coloring it to red

Private Sub label_reset()
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Label" Then
        ctrl.BackColor = vbMenuBar
    End If
Next ctrl
End Sub

ps.: thanks pbornemeier

 

[theBardd]

So where are with this? Are you sorted, or do hyou want to try my events class idea?