jct said:

If you change ctrl to sender, then the condition is always true, since sender is the control that was clicked.

You problem is that Me.Controls is only the top level controls and probably your UltraNumericEditors are in a tab page or a panel.

You need to create a recursive method like this and call it from your event:

public sub ChangeValue(control as Control)

If TypeOf(control) Is UltraNumericEditor Then

DirectCast....

End If

For Each child As Control In control.Controls

ChangeValue(child)

Next

End Sub

jct, thanks for the prompt answer.

Mine was just an example with the DirectCast, what I'm really interested in is the RightButton text, so I need the "e"

From your solution, how can I do that?

On the other hand, previously I used Me.UltraTabControl1.Control at no avail...

Thanks in advance!

I think you can access the buttons with the ButtonsLeft and ButtonsRight properties.

Using the UltraTabControl won't help since it contains pages and each page contain the controls. The recursive way is the best way, but you can use reflection if you really want to get your hands dirty...

I've been able to perform the backcolor change in ALL NumericEditors

However I cannot change the TEXT property of the RightButton...in ALL editors! (works only for the pressed one)
       
Dim stateButton As EditorButton = CType(e.Button, EditorButton)

        For Each ctrl As Control In Me.UltraTabPageControl1.Controls
            If TypeOf (ctrl) Is UltraNumericEditor Then 'And ctrl.HasChildren Then
                DirectCast(ctrl, UltraNumericEditor).BackColor = Color.CadetBlue
                Select Case stateButton.Text
                    Case "Meters/Sec"
                        stateButton.Text = "Feet/Sec"
                    Case "Feet/Sec"
                        stateButton.Text = "Inches/Sec"
                    Case "Inches/Sec"
                        stateButton.Text = "Meters/Sec"
                End Select
            End If

Moreover, I cannot find the TEXT property! I mean I can find every other one but this.

UltraNumericEditor_MV_1.ButtonsRight.Item("Units").text = "dd" (this is of course what I expect, but doesn't work at all)

Any ideas?

Thanks!

(DirectCast(ctrl, UltraNumericEditor)).ButtonsRight("Def").Text = "text"

Mike Saltzman"]

(DirectCast(ctrl, UltraNumericEditor)).ButtonsRight("Def").Text = "text"

Mike,

Thanks for the reply, however something is wrong in that expression.

I pasted the code and syntar error message poped-up

To be honest, I cannot find where the error is.

Additonal help would be greatly appreciated!

Thanks!

 Oh, sorry. The problem is that the ButtonsRight collection returns an EditorButtonBase and not all editor buttons have a text property. So you have to cast it to the appropriate type of button. 

So to break up the code more neatly, it looks like this: 

                Dim une As UltraNumericEditor = DirectCast(sender, UltraNumericEditor)
                une.BackColor = Color.Wheat
                Dim eb As EditorButton = DirectCast(une.ButtonsRight("def"), EditorButton)
                eb.Text = "Text"

Mike Saltzman"]

 Oh, sorry. The problem is that the ButtonsRight collection returns an EditorButtonBase and not all editor buttons have a text property. So you have to cast it to the appropriate type of button. 

So to break up the code more neatly, it looks like this: 

                Dim une As UltraNumericEditor = DirectCast(sender, UltraNumericEditor)
                une.BackColor = Color.Wheat
                Dim eb As EditorButton = DirectCast(une.ButtonsRight("def"), EditorButton)
                eb.Text = "Text"

Mike,

It works perfectly well.

Thanks again for a great service!