Label aktualisiert sich nicht in Schleife

18/08/2008 - 13:43 von Stefan Dase | Report spam
Hallo allerseits,

ich habe ein kleines VB6-Tool erstellt, um in der Firma Pfadangaben in
LNK-Dateien automatisiert àndern zu können.

Da die Zugriffe bei nicht vorhandenen Laufwerken lànger dauern, wollte
ich dem Benutzer in einem Hinweisformular "frmMessage" die jeweils
bearbeitete Datei anzeigen.

Das Formular wird auch geöffnet und angezeigt, aber der Text àndert sich
nur kurz vor Ende der Prozedur einmal, zwischenzeitlich sehe ich immer
denselben Dateinamen.

Hier mal der relevante Teil aus der Funktion:

'Schleife über Dateien
For i = 1 To colFiles.Count
sLinkFile = colFiles.Item(i)
frmMessage.lblMessage.Caption = sLinkFile
frmMessage.lblMessage.Refresh
DoEvents

Set objLink = New cShellLink
objLink.FileName = sAppPath & "\" & sLinkFile
objLink.LoadLink

sPath = objLink.Path
sWorkingDirectory = objLink.WorkingDirectory

sPath = Replace(sPath, SuchenNach, ErsetzenDurch, , , vbTextCompare)
sWorkingDirectory = Replace(sWorkingDirectory, SuchenNach, _
ErsetzenDurch, , , vbTextCompare)

objLink.Path = sPath
objLink.WorkingDirectory = sWorkingDirectory

objLink.SaveLink
Set objLink = Nothing
Next i

Ich dachte, mit der Refresh-Methode wird das Label sofor neu gezeichnet?
Das DoEvents hatte ich versuchsweise eingefügt, führt aber auch nicht
zur Verbesserung.

Kann es ggf. auch an meinem System liegen? Windows Vista (SP1), Visual
Basic 6 (SP6)...

Vielen Dank für alle Hinweise,
Stefan
 

Lesen sie die antworten

#1 Nico Notter
19/08/2008 - 12:57 | Warnen spam
Ich würde mal die Form und nicht das Label refreshen.

Ähnliche fragen