ReDim bei System.Diagnostics.Process

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    ReDim bei System.Diagnostics.Process

    Hallo,

    ich habe

    VB.NET-Quellcode

    1. Private Programm(0) As System.Diagnostics.Process
    4. Private Sub Wichtige_Dateien_Starten()
    5. Dim DokuZähler As Integer
    6. Dim Liste As DataSet = DokumentenDataSet
    8. DokuZähler = Liste.Tables(0).Rows.Count - 1
    9. For x = 0 To DokuZähler
    11. If DokumentenDataSet.Tables(0).Rows(x).Item(2) And Stundenplaner.ChkbZettelbearbeiten.Checked = True Then
    13. 'Programm(ProgrammZähler).windowstyle = ProcessWindowStyle.Minimized
    14. Programm(ProgrammZähler) = Process.Start(DokumentenDataSet.Tables(0).Rows(x).Item(1))
    15. ProgrammZähler += 1
    16. ReDim Programm(ProgrammZähler)
    18. End If
    19. Next
    21. End Sub
    24. Private Sub Wichtige_Programme_Beenden()
    27. For x = 0 To ProgrammZähler
    28. Try
    30. Programm(x).CloseMainWindow()
    31. Catch ex As Exception
    33. End Try
    34. ProgrammZähler = 0
    35. Next
    36. End Sub


    Jetzt wird keines der geöffneten Programme geschlossen.

    Wenn ich "Private Programm(0) As System.Diagnostics.Process" auf "Private Programm(10) As System.Diagnostics.Process" setze und " ReDim Programm(ProgrammZähler)" rausnehme, dann schließen sich auch die aufgerufenen Programme.

    Letztendlich würde mir das schon reichen. Aber ich würde gerne wissen, warum das ReDim Ärger verursacht und wie man ihn umgehen kann. Ich habe zuerst darauf getippt, dass es so etwas wie RePrivate geben müsste, aber derartiges nicht gefunden.

    Viele Grüße
    Stephan

    Mach es etwa so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Programm As New List(Of System.Diagnostics.Process)
    3. Private ProgrammZähler As Integer = 0
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    6. Dim DokuZähler As Integer = 0
    7. Dim pr As New System.Diagnostics.Process
    8. 'Dim Liste As DataSet = DokumentenDataSet
    10. 'DokuZähler = Liste.Tables(0).Rows.Count - 1
    11. For x = 0 To DokuZähler
    13. 'If DokumentenDataSet.Tables(0).Rows(x).Item(2) And Stundenplaner.ChkbZettelbearbeiten.Checked = True Then
    15. 'Programm(ProgrammZähler).windowstyle = ProcessWindowStyle.Minimized
    16. 'pr = Process.Start(DokumentenDataSet.Tables(0).Rows(x).Item(1))
    17. pr = Process.Start("Notepad.exe")
    18. ProgrammZähler += 1
    19. Programm.Add(pr)
    21. 'End If
    22. Next
    24. End Sub
    26. Private Sub Wichtige_Programme_Beenden()
    27. For x = 0 To ProgrammZähler - 1
    28. Programm(x).CloseMainWindow()
    29. Next
    30. Programm.Clear()
    31. ProgrammZähler = 0
    32. End Sub
    34. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    35. Wichtige_Programme_Beenden()
    36. End Sub
    37. End Class
    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!