ich würde gerne mal wissen ob und wie es möglich ist befehle wie in .bat auszuführen (kopieren,verschieben löschen, komprimieren extrahieren usw! )
und dann halt noch so dass ne Progressbar bis zum ende mitläuft und zeigt wie weit das ganze is! hoffe ihr könnt mir helfen!
Hier der code der progressbar (die wurde aus 2 shapes erstellt!)(wäre nett wenn ihr mir noch sagen könnt wie ich da ne anzeige einbauen kann wo man sieht wieviel % das sind!)
Option Explicit Private Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Private Sub Form_Load() With Shape1 ' Eigenschaften für Shape1 festlegen (Rahmen) .BackColor = vbWhite .BackStyle = 1 .BorderStyle = 1 .BorderColor = vbBlack ' Shape 2 korrekt positionieren Shape2.Move .Left, .Top, 0, .Height End With ' Eigenschaften des Fortschrittsbalken (Shape2) festlegen With Shape2 .Visible = False .BackStyle = 1 .BackColor = vbBlue .BorderStyle = 0 ' Transparent End With End Sub ' Fortschrittsbalken anzeigen Private Sub ShowProgress(ByVal nValue As Long, ByVal nMax As Long) Dim nWidth As Long If nMax > 0 Then ' Breite von Shape2 prozentual zur Breite von Shape2 berechnen With Shape1 nWidth = (nValue / nMax) * .Width ' Sicher ist sicher :-) If nWidth > .Width Then nWidth = nWidth End With ' Fortschrittsbalken anzeigen With Shape2 .Width = nWidth If Not .Visible Then .Visible = True End With End If End Sub Private Sub start_Click() Dim i As Long ' Fortschrittsbalken... For i = 1 To 100 ShowProgress i, 100 Sleep 30 Next i End Sub
den Code für die progressbar hab ich von vbarchiv.de! nur so als info
MfG Sereby
Dieser Beitrag wurde von Sereby bearbeitet: 12. Juli 2005 - 16:02