Button Link

[Blas]

Hello,

I have a grid with dynamic columns, and for certain columns I need a button link that allows navigation to the master record related with the value (buttonlink.jpg).

For example, if colums show "Customer code", left to the customer code an arrow allows to open the form "Customer" and shows all the information related with such code.

This is the code to show the button:

Private Sub gridSELECT_CellFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.CellFormattingEventArgs) _
        Handles gridSELECT.CellFormatting
       e.CellElement.Image = Nothing
       If e.CellElement.ColumnInfo.Name = "CardCode" AndAlso TypeOf e.CellElement.RowInfo Is GridViewDataRowInfo Then
           e.CellElement.ImageAlignment = ContentAlignment.MiddleLeft
           e.CellElement.Image = My.Resources.arrow_right
           e.CellElement.TextImageRelation = TextImageRelation.ImageBeforeText
       End If

   End Sub

How can I do to catch the click in this button? Is it possible?

[Blas]

Hello again

I finally made a Custom LinkCell that includes a button and a label. But I didn't figure out how to catch the click event for this button.

Class LinkCell
    Inherits GridDataCellElement

    Dim stack As StackLayoutElement
    Private boton As RadButtonElement
    Private label As RadLabelElement

    Public Sub New(column As GridViewColumn, rowElement As GridRowElement)
        MyBase.New(column, rowElement)
    End Sub


    Protected Overrides Sub SetContentCore(value As Object)
        boton.Text = ""
        boton.ToolTipText = value

        label.Text = value

    End Sub

      Protected Overrides Sub CreateChildElements()
        MyBase.CreateChildElements()

        boton = New RadButtonElement()
        boton.Margin = New System.Windows.Forms.Padding(0, 0, 0, 4)
        boton.StretchHorizontally = False
        boton.StretchVertically = False
        boton.Image = My.Resources.arrow_right

        boton.ButtonFillElement.GradientStyle = GradientStyles.Solid
        boton.ButtonFillElement.BackColor = Color.Transparent
        boton.BorderElement.ForeColor = Color.Transparent
        boton.BorderElement.Visibility = ElementVisibility.Hidden


        label = New RadLabelElement()
        label.StretchHorizontally = True

        stack = New StackLayoutElement
        stack.StretchHorizontally = True
        stack.StretchVertically = True
        stack.Visibility = True

        stack.Children.Add(boton)
        stack.Children.Add(label)

        stack.Visibility = ElementVisibility.Visible

        Me.Children.Add(stack)
    End Sub

End Class

Also, I have two more problems (linkcell.jpg)

1) I'd like to hide the border of the button (like the picture box of my previous example), but I'm not able to achieve that.
2) The vertical alignment of the custom cell in the row is top.Is it possible to align to the middle?

Thanks in advance

[Blas]

Hello again

I finally did it replacing RadButtonElement with RadImageButtonElement, and using the margins to align vertically elements in the container.

For events I think that it's not possible to handle events in the form and they must be handle inside of the class. Is it right?

Main Form:

Private Sub gridSELECT_CreateCell(ByVal sender As Object, ByVal e As GridViewCreateCellEventArgs) Handles gridSELECT.CreateCell
      If TypeOf e.Row Is GridDataRowElement Then
          Select Case e.Column.Name.ToUpper
              Case "CARDCODE"
                  e.CellType = GetType(LinkCardCodeCell)
              Case ("OQUTDOCNUM")
                  e.CellType = GetType(LinkQuotationCell)
          End Select
      End If
  End Sub

LinkCell class and derived classes:

Class LinkCell
    Inherits GridDataCellElement

    Dim stack As StackLayoutElement
    Private boton As RadImageButtonElement
    Private label As RadLabelElement

    Public Sub New(column As GridViewColumn, rowElement As GridRowElement)
        MyBase.New(column, rowElement)
    End Sub

    Protected Overrides Sub SetContentCore(value As Object)
        boton.Text = ""
        boton.ToolTipText = value
        label.Text = value
    End Sub

    Protected Overrides Sub CreateChildElements()
        MyBase.CreateChildElements()


        boton = New RadImageButtonElement()
        boton.Margin = New System.Windows.Forms.Padding(0, 4, 0, 0)
        boton.StretchHorizontally = False
        boton.StretchVertically = False
        boton.Image = My.Resources.arrow_right



        boton.ButtonFillElement.GradientStyle = GradientStyles.Solid
        boton.ButtonFillElement.BackColor = Color.Transparent
        boton.BorderElement.GradientStyle = GradientStyles.Solid
        boton.BorderElement.ForeColor = Color.Transparent
        boton.BorderElement.Visibility = ElementVisibility.Hidden

        AddHandler boton.Click, AddressOf Boton_Click


        label = New RadLabelElement()
        label.Margin = New System.Windows.Forms.Padding(3, 5, 0, 0)
        label.StretchHorizontally = True

        stack = New StackLayoutElement
        stack.StretchHorizontally = True
        stack.StretchVertically = True
        stack.Visibility = True

        stack.Children.Add(boton)
        stack.Children.Add(label)

        stack.Visibility = ElementVisibility.Visible

        Me.Children.Add(stack)
    End Sub


    Protected Overridable Sub Boton_Click(sender As System.Object, e As System.EventArgs)

    End Sub

End Class


Class LinkQuotationCell
    Inherits LinkCell
    Public Sub New(column As GridViewColumn, rowElement As GridRowElement)
        MyBase.New(column, rowElement)
    End Sub

    Protected Overrides Sub Boton_Click(sender As System.Object, e As System.EventArgs)
        ShowLinkedObject(MyBase.Value, BoLinkedObject.lf_Quotation)
    End Sub
End Class

Class LinkCardCodeCell
    Inherits LinkCell
    Public Sub New(column As GridViewColumn, rowElement As GridRowElement)
        MyBase.New(column, rowElement)
    End Sub

    Protected Overrides Sub Boton_Click(sender As System.Object, e As System.EventArgs)
        ShowLinkedObject(MyBase.Value, BoLinkedObject.lf_BusinessPartner)
    End Sub
End Class

[Alexander]

Hello Roberto,

Thank you for writing.

You can handle custom cell events in the form adding handlers for them when you create the cell in the CreateCell event of RadGridView:

Private Sub RadGridView1_CreateCell(ByVal sender As Object, ByVal e As GridViewCreateCellEventArgs) Handles RadGridView1.CreateCell
    Dim Cell As New CustomCell(e.Column, e.Row)
    ' Add handler for cell events
    e.CellElement = Cell
End Sub

I hope it helps.

Best regards,
Alexander
the Telerik team