|
Máte pravdu s tými 8 min som Vás trochu dezinformoval nemal som vtedy čas nechať to dobehnúť celé tak som pri 25% pozrel čas a vynásobil 4. Ono to ale funguje tak že pridávanie položiek sa časovo spomaľuje s množstvom položiek ktoré už combobox obsahuje t.j. pridávanie položiek z konca zoznamu trvá omnoho dlhšie ako zo začiatku. Nechal som to prebehnúť celé asi 3 x časy sa v skutočnosti pohybovali okolo 32 min. Narýchlo som to skúsil s týmto kódom
Dim strr2 As New StreamReader(Path.Combine(Application.StartupPath, "c:\test\a.txt"), True)
Dim Stopky As New Stopwatch()
Stopky.Start()
Dim ddd As Double = strr2.BaseStream.Length
ProgressBar1.Maximum = ddd + 1
While strr2.EndOfStream = False
ComboBox1.AutoCompleteCustomSource.Add(strr2.ReadLine)
Application.DoEvents()
ProgressBar1.Value = strr2.BaseStream.Position
Label2.Text = FormatPercent((ProgressBar1.Value / ProgressBar1.Maximum), 2, TriState.True, TriState.UseDefault, TriState.UseDefault)
End While
Stopky.Stop()
Dim cass As TimeSpan = Stopky.Elapsed
Label3.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:000}", cass.Hours, cass.Minutes, cass.Seconds, cass.Milliseconds)
Pri tak veľkom objeme údajov a časovej náročnosti je to reálne nepoužiteľné. Možno by pomohlo načítať len časť údajov napr.podľa prvého písmena ktoré zadá užívateľ...
|