FlowLayoutPanel in einer Linie

  • VB.NET

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

    FlowLayoutPanel in einer Linie

    Hi,

    ich blick hier grad nicht durch... ich habe eine class.vb die meine die ein Bauprozess simuliert, wenn ein Button geklickt wird dann läuft ein Countdown ab und es wird ein Label erstellt was getan wird, eine PBar (mit Prozenten) und ein Label wie lange es noch dauert bis es fertig ist. Siehe bild.



    Wie man sehen kann sind diese Objekte untereinander .... Wie bekomme ich sie nebeneinander ?

    hier der Code:

    VB.NET-Quellcode

    1. Public _progressBar As Pbar
    2. Public _restTimeLabel As Label
    3. Public fp2 As New FlowLayoutPanel
    5. Public Sub New(timername As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)
    6. Timer = New Timer() With {.Interval = 1000, .Enabled = True}
    7. AddHandler Timer.Tick, AddressOf Timer_Tick
    8. RunsOutAt = DateAdd(DateInterval.Second, timetocompleteSeconds, Now)
    9. CreateCluster(timername, flowPanel)
    10. StartetAt = Now
    11. Timer.Start()
    12. End Sub
    14. Public Sub CreateCluster(timername As String, FlowPanel As FlowLayoutPanel)
    16. FlowPanel.FlowDirection = FlowDirection.LeftToRight
    17. fp2.Controls.Add(New Label() With {.Text = timername, .Width = 200, .Height = 20})
    18. _progressBar = New Pbar
    19. With _progressBar
    20. .Width = 100 : .Height = 10
    21. End With
    22. fp2.Controls.Add(_progressBar)
    23. _restTimeLabel = New Label() With {.Text = New TimeSpan(0, 0, CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))).Duration.ToString}
    24. fp2.Controls.Add(_restTimeLabel)
    25. FlowPanel.Controls.Add(fp2)
    27. End Sub
    29. Public Property Timer As Timer
    30. Public Property StartetAt As DateTime
    31. Public Property RunsOutAt As DateTime
    33. Public Sub Timer_Tick(sender As Object, e As EventArgs)
    35. Dim completTimeSpan As Integer = CInt(DateDiff(DateInterval.Second, StartetAt, RunsOutAt))
    36. Dim resttime As Integer = CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))
    37. Dim percentValue As Double = ((completTimeSpan - resttime) * 100) / completTimeSpan
    39. If percentValue >= 100 Then
    40. _progressBar.Value = 100
    41. fp2.Visible = False
    42. _progressBar.Visible = False
    43. _restTimeLabel.Visible = False
    44. _progressBar.SendToBack()
    45. Timer.Stop()
    46. RaiseEvent Loadcompleted()
    47. Else
    48. _progressBar.Value = percentValue
    49. _restTimeLabel.Text = "Restzeit " & New TimeSpan(0, 0, CType(DateDiff(DateInterval.Second, Now, RunsOutAt), Integer)).Duration.ToString
    50. End If
    51. End Sub
    53. Public Event Loadcompleted()


    ich hatte es kurzzeitig hinbekommen das sie nebeneinander sind.

    Hier das Bild:



    Aber wenn der Countdown abgelaufen ist wird nur die PBar und die Restzeit entfernt ... das erste Infolabel bleibt stehen

    siehe Hier:



    Ich hoffe mir kann einer weiterhelfen ...

    hier der code dazu :

    VB.NET-Quellcode

    1. Public _progressBar As Pbar
    2. Public _restTimeLabel As Label
    3. Public fp2 As New FlowLayoutPanel
    5. Public Sub New(timername As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)
    6. Timer = New Timer() With {.Interval = 1000, .Enabled = True}
    7. AddHandler Timer.Tick, AddressOf Timer_Tick
    8. RunsOutAt = DateAdd(DateInterval.Second, timetocompleteSeconds, Now)
    9. CreateCluster(timername, flowPanel)
    10. StartetAt = Now
    11. Timer.Start()
    12. End Sub
    14. Public Sub CreateCluster(timername As String, fp2 As FlowLayoutPanel)
    16. fp2.FlowDirection = FlowDirection.LeftToRight
    17. fp2.Controls.Add(New Label() With {.Text = timername, .Width = 200, .Height = 20})
    18. _progressBar = New Pbar
    19. With _progressBar
    20. .Width = 100 : .Height = 10
    21. End With
    22. fp2.Controls.Add(_progressBar)
    23. _restTimeLabel = New Label() With {.Text = New TimeSpan(0, 0, CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))).Duration.ToString}
    24. fp2.Controls.Add(_restTimeLabel)
    26. End Sub
    28. Public Property Timer As Timer
    29. Public Property StartetAt As DateTime
    30. Public Property RunsOutAt As DateTime
    32. Public Sub Timer_Tick(sender As Object, e As EventArgs)
    34. Dim completTimeSpan As Integer = CInt(DateDiff(DateInterval.Second, StartetAt, RunsOutAt))
    35. Dim resttime As Integer = CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))
    36. Dim percentValue As Double = ((completTimeSpan - resttime) * 100) / completTimeSpan
    38. If percentValue >= 100 Then
    39. _progressBar.Value = 100
    40. fp2.Visible = False
    41. _progressBar.Visible = False
    42. _restTimeLabel.Visible = False
    43. _progressBar.SendToBack()
    44. Timer.Stop()
    45. RaiseEvent Loadcompleted()
    46. Else
    47. _progressBar.Value = percentValue
    48. _restTimeLabel.Text = "Restzeit " & New TimeSpan(0, 0, CType(DateDiff(DateInterval.Second, Now, RunsOutAt), Integer)).Duration.ToString
    49. End If
    50. End Sub
    52. Public Event Loadcompleted()

    @VBHunter Das TLP hat eine Property FlowDirection, die musst Du entsprechend setzen:
    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!

    Zu Problem #2: Ich würde dir empfehlen ein UserControl zu erstellen, das beide Label und Progressbar enthält und sich nach erledigter arbeit selbständig aus dem FlowLayoutPanel löscht.

    Danke @RodFromGermany aber das habe ich schon gemacht im designer und im code

    VB.NET-Quellcode

    1. fp2.FlowDirection = FlowDirection.LeftToRight


    siehe oben

    ohne erfolg

    danke @FormFollowsFunction ein Usercontrol hab ich erstellt gehabt mit Label, PBar, Label aber bei mir funktionierte die Umetzung nicht ... weis nicht genau wie ich darauf zugreife.

    VB.NET-Quellcode

    1. Public Sub CreateCluster(timername As String, fp2 As UserControl1)
    3. fp2.FlowDirection = FlowDirection.LeftToRight
    4. fp2.Controls.Add(New Label() With {.Text = timername, .Width = 200, .Height = 20})
    5. _progressBar = New Pbar
    6. With _progressBar
    7. .Width = 100 : .Height = 10
    8. End With
    9. fp2.Controls.Add(_progressBar)
    10. _restTimeLabel = New Label() With {.Text = New TimeSpan(0, 0, CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))).Duration.ToString}
    11. fp2.Controls.Add(_restTimeLabel)
    13. End Sub


    und beim Timer ... wenn er dann 100 % hat

    fp2.controls.Remove?

    VBHunter schrieb:

    ohne erfolg
    Bei mir schon:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Me.FlowLayoutPanel1.FlowDirection = FlowDirection.LeftToRight
    4. End Sub
    6. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    7. Me.FlowLayoutPanel1.FlowDirection = FlowDirection.TopDown
    8. End Sub
    9. End Class
    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 würde den Timer auch ins UserControl packen, überhaupt alles was damit zu tun hat.
    Dann, wenn der Timer abgelaufen ist, mit Parent.Controls.Remove(Me) das Control entfernen.

    @FormFollowsFunction jetzt hab ich es so in mein UserControl leider spuckt er fehler aus...

    VB.NET-Quellcode

    1. Public _progressBar As Pbar
    2. Public _restTimeLabel As Label
    3. Public fp2 As New FlowLayoutPanel
    5. Public Sub New(timername As String, timetocompleteSeconds As Integer, flowPanel As FlowLayoutPanel)
    6. Timer = New Timer() With {.Interval = 1000, .Enabled = True}
    7. AddHandler Timer.Tick, AddressOf Timer_Tick
    8. RunsOutAt = DateAdd(DateInterval.Second, timetocompleteSeconds, Now)
    9. CreateCluster(timername, flowPanel)
    10. StartetAt = Now
    11. Timer.Start()
    12. End Sub
    14. Public Sub CreateCluster(timername As String, flowPanel As FlowLayoutPanel)
    16. Label1.Text = timername
    17. _progressBar = New Pbar
    18. With _progressBar
    19. .Width = 100 : .Height = 10
    20. End With
    21. Label2.Text = New TimeSpan(0, 0, CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))).Duration.ToString
    23. End Sub
    25. Public Property Timer As Timer
    26. Public Property StartetAt As DateTime
    27. Public Property RunsOutAt As DateTime
    29. Public Sub Timer_Tick(sender As Object, e As EventArgs)
    31. Dim completTimeSpan As Integer = CInt(DateDiff(DateInterval.Second, StartetAt, RunsOutAt))
    32. Dim resttime As Integer = CInt(DateDiff(DateInterval.Second, Now, RunsOutAt))
    33. Dim percentValue As Double = ((completTimeSpan - resttime) * 100) / completTimeSpan
    35. If percentValue >= 100 Then
    36. _progressBar.Value = 100
    37. Me.Parent.Controls.Remove(Me)
    38. _progressBar.SendToBack()
    39. Timer.Stop()
    40. RaiseEvent Loadcompleted()
    41. Else
    42. _progressBar.Value = percentValue
    43. _restTimeLabel.Text = "Restzeit " & New TimeSpan(0, 0, CType(DateDiff(DateInterval.Second, Now, RunsOutAt), Integer)).Duration.ToString
    44. End If
    45. End Sub
    47. Public Event Loadcompleted()

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

    VBHunter schrieb:

    schpuckt er fehler aus...
    :thumbsup: :thumbsup: :thumbsup:
    Welche Fehler spuckt er denn wo aus?
    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!

    Zugriff auf Controls lieber im Load oder nach InitializeComponents() (was bei dir fehlt). In deiner New Sub sind die Controls noch nicht erstellt worden. Das passiert erst nach dem aufruf von InitializeComponents()
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    okay momentan hab ich es noch in der Deklaration

    Private Const Obstausbau = 9 in 10 sek. ist der bau abgeschlossen

    EDIT: Fehler gefunden .... Lösung

    statt: fp2.Controls.Add(New Label() With {.Text = timername, .Width = 200, .Height = 20})

    hab ich jetzt eine zweites New Label angelegt z.b. so

    VB.NET-Quellcode

    1. _restTimeLabel2 = New Label() With {.Text = timername, .Width = 200, .Height = 20}
    2. fp2.Controls.Add(_restTimeLabel2)


    und dann unten im Timer _restTimeLabel2.Visible = False

    schon klappt das in der class.vb ohne Usercontrol


    VIELEN DANK

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VBHunter“ ()

Facebook
Telefonspende