Button Link

4 posts, 0 answers
  1. Blas
    Blas avatar
    56 posts
    Member since:
    Dec 2007

    Posted 08 Nov 2011 Link to this post

    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?

  2.
  3. Blas
    Blas avatar
    56 posts
    Member since:
    Dec 2007

    Posted 09 Nov 2011 Link to this post

    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



  5. Blas
    Blas avatar
    56 posts
    Member since:
    Dec 2007

    Posted 09 Nov 2011 Link to this post

    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

  7. Alexander
    Admin
    Alexander avatar
    306 posts

    Posted 11 Nov 2011 Link to this post

    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

    Q2’11 SP1 of RadControls for WinForms is available for download (see what's new); also available is the Q3'11 Roadmap for Telerik Windows Forms controls.

  8.
Back to Top