Hintergrundprozess starten der der den Wert einer Textbox ausliest

  • Allgemein

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Creepermann.

    Hintergrundprozess starten der der den Wert einer Textbox ausliest

    Hallo Com,
    Meine Frage ist folgende:Ich möchte gerne das wenn auf dem Button(Button1)
    geklickt wird ein Hintergrundprozess startet der den Wert der Textbox ausliest
    und speichert so das ein anderes Programm darauf zugreifen kann.

    Nur weiß ich nicht wie ich ein Hintergrundprogramm starte


    thx für alle antworten unten der Code(falls benötigt)



    VB.NET-Quellcode

    1. Public Class Form1
    2. Shared zz, ss, aa, ww As Integer
    3. Dim countdown As Integer
    4. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Randomize()
    6. zz = Int(10000 * Rnd())
    8. ss = Int(10000 * Rnd())
    10. aa = Int(10000 * Rnd())
    11. ww = Int(10000 * Rnd())
    13. TextBox1.Text = CStr(zz & " " & ss & " " & aa & " " & ww)
    15. Label1.ForeColor = Color.Black
    16. countdown = "30"
    17. Timer1.Start()
    19. Label1.Text = "Time left:" & countdown
    20. Button1.Enabled = False
    22. Timer2.Start()
    30. End Sub
    32. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    34. countdown = countdown - 1
    36. If countdown = "0" Then
    37. Timer1.Stop()
    38. Timer2.Stop()
    39. Label1.ForeColor = Color.Red
    40. Label1.Text = "Time left Time left Time left"
    44. Button1.Enabled = True
    45. TextBox1.Text = ""
    46. Console.Beep()
    47. Console.Beep()
    48. Console.Beep()
    51. End If
    53. End Sub
    55. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    57. End Sub
    59. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    60. Label1.Text = "Time left:" & countdown
    61. End Sub

    Definiere

    Creepermann schrieb:

    Hintergrundprozess

    Und:
    Gib Deinem Programm Option Strict On.
    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!

    sowas in der art?

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. Dim t As New Thread(AddressOf writefoo)
    3. t.Start()
    4. End Sub
    5. Sub writefoo()
    6. IO.File.WriteAllText(IO.Path.Combine _
    7. (My.Computer.FileSystem.SpecialDirectories.MyDocuments, "DasIsEinTollerName.txt"),
    8. TextBox2.Text)
    9. End Sub

    @RodFromGermany
    Mit Hintergrundprozess meine ich eigentlich ein Prozess der denn Wert aus
    der Textbox ausließt und speichert(so das ein anderes Programm denn Wert
    auslesen kann)

    @-FloFuchs
    Ja im Prinzip schon nur das der Prozess denn Wert in sich(klingt doof ich weiß)
    behält bis der 30 Sekunden abgelaufen sind

    Meine Fragen:
    1.Wie startete ich so ein Prozess?
    2.Wie lese ich denn Wert aus(Readline?)

    thx für alle Antworten bis jetzt!!

    Creepermann schrieb:

    1.Wie startete ich so ein Prozess?
    2.Wie lese ich denn Wert aus(Readline?)
    Zum Schreiben brauchst Du keinen Prozess. Nomm den Code von @ FloFuchs: und lass ein paar Zeilen weg:

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. IO.File.WriteAllText(IO.Path.Combine _
    3. (My.Computer.FileSystem.SpecialDirectories.MyDocuments, "DasIsEinTollerName.txt"),
    4. TextBox2.Text)
    5. End Sub
    Zum Einlesen nimm die Umkehrung:

    VB.NET-Quellcode

    1. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    2. TextBox2.Text = IO.File.ReadAllText(IO.Path.Combine _
    3. (My.Computer.FileSystem.SpecialDirectories.MyDocuments, "DasIsEinTollerName.txt"))
    4. End Sub
    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
Telefonspende