Hm, das hat geklappt. Folgendes hab ich geändert: Ein zusätzliches Array eingefügt:
Dim treffer(-1) As String Gefundene Übereinstimmungen nicht ins EditField sondern in treffer abgespeichert Treffer.Append Mid(folder.Item(i).Name,0,7)+" "+Mid(result(j),0,InStr(result(j), " ")) Und dann, nach DoEvents die bisherigen Ergebnisse ins EditField eintragen lassen: EditField(1).Text=Join(Treffer, EndOfLine) Und es klappte...bis mir bei den Suchergebnissen auffiel, dass der Text nicht formatiert ist (Schriftart und so)...ah, nicht EditField(1).Text... Sondern EditField(1).StyledText.Text.. Muss es lauten...geändert und siehe da...es klappt nicht mehr. Es ist scheinbar die StyledText-Variante, die da unter Windows zickt. Immerhin weiß ich jetzt schonmal wo es zickt. Das Fenster wird übrigens immer noch scheinbar neu gezeichnet (Buttons verschwinden und EditField sowie Progressbar "blinken") Dank schonmal für den Tipp, Metti. Das bringt mich auf jeden Fall schonmal ein gutes Stück voran. Grüße Michael Am 08.11.2009 7:50 Uhr schrieb "Stefan Mettenbrink" unter <[email protected]>: > Michael Köhler wrote: > >> EditField1(1).StyledText.Text=EditField1(1).Text+... > > Versuch doch mal, die Treffer in ein Array zu schreiben. Also etwas so: > > Treffer.append Mid(folder.Item(i).Name,0,7)+" > "+Mid(result(j),0,InStr(result(j), " ")) > > Nach dem Durchsuchen kannst Du dann folgendermaßen das Array ausgeben: > > EditField1(1).StyledText.Text=Join(Treffer,EndOfLine) > > Das sollte das ständige Neuzeichnen beheben und ist sicher auch > schneller. Ob dadurch auch Dein Problem behoben ist, kann ich nicht > sagen. > > Wenn Du keine Windowsversion von RB hat ist das recht böd zu testen. > Wenn möglich installier Dir die Testversion von RB, dann hast Du 30 > Tage Zeit, den Fehler zu finden :-) > Wenn das keine Option ist, wirst Du nicht umhin kommen, für jeden > Schleifendurchlauf ein Protokoll in eine Datei schreiben zu lassen. Dann > erkennst Du wenigstens, wann es nicht weiter geht. > > MfG, Metti. >
