Rightclick events on connection in RadDiagram

[Farid]

HI.

I trying to create a Connection in RadDiagram  With VB.net

My use case is adding a handler to detect mouse right click on the connection. Although the following code does not give an error, it does not work either.

Blow is my simple test code.

Imports Telerik.WinControls
Imports Telerik.WinControls.UI

Public Class RadForm1

    Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim con As New RadDiagramConnection
        con.Name = "Telerik_Connection"
        con.StartPoint = New Point(10, 10)
        con.EndPoint = New Point(100, 100)
        con.StrokeThickness = 5
        con.BackColor = Color.Blue
        AddHandler con.MouseClick, AddressOf Con_click

    End Sub

    Private Sub Con_click(ByVal sender As Object, ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Right Then
            Me.Text = sender.name
        End If
    End Sub
End Class

[Dinko | Tech Support Engineer]

Hi Farid,

Thank you for the provided code snippet.

You will need to handle the MouseClick event of the RadDiagram. In the event handler, you can check if the Right mouse button is clicked and check if the mouse location is in the bounds of the connection. The following code snippet will better demonstrate what I have in mind.

Sub New()
    InitializeComponent()
    AddHandler Me.RadDiagram1.MouseClick, AddressOf MouseClickEventHandler
End Sub

Private Sub MouseClickEventHandler(sender As Object, e As MouseEventArgs)
    If e.Button = MouseButtons.Right Then
        For Each c As RadDiagramConnection In Me.RadDiagram1.Connections
            If c.HitTest(e.Location) Then
                RadMessageBox.Show("Connection Clicked")
            End If
        Next
    End If
End Sub

I hope that this approach will work for you.

Regards,
Dinko | Tech Support Engineer
Progress Telerik