Breadcrumbs

[Dummy1912]

Hello,
we wanted to add date and time only once when the string are the same
if not then add it

but now it seems it works fine but when the date or time change i get duplicated strings

for example we have lets say 5 records with the date:
6/6/2000 16:00 PM
-- works fine it only add it 1x instead of 5x

for example we have lets say 1 records with the time:
6/6/2000 16:01 PM
-- we get it 2x instead of 1x

here the code we used:

Code: Select all

        Dim cd As New LblDateTime
        With cd 'set date time
            If date_ = Date.Today.ToString("MM-dd-yyyy") Then
                .FlatLabel1.Text = "Today at " & time_
            Else
                .FlatLabel1.Text = date_ & " at " & time_
            End If
        End With

        Dim _ButtonExists As Boolean = False
        Try
            For Each FoundButton As LblDateTime In FlowLayoutPanel2.Controls
                If FoundButton.FlatLabel1.Text.Contains(date_ & " at " & time_) Or  FoundButton.FlatLabel1.Text.Contains("Today at " & time_) Then
                    _ButtonExists = True
                    Exit For
                End If
            Next
        Catch ex As Exception
        End Try

        If Not _ButtonExists Then
            FlowLayoutPanel2.Controls.Add(cd) ' add it when not exist
        Else
            FlowLayoutPanel2.Controls.Remove(cd) ' remove duplicated once
        End If

what are we doing wrong?
thanks

[comathi]

Just by looking at that code, I can't seem to find anything wrong with it. Would you mind posting a little more code, or perhaps an executable file so that I can try and reproduce the problem?

[Dummy1912]

we have solved the problem
thanks guys.

seems to use a dictionary can help you alot :lol:

the solution:

Code: Select all

    Public LastDates As New Dictionary(Of String, String)

If LastDates.ContainsKey(date_time) Then
            FrmInbox.FlowLayoutPanel2.Controls.Remove(cd)
        Else
            LastDates.Add(date_time, "")
        End If