Add Item

Option Explicit

Dim rsEvents As ADODB.Recordset


Private Sub Form_Load()
    InitControls
    InitEvents
    InitTaskpanel
End Sub 'Form_Load()

Private Sub InitControls()

    Label1.Caption = "EventID"
    Label2.Caption = "EventText"
    Label3.Caption = "Description"
    Label4.Caption = "EventTime"

    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""

End Sub 'InitControls()

Private Sub InitEvents()

    Dim i As Long

    '-- create in memory recordset, your data can differ 
    Set rsEvents = New ADODB.Recordset
    With rsEvents
        .Fields.Append "EventID", adInteger
        .Fields.Append "EventText", adVarChar, 255, adFldIsNullable
        .Fields.Append "Description", adVarChar, 1000, adFldIsNullable
        .Fields.Append "EventTime", adDate
    End With
    rsEvents.Open

    '-- add some events 
    For i = 1 To 30
        rsEvents.AddNew
        rsEvents!EventID = i
        rsEvents!EventText = "Event " & Format(i, "00")
        rsEvents!Description = "Brief description of event " & Format(i, "00")
        rsEvents!EventTime = Now()
        rsEvents.Update
    Next i

End Sub 'InitEvents()

Private Sub InitTaskpanel()

    Dim Group As XtremeTaskPanel.TaskPanelGroup
    Dim Item As XtremeTaskPanel.TaskPanelGroupItem


    TaskPanel.Align = vbAlignLeft


    Set Group = TaskPanel.Groups.Add(0, "Todays events")
    With Group
        .Tooltip = "These events occured today"
        .Special = True
    
        rsEvents.MoveFirst
        Do Until rsEvents.EOF
            .Items.Add rsEvents!EventID, rsEvents!EventText, xtpTaskItemTypeLink, Int(3 * Rnd + 1)
            rsEvents.MoveNext
        Loop
    
        .Expanded = True
    End With

    TaskPanel.SetImageList TaskPanelIcons

End Sub 'InitTaskpanel()

Private Sub TaskPanel_ItemClick(ByVal Item As XtremeTaskPanel.ITaskPanelGroupItem)

    Dim EventID As Long
    
    EventID = Item.Id

    rsEvents.Filter = "EventID=" & EventID

    If Not rsEvents.EOF Then
        Text1.Text = rsEvents!EventID
        Text2.Text = rsEvents!EventText
        Text3.Text = rsEvents!EventTime
        Text4.Text = rsEvents!Description
    End If

    rsEvents.Filter = adFilterNone

End Sub 'TaskPanel_ItemClick()