title image


Smiley Re: Listview schnell laden und speichern
Das bringt nicht viel! Ich lade die Liste ja eh im Hintergrund wo das noch nicht gezeichnet wurde! (Form_Load)



Hab jetzt mal rechnen lassen am Anfang von Form_Load und Ende mit Hilfe der "Timer"-Funktion vergehen da 194 Sekunden!! Liegt vielleicht doch eher am Code!

(Benutze VB6.0 mit nem 2,4GHz.)

Falls jemand verbesserungs vorschläge hat??

Hier die Lade_Funktion:

Private Sub Load_DB()

  Dim fn As Integer, NR As Integer, temp() As String

  fn = FreeFile

  SendMessage Liste.hwnd, WM_SETREDRAW, False, ByVal 0

  Open App.Path & "\OwnDB.dbm" For Input As #fn

    Do While Not EOF(fn)

      Line Input #fn, aa

      temp = Split(aa, Chr(1))

      NR=Val(temp(0))

      Liste.ListItems.Add NR, , Format(temp(0), "0000")

      Liste.ListItems(NR).SubItems(1) = temp(1)

      Liste.ListItems(NR).SubItems(2) = temp(2)

      Liste.ListItems(NR).SubItems(3) = temp(3)

      Liste.ListItems(NR).SubItems(4) = temp(4)

      Liste.ListItems(NR).SubItems(5) = temp(5)

      Liste.ListItems(NR).SubItems(6) = temp(6)

      Liste.ListItems(NR).SubItems(7) = temp(7)

      Liste.ListItems(NR).SubItems(8) = temp(8)

    Loop

  Close fn

  SendMessage Liste.hwnd, WM_SETREDRAW, True, ByVal 0

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: