Hallo ,
Ich habe folgendes Problem diese Schleife ordentlich zu Programmieren
Also die Schleife soll dann erst Starten wenn folgende Parameter True sind
Pfad + Dienst aus der Listview und checked = Timer legt los
Pfad + Prozess aus der Listview und checked = Timer legt los
So sieht mein Programm aus
Der erste Durchlauf soll den Prozess betreffen Pfad + Typ = Prozess
Der zweite Durchlauf soll den Dienst betreffen Pfad + Typ = Dienst
Insbesondere der Untereteil mit dem Dienst starten funktioniert noch nicht
Kann mir jemand helfen
Wie wird die Schleife richtig gecodet ?
Gruß und Dank
Ich habe folgendes Problem diese Schleife ordentlich zu Programmieren
VB.NET-Quellcode
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ' Durchläuft alle markierten Einträge
- 'If ListView1.CheckedItems.Text = "Prozess" Then
- For index As Integer = 0 To ListView1.CheckedItems.Count - 1
- ' Hilfsvariable für den Pfad
- Dim fullpath As String = ListView1.CheckedItems(index).Text
- ' Dateiname ohne Dateiendung (=ProcessName)
- Dim processname As String = IO.Path.GetFileNameWithoutExtension(fullpath)
- If ListView1.CheckedItems.Text = "Prozess" Then
- ' Prüfen, ob Process mit dem aktuellen processname schon läuft
- If Process.GetProcessesByName(processname).Length <= 0 Then
- ' Versuche, Process zu starten
- Try
- Process.Start(fullpath)
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End If
- End If
- Next
- 'Else
- For index As Integer = 0 To ListView1.CheckedItems.Count - 1
- ' Hilfsvariable für den Pfad
- Dim fullpath As String = ListView1.CheckedItems(index).Text
- ' Dateiname ohne Dateiendung (=Dienstname)
- Dim dienstname As String = IO.Path.GetFileNameWithoutExtension(fullpath)
- If ListView1.CheckedItems.Text = "Prozess" Then
- ' Prüfen, ob der Dienst mit dem aktuellen dienstnamen schon läuft
- If ServiceController.GetServices(dienstname).Length <= 0 Then
- ' Versuche, Dienst zu starten, wenn dieser nicht läuft
- Try
- ServiceController(fullpath).Start
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End If
- End If
- Next
- End Sub
Also die Schleife soll dann erst Starten wenn folgende Parameter True sind
Pfad + Dienst aus der Listview und checked = Timer legt los
Pfad + Prozess aus der Listview und checked = Timer legt los
So sieht mein Programm aus
Der erste Durchlauf soll den Prozess betreffen Pfad + Typ = Prozess
Der zweite Durchlauf soll den Dienst betreffen Pfad + Typ = Dienst
Insbesondere der Untereteil mit dem Dienst starten funktioniert noch nicht
Kann mir jemand helfen
Wie wird die Schleife richtig gecodet ?
Gruß und Dank
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „vb2011“ ()