Anwendungen einfügen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Starz.

    Anwendungen einfügen

    Hallo VB Com,

    bin neu hier und habe auch gleich eine Frage, da ich im Moment nicht weiterkomme.
    Ich habe sowohl die Suchmaschiene benutzt als auch im Netz geschaut, doch bisher ohne Erfolg.

    Mein Anliegen ist folgendes:
    Ich habe im Moment eine Form offen.
    3 Dateien die ich vorher schon ''Programmiert'' habe in die Recoursen hinzugefügt.
    Nun möchte ich, dass wenn meine Checkbox1-3 oder jeweils eine davon angeklickt wird. Der Button Öffnen erscheint.
    Dies habe ich gemacht ! Funktioniert auch.
    Nun möchte ich aber auch, dass sich wenn ich auf den Button öffnen klicke sich die .exe Anwendung die ich zuvor erstellt habe auch öffnet und man diese benutzen kann.
    Wie bekomme ich das hin?

    Mein Code sieht derzeitig so aus:

    Quellcode

    1. Public Class Form1
    3. Private Sub ToolStripStatusLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripStatusLabel1.Click
    5. End Sub
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. Timer1.Start()
    9. Dim Button1 As String
    10. End Sub
    12. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    13. Dim stunden As String = My.Computer.Clock.LocalTime.Hour
    14. Dim minuten As String = My.Computer.Clock.LocalTime.Minute
    15. Dim sekunden As String = My.Computer.Clock.LocalTime.Second
    17. If minuten < 10 Then minuten = "0" + minuten
    18. If sekunden < 10 Then sekunden = "0" + sekunden
    20. Label1.Text = stunden & ":" & minuten & ":" & sekunden
    22. Dim Tag As String = My.Computer.Clock.LocalTime.Day
    23. Dim Monat As String = My.Computer.Clock.LocalTime.Month
    24. Dim Jahr As String = My.Computer.Clock.LocalTime.Year
    26. If Tag < 10 Then Tag = "0" + Tag
    27. If Monat < 10 Then Monat = "0" + Monat
    29. Label4.Text = Tag & "." & Monat & "." & Jahr
    30. End Sub
    32. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    33. Me.Close()
    34. End Sub
    36. Private Sub InformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformationToolStripMenuItem.Click
    37. MsgBox("Dieses Programm wurde von Phenom erstellt.", MsgBoxStyle.OkOnly)
    38. End Sub
    40. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    41. Me.Close()
    42. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    45. If CheckBox1.Checked Then
    48. End If
    49. End Sub
    51. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    52. If CheckBox1.Checked Then
    54. End If
    55. Button1.Visible = True
    56. End Sub
    58. Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    59. If CheckBox2.Checked Then
    61. End If
    62. Button1.Visible = True
    63. End Sub
    65. Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
    66. If CheckBox3.Checked Then
    68. End If
    69. Button1.Visible = True
    70. End Sub
    72. Private Sub Start()
    73. Throw New NotImplementedException
    74. End Sub
    76. End Class


    Ich hoffe ihr wisst was ich meine und vorallem hoffe ich, dass ihr mir helfen könnt.
    Würde mich auf jedenfall weiter bringen und sehr freuen!

    Gruß
    Phenomx3

    Du musst diesen Code in deine Codestelle einfügen wenn der button angeclickt wird:

    VB.NET-Quellcode

    1. Process.Start("\DeinPfad\DeinProgramm.exe")


    oder wenn deine anderen proggs sich im gleichen ordner befinden kannst du auch das benutzen:

    VB.NET-Quellcode

    1. Process.Start("DeinProg.exe")


    Denke ich mal! xD

    Aber wenn ich das Programm dann mit Inno Setup Compiler zum setup mach es nem kumpel schicke hat er ja nicht die Programme in den entsprechenden Ordnern.
    Die habe ja dann nur ich oder nicht ?

    Und...
    Es sind ja 3 Programme die sich alle auf dem selben Button öffnen.
    Dazu kommt noch das sich nur das jeweilige Programm öffnen soll was in der Checkbox als Checked markiert wurde.

    Okay das ist natürlich machbar das stimmt.
    Aber dann muss ich im Code ja eine Ordnerangabe machen.
    Man kann beim Setup allerdings speicherort und alles selbst auswählen!
    Wie schreib ich das in den Code, dass er auch dann wirklich den entsprechenden Pfad wählt auch wenn der Nutzer den Pfad selbst ändert?

    Wie schon gesagt:

    Wenn du in einem Ordner dein Programm mit dem du die anderen Programme öffnen möchtest in sie rein tust und auch die anderen Programme in den GLEichen ordner reintust , musst du nur noch den ordner in die setup datei packen.

    Und tada! Dann kann er den Pfad verändern wie der benutzer will wenn alle Programme in einem Ordner sind funzts immer noch!

    NUR, DU MUSST DANN DEN CODE BENUTZEN:


    VB.NET-Quellcode

    1. Process.Start("ProgDasDuÖffnenMöchtest.exe")

    Dem zufolge wäre also der Code folgender:

    Quellcode

    1. If CheckBox1.Checked Then
    2. Process.Start("MSN Spammer.exe")
    3. If CheckBox2.Checked Then
    4. Process.Start("ICQ Spammer.exe")
    5. If CheckBox3.Checked Then
    6. Process.Start("Skype Spammer.exe")


    Wenn alle im selben Ordner sind?