Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Label.caption, das sein Inhalt nicht ändert
Autor: Cyberclone
Datum: 30.07.02 21:44
Hallo zusammen Ich habe ein Problem, das ich einfach nicht nachvollziehen kann Ich bin gerade an einem kleinen Progi, das ein Ordner auf ein anderes Laufwerk sichern soll. Das passiert per klick auf eine Button. Meine Anwendung hat ein Label, das ich als Statuszeile benutze um dem Anwender Informationen zu geben Obwohl ich den Inhalt des Labels ändere, passiert nichts.... Aber seht doch selber: Private Sub roCmdSicherung_Click() If IsDriveReady("J:") Then roLblStatus.Caption = "Beginne mit der Datensicherung und kopiere...." ---> jetzt sollte im Label dieser Satz stehen, bleibt aber leer <----- Open "logfile.txt" For Append As #1 Print #1, "Laufwerk ist in Ordnung, beginne Sicherung.... "; Date; Time Close #1 Ordnerkopieren ---> erst wenn ich vor diese Sub "Ordnerkopieren" ein REM vordran setzte, funktioniert es und das Label bekommt den gewünschten Text <---- roLblStatus.Caption = "Daten werden verglichen" ----> ebenso hier das selbe <------- Open "logfile.txt" For Append As #1 Print #1, "Daten kopiert, starte den Vergleich...." Close #1 Foldervergleichen ----> Erst wieder mit einem REM vor "Foldervergleichen" Else Open "logfile.txt" For Append As #1 Print #1, "Laufwerk nicht bereit, KEINE SICHERUNG "; Date; Time Close #1 MsgBox "Sicherungslaufwerk ist nicht bereit !" End If End Sub Sub Ordnerkopieren() Dim FSO As New FileSystemObject Dim Folder As Folder Dim sFolderPath As String Dim sDestPath As String sFolderPath = "C:Bitware" sDestPath = "J:" Set Folder = FSO.GetFolder(sFolderPath) Folder.Copy sDestPath End Sub Ich hoffe jemand kann mich über dieses Phänomen aufklären, denn in den Subs Ordnerkopieren sowie Foldervergleichen wird in das Label nichts geschrieben. Sonst funktioniert alles, das LogFile wird korrekt erstellt u.s.w. nur das Label will nicht An was liegt das ? Danke für Eure Hilfe Gruss Cyberclone

Label.caption, das sein Inhalt nicht ändert	51	Cyberclone	30.07.02 21:44
DoEvents oder Refresh bewirkt Wunder	510	Dieter	30.07.02 21:45
Re: DoEvents oder Refresh bewirkt Wunder	53	Cyberclone	30.07.02 21:58
Re: DoEvents oder Refresh bewirkt Wunder	324	unbekannt	30.07.02 22:08
Re: DoEvents oder Refresh bewirkt Wunder	38	Cyberclone	30.07.02 22:11

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen