Bedste løsning til visning af liste af nyheder

Jeg har forsøgt mig med at smide labels ind i et panel, sådan her:

Dim o As New WebServices.NewsService

        Dim intTitleHeight As Integer = 20
        Dim intExcerptHeight As Integer = 50
        Dim intPrevY As Integer = 0

        For Each item As WebServices.ArticleListItem In o.LatestNewsList()
            Dim txtTitle As New Label

            With txtTitle
                .Text = item.Title
                .BackColor = System.Drawing.Color.White
                .Height = 20
                .Width = pnlArticleList.Width
                .Location = New System.Drawing.Point(0, intPrevY)
            End With

            Dim txtExcerpt As New Label

            With txtExcerpt
                .Text = item.Title
                .BackColor = System.Drawing.Color.Red
                .Height = 50
                .Width = pnlArticleList.Width
                .Location = New System.Drawing.Point(0, intPrevY + intTitleHeight)
            End With

            pnlArticleList.Controls.Add(txtTitle)
            pnlArticleList.Controls.Add(txtExcerpt)

            intPrevY = intPrevY + intTitleHeight + intExcerptHeight
        Next

Rent visuelt kommer det til at ligne den opstilling jeg havde forstillet mig, men jeg syntes det virker lidt kluntet. Desuden kan jeg heller ikke se hvordan jeg skal kunne fange et click-event på noget...

Der er click event på labels.

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Her er en anden mulighed.. anvend et treeview !!

1. Tilføj et treeview til formen
2. Sæt følgende properties til false (properties til treeview)
  a. ShowLines
  b. ShowPlusMinus
  c. ShowRootLines

og koden:

Dim o As New WebServices.NewsService
For Each item As WebServices.ArticleListItem In o.LatestNewsList()
    Dim nodTitle As New TreeNode
    nodTitle.Text = "Title " & i
    nodTitle.ForeColor = System.Drawing.Color.Black
    'du kan evt bruge nodTitle.Tag til key til den nyhed du vil vise
    Dim nodExcerpt As New TreeNode
    nodExcerpt.Text = "Subject " & i
    nodExcerpt.ForeColor = System.Drawing.Color.Red
    nodTitle.Nodes.Add(nodExcerpt)
    TreeView1.Nodes.Add(nodTitle)
Next
TreeView1.ExpandAll()

Event handler:

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

'Udelad if statement hvis man ikke kun skal kunne klikke på overskriften
    If e.Node.Parent Is Nothing Then
        MsgBox(e.Node.Text) ' eller hvad du nu vil når man vælger nyheden
    End If
End Sub