Forums Ultimate UI for Windows Forms
Your Privacy Matters: We use our own and third-party cookies to improve your experience on our website. By continuing to use the website we understand that you accept their use. Cookie Policy
Close
Mike Fleisch
95
UltraRadialMenu DrillDown by code
posted

Hi,

i am using the UltraRadialMenu with the actual Version 2020.2.

When a Tool ist clicked, i want to execute the drilldown and display the menu behind.
If i do this manually by clicking with the mouse at the drilldown-button, everything is fine.
The issue occurs on executing by code.

I am using the ToolClick-Event of the UltraRadialMenu.
Private Sub UltraRadialMenu1_ToolClick(...) Handles UltraRadialMenu1.ToolClick

By PerformAction i want to do the drilldown.
UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

Executing the PerformAction "DrillDown" doesn't do anything.
UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

As mentioned in this post 5 years ago i tried to do the "NextItem" before.
https://ko.infragistics.com/community/forums/f/ultimate-ui-for-windows-forms/96474/radial-menu-performaction

UltraRadialMenu1.PerformAction(UltraRadialMenuAction.NextItem)
UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

Now i get different results on two Tools:
at the first i have no reaktion
at the second a drilldown is done - to a complete empty menu

By the way, if i do the drilldown with the mouse manually everything works.
But executed by code doesn't work.

Here's the code:

Private Sub UltraRadialMenu1_ToolClick(sender As Object, e As Infragistics.Win.UltraWinRadialMenu.RadialMenuToolClickEventArgs) Handles UltraRadialMenu1.ToolClick

    Select Case e.Tool.Key
            Case "mnuNeueArbeit"
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.PreviousItem)
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.NextItem)
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

            Case "mnuFavoriten"
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.NextItem)
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

        End Select

    End Sub

A screenshot from the Readial-Menu

"Neue Arbeit" und "Favoriten" are the tools in request

The result after the click-event with "NextItem" and "Drilldown" at Favoriten, Click on "Neue Arbeit" has still no reaktion

If i click with the mouse at the drilldown-button of "Neue Arbeit" this menu is correctly shown.
This should be the same result, when i click at the tool itself.

I have tried a lot of to get an other way around this bug - but i found nothing.

Do you have any idea?

Thanks a lot.

Greets, 

Mike

Parents
  • 95
    Verified Answer
    Offline posted

    Hi everyone,

    i got a Mail from Infragistics Support

    Paul wrote:

    Hi Mike

    This code works for me.

    In _ToolClick put this code first before reading key. Remove your PreviousNext and NextItem in your Case Select. You will only need one DrillDown command. Hope this helps get you started.

    For j = 0 To e.Tool.VisiblePosition
                    'Perform this amount of clicks
                    Me.UltraRadialMenu1.PerformAction(UltraWinRadialMenu.UltraRadialMenuAction.NextItem)

    Next

    Me.ultraRadialMenu1.PerformAction(UltraWinRadialMenu.UltraRadialMenuAction.DrillDown)

    Kind Regards
    Paul

    Paul, thank you for your solution, it works fine.
    Here's my finally used code:

        Private Sub UltraRadialMenu1_ToolClick(sender As Object, e As Infragistics.Win.UltraWinRadialMenu.RadialMenuToolClickEventArgs) Handles UltraRadialMenu1.ToolClick

        Select Case e.Tool.Key
            Case "mnuNeueArbeit"
                For j As Integer = 0 To e.Tool.VisiblePosition
                    'Perform this amount of clicks
                    Me.UltraRadialMenu1.PerformAction(UltraWinRadialMenu.UltraRadialMenuAction.NextItem)
                Next
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)

            Case "mnuFavoriten"
                For j As Integer = 0 To e.Tool.VisiblePosition
                    'Perform this amount of clicks
                    Me.UltraRadialMenu1.PerformAction(UltraWinRadialMenu.UltraRadialMenuAction.NextItem)
                Next
                UltraRadialMenu1.PerformAction(UltraRadialMenuAction.DrillDown)
        End Select

    End Sub

    Thanks again,
       Mike

Reply Children
No Data