1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub btn_Rechercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Rechercher.Click
startime = DateTime.Now
Dim result As New ListOfXXXX
result = ListOfXXXX.SearchListOfXXXX(Me.TextBoxKeyWords.Text)
Dim ts As TimeSpan = DateTime.Now.Subtract(Me.startime)
Me.ToolStripStatusLabel1.Text = " Temps passé sur " & result.Count & " requête(s) en ms : " & ts.Minutes.ToString("00") & ":" & ts.Seconds.ToString("00") & ":" & ts.Milliseconds.ToString("000")
Dim list As New List(Of XXX)
Dim ele As XXX
For Each ele In result
list.Add(ele)
Next
Me.ResultDataGridView.DataSource = list
End Sub |