Correspondente ao MSHFlexGrid

Question

Prezados,

Qual o componente do VS 2010 correspondente ao Hierarchical FlexGrid do VB 6, aquele para abrir duas tabelas relacionadas (pai-filho)

Grato,

Maurício

Answer 1

Crie uma classe, cole esse código e depois adicione na Toolbox e veja se lhe atende.

Public Class meuDataGridView
    Inherits DataGridView
    Protected Overloads Overrides Sub OnCellFormatting(ByVal args As DataGridViewCellFormattingEventArgs)
        ' Call home to base
        MyBase.OnCellFormatting(args)
        ' First row always displays
        If args.RowIndex = 0 Then
            Exit Sub
        End If
        If IsRepeatedCellValue(args.RowIndex, args.ColumnIndex) Then
            args.Value = String.Empty
            args.FormattingApplied = True
        End If
    End Sub
    Private Function IsRepeatedCellValue(ByVal rowIndex As Integer, ByVal colIndex As Integer) As Boolean
        Dim currCell As DataGridViewCell = Rows(rowIndex).Cells(colIndex)
        Dim prevCell As DataGridViewCell = Rows(rowIndex - 1).Cells(colIndex)
        If (currCell.Value = prevCell.Value) OrElse (currCell.Value IsNot Nothing AndAlso prevCell.Value IsNot Nothing AndAlso currCell.Value.ToString() = prevCell.Value.ToString()) Then
            Return True
        Else
            Return False
        End If
    End Function
    Protected Overloads Overrides Sub OnCellPainting(ByVal args As DataGridViewCellPaintingEventArgs)
        MyBase.OnCellPainting(args)
        args.AdvancedBorderStyle.Bottom = DataGridViewAdvancedCellBorderStyle.None
        ' Ignore column and row headers and first row
        If args.RowIndex < 1 OrElse args.ColumnIndex < 0 Then
            Exit Sub
        End If
        If IsRepeatedCellValue(args.RowIndex, args.ColumnIndex) Then
            args.AdvancedBorderStyle.Top = DataGridViewAdvancedCellBorderStyle.None
        Else
            args.AdvancedBorderStyle.Top = AdvancedCellBorderStyle.Top
        End If
    End Sub
End Class

Att.,

Jeimes Ribeiro

Answer 2

Perdoe a ignorancia, mas criei a Classe, colei o código, só não sei como adicionar na ToolBox.

Grato,

Maurício

Answer 3

Clique com o botão direito do mouse na toolbox e depois clique em "choose items", após isso irá aparecer uma caixa e na aba ".NET Framework Components" procure pelo componente que você criou clicando em "browse...".

O componente criado deve estar na pasta do seu projeto em "debug".

Após isto, basta arrastar ele ao seu form.

Att.,

Jeimes Ribeiro

Answer 4

Valeu Jeimes, muito obrigado mais uma vez.

Maurício

Answer 5

Olá Maurício

 

Deu certo?

Se era dessa forma que você queria, marque como resposta para facilitar em buscas futuras.

 

Att.,

Jeimes Ribeiro

Answer 6

Deu certo, marcado.

Obrigado!