EXE mehrfach öffnen duch Auswahl aus DropDownList

  • VB.NET

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

    EXE mehrfach öffnen duch Auswahl aus DropDownList

    Hallo alle zusammen.

    Ich bin dabei ein Programm zu erstellen was mir einiges an Zeit ersparen soll am Tag.

    Langsam tun mir schon die Augen weh vom ganzen Googeln und Video Tutorials angucken. Daher frag ich jetzt mal nach Hilfe.

    Der Gedanke:

    Mein Project öffnen. (Evtl im Autostart verankern aber das kommt später)
    Per openfiledialog die exe wählen dessen Pfad in einer textbox angezeigt wird. "Erledigt"
    Aus DropDownList die Anzahl der zu startenden Prozesse wählen. "Erledigt"
    Bei klick auf Start Button überprüfen ob textbox2 leer ist, die vorgegeben exe gewählt wurde und ob eine Auswahl der DropDownList getätigt wurde. "Fehlt"
    Wenn Vorgaben erfüllt sind die im Pfad eingetragene exe so oft öffnen wie in der DropDownListe angegeben.

    Was ich habe ist:

    VB.NET-Quellcode

    1. Public Class Multistart
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. With OpenFileDialog1
    5. .Filter = "EXE Datei (*.exe)|*.exe"
    6. .FileName = ""
    7. End With
    9. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    11. Dim positiv As String = OpenFileDialog1.FileName
    12. TextBox1.Text = IO.Path.GetDirectoryName(positiv)
    13. TextBox2.Text = IO.Path.GetFileName(positiv)
    15. End If
    16. End Sub
    18. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    20. Dim curFile As String = (textbox2.text = ("test.exe"))
    21. Console.WriteLine(If(File.Exists(curFile), "File exists.", "File does not exist."))
    23. If ComboBox1.SelectedItem & TextBox2.Text = "" Then
    24. MsgBox("Prozess: Pfad oder Anzahl fehlt!")
    25. Else
    28. End If
    30. End Sub


    Hier komme ich nicht weiter.

    Wäre super wenn mir jemand helfen könnte.

    LG xxlynusxx

    xxlynusxx schrieb:

    so oft öffnen wie in der DropDownListe angegeben.
    Was soll die DropDown-Liste? Nimm ein NumericUpDown und feddich.
    Mit der GUI und diesem Code läuft das:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Button2.Enabled = False
    4. Using dlg As New OpenFileDialog
    5. dlg.Filter = "EXE Dateien|*.exe"
    6. If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
    7. TextBox1.Text = dlg.FileName
    8. Button2.Enabled = True
    9. End If
    10. End Using
    11. End Sub
    13. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    14. For i = 1 To NumericUpDown1.Value
    15. Dim pr = New Process
    16. pr.StartInfo.FileName = TextBox1.Text
    17. pr.Start()
    18. pr.WaitForInputIdle(500)
    19. Next
    20. End Sub
    21. End Class

    Bilder

    • Start1.jpg

      6,26 kB, 300×155, 87 mal angesehen

    • Start2.jpg

      8,86 kB, 300×146, 85 mal angesehen
    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!

    Vielen Dank. Das hat mir schon sehr geholfen.

    Wie kann ich es nun einrichten das nur eine vorgegebene exe ausgewählt werden kann? z.b test.exe

    Ich habe es so probiert aber es geht nicht. er öffnet immernoch alle exe datein.

    VB.NET-Quellcode

    1. Public Class multistarter
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. With OpenFileDialog1
    5. .Filter = "EXE Datei (*.exe)|*.exe"
    6. .FileName = ""
    7. End With
    9. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    10. Dim positiv As String = OpenFileDialog1.FileName
    11. TextBox1.Text = OpenFileDialog1.FileName
    12. TextBox2.Text = IO.Path.GetFileName(positiv)
    13. End If
    14. Button2.Enabled = True
    15. End Sub
    17. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    19. Dim curFile As String = (TextBox2.Text = ("test.exe"))
    20. Console.WriteLine(If(File.Exists(curFile), "File exists.", "File does not exist."))
    22. For i = 1 To NumericUpDown1.Value
    23. Dim pr = New Process
    24. pr.StartInfo.FileName = TextBox1.Text
    25. pr.Start()
    26. pr.WaitForInputIdle(500)
    28. Next
    29. End Sub
    31. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xxlynusxx“ ()

    Definiere

    xxlynusxx schrieb:

    das nur eine vorgegebene exe ausgewählt werden kann?

    VB.NET-Quellcode

    1. .MultiSeleft = False
    :?:
    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!

    ich meine das mit meinem programm nur ein bestimmter prozess gestartet werden kann. es soll z.b. nur die notepad.exe geöffnet werden können. soll verhindern das wenn man sich verklickt auf ein mal 100x der browser gestartet wird^^

    xxlynusxx schrieb:

    soll verhindern
    Dann nimm den OpenFileDialog raus und schreib den Pfad der Exe hart in das Programm.
    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!

    xxlynusxx schrieb:

    pfad zum ordner
    Nimm einen FolderBrowserDialog.
    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!

    Ich weiß nicht ob es so richtig gelöst ist aber es funktioniert. für verbesserungsvorschläge bin ich trotzdem dankbar.

    VB.NET-Quellcode

    1. Public Class multistarter
    3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    4. With OpenFileDialog1
    5. .Filter = "EXE Datei (*.exe)|*.exe"
    6. .FileName = ""
    7. End With
    9. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    10. Dim positiv As String = OpenFileDialog1.FileName
    11. TextBox1.Text = OpenFileDialog1.FileName
    12. TextBox2.Text = IO.Path.GetFileName(positiv)
    13. End If
    14. Button3.Enabled = True
    15. End Sub
    17. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    18. My.Settings.pfad = TextBox1.Text
    19. My.Settings.prozess = TextBox2.Text
    20. My.Settings.Save()
    21. My.Settings.Reload()
    22. For i = 1 To NumericUpDown1.Value
    23. Dim pr = New Process
    24. pr.StartInfo.FileName = TextBox1.Text
    25. pr.Start()
    26. pr.WaitForInputIdle(500)
    28. Next
    29. End Sub
    31. Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    32. If TextBox2.Text = ("test.exe") Then
    33. Button2.Enabled = True
    34. Button3.Enabled = False
    35. Else
    36. MsgBox("Bitte exe auswählen!")
    37. End If
    38. End Sub
    40. Private Sub multistarter_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    41. TextBox1.Text = My.Settings.pfad
    42. TextBox2.Text = My.Settings.prozess
    43. If TextBox2.Text = ("test.exe") Then
    44. Button2.Enabled = True
    45. End If
    46. End Sub
    47. End Class


    So werden die daten auch gleich gespeichert für jeden neuen programmaufruf.

    My.Settings.Save() und My.Settings.Reload() kannst du weglassen...
    Die geänderten Settings werden beim Schließen der Form sowieso automatisch gespeichert.
    Projekteigenschaften/Anwendung/My.Settings bei herunterfahren speichern (Checkbox=an)

    Als nächstes könntest du deine Textboxen an die Settings binden (lese dich dazu hier einmal hinein).

    Vergib deinen Controls ordentliche Namen, damit man den Code besser lesen kann...

    xxlynusxx schrieb:

    VB.NET-Quellcode

    1. TextBox2.Text = IO.Path.GetFileName(positiv)

    RodFromGermany schrieb:

    Nimm einen FolderBrowserDialog.
    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!