Progressbar mit For Schleife

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von Eiskaffee.

    Progressbar mit For Schleife

    Hallihallo!

    Ich stehe nun seit Stunden vor einem - hoffe ich - simplen Problem.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim maxi As Integer = 0
    3. Dim appRef As Photoshop.Application
    4. Dim currentDoc As Photoshop.Document
    6. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    8. If TextBox1.Text = "" Then
    9. MsgBox("Bitte erst Ordner auswählen!")
    10. End If
    11. Dim files() As String = IO.Directory.GetFiles(TextBox1.Text, "*.psd")
    12. ProgressBar1.Maximum = maxi
    13. ProgressBar1.Step = 1
    14. Dim minimum As Integer
    15. maxi = files.Count
    16. Try
    17. For minimum = 0 To maxi
    18. For Each fl As String In files
    19. currentDoc = appRef.Open(fl)
    20. appRef.DoAction("Zuschneiden", "BWS")
    21. Dim jpeg As New Photoshop.JPEGSaveOptions
    22. jpeg.Quality = 12
    23. currentDoc.SaveAs(TextBox2.Text + "\" + _
    24. IO.Path.GetFileName(fl), jpeg, False, 2)
    25. currentDoc.Close(PsSaveOptions.psDoNotSaveChanges)
    26. Next fl
    28. ProgressBar1.PerformStep()
    29. ProgressBar1.Refresh()
    31. ProgressBar1.Value = ProgressBar1.Maximum
    32. Label1.Text = ProgressBar1.Value
    33. Next
    34. Catch ex As Exception
    35. MsgBox("Fehler")
    36. End Try
    37. End Sub
    38. End Class


    Folgendes will ich erreichen:

    Bei jedem durchlaufen der Forschleife soll sich der Ladebalken füllen.
    Die Funktion die drinsteht bewirkt eine Stapelverarbeitung in Photoshop von Dateien die ich mit einem FolderBrowserDialog auswähle, das funktioniert top.

    Die Anzahl der Dateien (also ProgressBar1.Maximum) lege ich ja mit "maxi = files.Count" fest oder?
    Paar zeilen drüber hab ich ja festgelegt dass diese "files" ja die Dateien aus dem Pfad in der Textbox1 sind.

    Es tut sich aber einfach rein GARNICHTS, die Stapelverarbeitung in Photoshop läuft, der Ladebalken bewegt sich kein Stück.

    Jede Hilfe ist nützlich, danke!

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Photoshop
    3. Imports System.IO
    5. Public Class Form1
    6. Dim maxi As Integer = 0
    7. Dim appRef As Photoshop.Application
    8. Dim currentDoc As Photoshop.Document
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. appRef = New Application
    12. appRef.Visible = True
    13. appRef.DisplayDialogs = PsDialogModes.psDisplayNoDialogs
    14. appRef.PlaybackDisplayDialogs = PsDialogModes.psDisplayNoDialogs
    15. For Each c As String In IO.Directory.GetFiles(TextBox1.Text, "*.psd") ' zeahlt die datein damit ich ein echtes progressanzeige kriege
    16. maxi = maxi + 1
    17. Next c
    18. End Sub
    20. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    21. Dim Open1 = New FolderBrowserDialog()
    23. With Open1
    24. .Description = "Wähle einen Ordner mit PSD Dateien"
    25. .ShowNewFolderButton = True
    26. If TextBox1.Text = "" Then
    27. .SelectedPath = "N:\"
    28. Else
    29. .SelectedPath = TextBox1.Text
    30. End If
    31. .ShowDialog()
    33. End With
    34. TextBox1.Text = Open1.SelectedPath
    36. End Sub
    38. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    39. Dim Save1 = New FolderBrowserDialog()
    41. With Save1
    42. If TextBox2.Text = "" Then
    43. .SelectedPath = TextBox1.Text
    44. Else
    45. .SelectedPath = "N:\"
    46. End If
    47. End With
    48. Dim result As DialogResult = Save1.ShowDialog()
    49. If (result = DialogResult.OK) Then
    50. TextBox2.Text = Save1.SelectedPath
    51. End If
    52. End Sub
    54. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    55. '########1. DURCHLAUF #########
    56. If TextBox1.Text = "" Then
    57. MsgBox("Bitte erst Ordner auswählen!")
    58. End If
    59. Dim files() As String = IO.Directory.GetFiles(TextBox1.Text, "*.psd")
    60. ProgressBar1.Maximum = maxi
    61. ProgressBar1.Step = 1
    62. Dim minimum As Integer
    63. maxi = files.Count
    64. Try
    65. For minimum = 0 To maxi
    66. For Each fl As String In files
    67. currentDoc = appRef.Open(fl)
    68. appRef.DoAction("Zuschneiden", "BWS")
    69. Dim jpeg As New Photoshop.JPEGSaveOptions
    70. jpeg.Quality = 12
    71. currentDoc.SaveAs(TextBox2.Text + "\" + _
    72. IO.Path.GetFileName(fl), jpeg, False, 2)
    73. currentDoc.Close(PsSaveOptions.psDoNotSaveChanges)
    74. Next fl
    76. ProgressBar1.PerformStep()
    77. ProgressBar1.Refresh()
    79. ProgressBar1.Value = ProgressBar1.Maximum
    80. 'Label1.Text = ProgressBar1.Value
    81. Next
    82. Catch ex As Exception
    83. MsgBox("Fehler")
    84. End Try
    85. End Sub
    87. End Class


    Das ist der Komplette code

    Moin,

    @Dani=mc^2 Inwiefern sollte die Designerdatei wichtig sein?
    @TE: Wenn Du Option Strict an hast, dann sollten Fehler auftauchen, die Du zunächst sauber beheben solltest.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ich kenn mich eigentlich fast garnicht aus in Visual basic...
    Daher können da schon sinnlose sachen drin stehen ;)

    Ist es nicht ganze infach umsetzbar, dass mit jeder Forschleife der Ladebalken eben zunimmt?
    Wäre top wenn jemand das ganz einfach beschreibt und nicht nur kommt was falsch ist ;)

    Ja, einfach die Value inkrementieren. Allerdings ist Dein Code immer noch Strict Off und das solltest Du schnell beheben.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Inkrementiert (to increase) heißt, dass die Zahl immer um einen bestimmten Wert (normal 1) größer wird.
    Zum Thema Strict On: Wie hast Du die Fehler behoben?

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Bei einem einfach Beispiel, wie sag ich da dass die Progressbar mit der Forschleife mitläuft?

    VB.NET-Quellcode

    1. Dim maxi as Integer = 0
    2. for Each c As String In IO.Directory.GetFiles(TextBox1.Text, "*.psd")
    3. maxi = maxi + 1
    4. Next c
    6. Progressbar1.Maximum = maxi
    8. For each 'bedingung
    9. 'da kommt meine photoshop funktion rein
    10. Next
    12. 'wo und wie sag ich der ProgressBar1 dass sie mit der Schleife größer wird?


    Was für Fehler denn?

    Du sollst die ​Value inkrementieren, wie ich bereits sagte.

    Eiskaffee schrieb:

    Was für Fehler denn?

    Du musst Fehler bekommen haben, denn mit Strict On kompiliert unter anderem sowas (​Label1.Text = ProgressBar1.Value) nicht.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    VB.NET-Quellcode

    1. Dim maxi as Integer = 0
    2. for Each c As String In IO.Directory.GetFiles(TextBox1.Text, "*.psd")
    3. maxi = maxi + 1
    4. Next c
    6. Progressbar1.Maximum = maxi
    8. For each 'bedingung
    9. 'da kommt meine photoshop funktion rein
    10. ProgressBar1.Value = ProgressBar1.Value + 1
    11. Next
    13. 'wo und wie sag ich der ProgressBar1 dass sie mit der Schleife größer wird?


    So oder wie?

    und ja, die Fehler die ich bekommen habe habe ich behoben

    Richtig, das kann man btw mit ​ProgressBar1.Value += 1 abkürzen.

    Eiskaffee schrieb:

    die Fehler die ich bekommen habe habe ich behoben

    Zeig mal. ^^

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Eiskaffee schrieb:

    So oder wie?
    Was genau soll in diesem Programm passieren?
    Und

    VB.NET-Quellcode

    1. ProgressBar1.Increment(1)

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook