ToolStripStatusLabel aktualisiert nicht

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von _PASCAL_.

    ToolStripStatusLabel aktualisiert nicht

    Hallo,

    ich habe auf einem Form unten einen StatusStrip1 eingebaut. (Bild)

    die Progressbar wird auch schön aktualisiert beim Einlesen der Daten, nur der StatusLabel wird nicht gesetzt, erst zum schluss steht "fertig!" da.

    was mache ich da falsch ?

    VB.NET-Quellcode

    1. Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
    2. Dim FolderBrowser As New FolderBrowserDialog
    3. Dim stalabel As ToolStripStatusLabel = Me.ToolStripStatusLabel1
    4. Dim staprogress As ToolStripProgressBar = Me.ToolStripProgressBar1
    6. All_Files.Clear()
    8. FolderBrowser.Description = "Bitte Ordner auswählen ..."
    9. FolderBrowser.SelectedPath = settings(ROOT_FOLDER).get_value
    10. FolderBrowser.ShowNewFolderButton = True
    12. If FolderBrowser.ShowDialog() = Windows.Forms.DialogResult.OK Then
    13. Dim root_dir As New DirectoryInfo(FolderBrowser.SelectedPath)
    14. Dim Directories As New List(Of String)
    16. Cursor.Current = Cursors.WaitCursor
    17. staprogress.Visible = True
    18. staprogress.Value = 0.1 * staprogress.Maximum
    19. stalabel.Text = "*.tms Dateien suchen..."
    20. Dim Files = root_dir.GetFiles("*.tms", SearchOption.AllDirectories)
    22. For Each File In Files
    23. Directories.add(File.DirectoryName)
    24. Next
    26. Dim query = (From str As String In Directories Select str).Distinct
    28. stalabel.Text = "Dateien einlesen..."
    29. staprogress.Value = 0.2 * staprogress.Maximum
    30. Dim prg_cou As Double = ((staprogress.Maximum - staprogress.Value) / query.Count) - 1
    31. For Each Str As String In query
    32. Dim temp As String = Str
    33. Dim result = (From p As FileInfo In Files Where p.DirectoryName = temp Order By p.Length Descending Select p Take 1).First
    35. If InStr(LCase(result.FullName), "sofa") Then
    36. Dim parts() As String = Split(result.FullName, "SOFA\")
    37. temp = "SoFa " & Mid(parts(1), 6, 6)
    38. End If
    40. Dim tms_temp = New tms_File(result.Name, result.FullName, result.Name, result.Length, result.CreationTime, temp)
    42. active_File = tms_temp
    44. For i As Integer = 0 To GroupCount(result.FullName) - 1
    45. Dim temp_group As group = read_Group(result.FullName, i)
    47. checkSPEED(temp_group)
    49. tms_temp.ADD_group(temp_group)
    50. Next
    52. All_Files.Add(tms_temp)
    53. tms_temp = Nothing
    54. staprogress.Value = staprogress.Value + prg_cou
    55. Next
    57. Cursor.Current = Cursors.Default
    58. stalabel.Name = "fertig!"
    59. staprogress.Visible = False
    61. create_tree()
    62. End If
    64. End Sub


    Gruß
    Bilder

    • StatusStrip.JPG

      42,48 kB, 902×631, 247 mal angesehen

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

    kannst du bei deim Post vlt. die Einrückungen im Code korrigieren? beachte VB-Tag richtig benutzen

    ausserdem wunderts mich, dass der Vorgang insgesamt nicht ratzfatz geht, also ich täte denken, ein paar dateinamen einzulesen ist zu schnell, als dass man da sinnvoll mit einer Progressbar rumfummeln könnte.

    Habs geändert ;)

    nein es handelt sich schon um ein paar dateien ... vorallem das suchen der dateien dauert etwas länger ...

    daher hätte ich gerne unten eine information stehen dass man sieht was das programm gerade macht und man nicht schon zum STRG-ALT-ENTF greift

    der vorgang dauert schon so 10 sec

    hmm ist das wirklich unumgänglich mit einem 2. thread ... weil die progressbar funktioniert doch ...

    wenn die jetzt auch nicht so funktionieren würde dann ja ... aber irgendwie denke ich dass ein fehler bei meiner ansteuerung ist ...

    aber ich schau mir das mit asynworker auch mal an

    Also wenns wirklich so ist, wie du schreibst, isses bisserl erstaunlich, dass die Progressbar funktioniert.

    Aber Progressbar ist in der Tat erstaunlich - die scheint sich anders zu zeichnen als alle anneren Controls.

    Aber dein gesamtes anneres Gui müsste dann doch auch eingefroren sein - also nix geht mehr, solange die Dateinamen eingelesen werden.

    Ich glaub auch immer noch nicht so recht an die 10Sekunden: wieviele Ordner werden denn da durchsucht?

    Evtl liegts auch an der tms_file-Geschichte, also hängt iwo hier drinne:

    VB.NET-Quellcode

    1. Dim tms_temp = New tms_File(result.Name, result.FullName, result.Name, result.Length, result.CreationTime, temp)
    keine Ahnung, was ein tms_file ist.

    Verdächtig auch

    VB.NET-Quellcode

    1. active_File = tms_temp
    Da kann ja 100mal in der Schleife das active_File geändert werden - was hat das fürn Sinn, und welche auswirkungen?

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

    ja da hast du schon recht ... das mit dem asynctast wäre vll die bessere lösung ...

    mit active_File=tms_file übergebe ich das aktuelle file einer Public Variablen um in einem anderen Form (geöffnet as Dialog) drauf zugreifen kann ... ich habs nicht anders hinbekommen mit showDialog( blabla) irgenwie vll ne variable zu übergeben

Facebook