Brauche hilfe bei Progressbar Text

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    Brauche hilfe bei Progressbar Text

    Hallo liebe Gemeinde,

    ich benötige mal eure hilfe mit der Programmierung einer Progressbar...
    und zwar soll in einer RichTextBox ab einer bestimmten prozentzahl der Progressbar ein Text erscheinen in der RichTextBox...
    ... Wenn die Progressbar bei einer weiteren Prozentzahl ankommt dann soll in einer neuen Zeile ein weiterer Text kommen in der RichTextBox aber der vorherige Test soll trotzdem stehen bleiben.

    Hatte es so probiert, aber keinen Erfolg gehabt dabei.

    If Progressbar1.Value = 10 Then RichTextBox1.Text = " "
    If Progressbar1.Value = 20 Then RichTextBox1.Text = " " & VbNewLine & " "

    Könnt ihr mir helfen?

    Danke Dir, bin leider noch net so gut vesiert in Visual Basic...
    ...Habe hier mal den Code gepostet, aber komme nicht weiter.
    Welche Dokumentaton meinst du denn?

    ProgressBar1.Value += 1
    If ProgressBar1.Value = ProgressBar1.Maximum Then
    Timer1.Stop()
    ProgressBar1.Value = 100
    MessageBox.Show("Naaa, einen Schreck bekommen? :-P" & vbNewLine & "War nur ein Spass" & vbNewLine & "Möchtest Du auch Bekannte veräppeln, dann schicke das Programm weiter")

    End If


    If ProgressBar1.Value = 10 Then RichTextBox1.Text = "Hallo"
    If ProgressBar1.Value = 20 Then RichTextBox1.AppendText = RichTextBox1.Text = "Tschüss"

    Hat sich erledigt...
    Hab es anders geschreiben, zwar bischen aufwendiger aber es läuft...
    Nochmal Danke an euch :)


    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
    5. End Sub
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Timer1.Start()
    13. End Sub
    15. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    17. ProgressBar1.Value += 1
    18. If ProgressBar1.Value = ProgressBar1.Maximum Then
    19. Timer1.Stop()
    20. ProgressBar1.Value = 100
    21. MessageBox.Show("Naaa, einen Schreck bekommen? :-P" & vbNewLine & "War nur ein Spass" & vbNewLine & "Möchtest Du auch Bekannte veräppeln, dann schicke das Programm weiter")
    23. End If
    26. If ProgressBar1.Value = 10 Then RichTextBox1.Text = "Windows Sicherheitsdienste werden deaktiviert"
    27. If ProgressBar1.Value = 30 Then RichTextBox1.Text = "Windows Sicherheitsdienste werden deaktiviert..." & vbNewLine & "Administrator Rechte werden erlangt"
    28. If ProgressBar1.Value = 40 Then RichTextBox1.Text = "Windows Sicherheitsdienste werden deaktiviert..." & vbNewLine & "Administrator Rechte werden erlangt" & vbNewLine & "Benutzerzugriff wird gesperrt"
    29. If ProgressBar1.Value = 60 Then RichTextBox1.Text = "Windows Sicherheitsdienste werden deaktiviert..." & vbNewLine & "Administrator Rechte werden erlangt" & vbNewLine & "Benutzerzugriff wird gesperrt" & vbNewLine & "Systemdateien werden gelöscht"
    30. If ProgressBar1.Value = 70 Then RichTextBox1.Text = "Windows Sicherheitsdienste werden deaktiviert..." & vbNewLine & "Administrator Rechte werden erlangt" & vbNewLine & "Benutzerzugriff wird gesperrt" & vbNewLine & "Systemdateien werden gelöscht" & vbNewLine & "Datenträger werden Formatiert... Bitte Warten"
    33. End Sub
    35. Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
    37. Form2.Show()
    39. End Sub
    41. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    43. MessageBox.Show("Abbruch nicht möglich bitte warten")
    45. End Sub
    46. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Syntaxstring“ ()

    Select Case

    Hallo,

    Natürlich wäre es mit einer "Select Case" und Richtextbox1.AppendText eleganter gelöst.

    VB.NET-Quellcode

    1. Select Case Progressbar1.value
    3. case "10"
    4. Richtextbox1.text="Dein Text1 "
    5. case "20"
    6. Richtextbox1.appendtext("Dein Text2 ")
    7. case "30"
    8. Richtextbox1.appendtext("Dein Text3 ")
    10. End select


    Nescafe

Facebook
Telefonspende