Hi,
Dim dsXML As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
dsXML.ReadXml("
http://msdn.microsoft.com/rss.xml")
dsXML.WriteXml("rss.xml")
ListBox1.DataSource = dsXML.Tables("item")
ListBox1.DisplayMember = "pubDate"
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
End Sub
Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As
System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim g As Graphics = e.Graphics
Dim dr As DataRowView
Dim dt As Date
Dim br As SolidBrush
Dim s As String
Dim dtCompare As Date = #6/18/2004#
Try
dr = DirectCast(ListBox1.Items.Item(e.Index), DataRowView)
dt = Date.Parse(dr.Item("pubDate").ToString)
s = dt.ToShortDateString
Catch ex As Exception
Trace.WriteLine(ex.ToString)
End Try
g.FillRectangle(Brushes.White, e.Bounds)
If CBool(e.State And DrawItemState.Selected) Then
g.FillRectangle(Brushes.LightBlue, e.Bounds)
End If
If dt < dtCompare Then
br = New SolidBrush(Color.Red)
Else
br = New SolidBrush(Color.Black)
End If
g.DrawString(s, ListBox1.Font, br, _
RectangleF.op_Implicit(e.Bounds))
br.Dispose()
End Sub
Ken
