Progressbar hochzählen
30.11.2006 17:34:20
Naddel
Mit diesem Code lasse ich mir eine CMD-Datei ausführen und dabei eine Progressbar in Userform anzeigen. So wie ich es jetzt mache ist die Progressbar beim starten auf 10 und wenn die CMD-Datei beendet wurde auf 100.
Jezt die Farge.
Kann ich die Progressbar nicht jede Sekunde einen 10er Schritt höherzählen lassen? Bis ca 70 und die 100 wird immer durch das Beenden der CMD-Datei erreicht, auch wenn diese schon bei 20 fertig wäre springt die Progressbar auf 100. Oder die Progressbar ist auf 70 und wartet bis die CMD-Datei beendet wurde und springt dann auf 100.
Geht das? Und wie?
Gruß Naddel
Sub Schaltfläche3_BeiKlick()
UserForm1.Show
End Sub
'CODE in Userform1
Function ShellAndWait(FileName As String)
Dim objScript
Set objScript = CreateObject("WScript.Shell")
shellapp = objScript.Run(FileName, 2, True)
ShellAndWait = True
End Function
Private Sub UserForm_Activate()
ProgressBar1.Value = 10
ShellAndWait ("C:\Übertragung.cmd")
ProgressBar1.Value = 100
Application.OnTime Now + TimeValue("00:00:03"), "entlad"
End Sub
'code in Modul3
Sub zeig()
'modul 3
Sub entlad()
'f = False
''Unload Me
UserForm1.Hide
End Sub