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 ?
Gruß
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
- Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
- Dim FolderBrowser As New FolderBrowserDialog
- Dim stalabel As ToolStripStatusLabel = Me.ToolStripStatusLabel1
- Dim staprogress As ToolStripProgressBar = Me.ToolStripProgressBar1
- All_Files.Clear()
- FolderBrowser.Description = "Bitte Ordner auswählen ..."
- FolderBrowser.SelectedPath = settings(ROOT_FOLDER).get_value
- FolderBrowser.ShowNewFolderButton = True
- If FolderBrowser.ShowDialog() = Windows.Forms.DialogResult.OK Then
- Dim root_dir As New DirectoryInfo(FolderBrowser.SelectedPath)
- Dim Directories As New List(Of String)
- Cursor.Current = Cursors.WaitCursor
- staprogress.Visible = True
- staprogress.Value = 0.1 * staprogress.Maximum
- stalabel.Text = "*.tms Dateien suchen..."
- Dim Files = root_dir.GetFiles("*.tms", SearchOption.AllDirectories)
- For Each File In Files
- Directories.add(File.DirectoryName)
- Next
- Dim query = (From str As String In Directories Select str).Distinct
- stalabel.Text = "Dateien einlesen..."
- staprogress.Value = 0.2 * staprogress.Maximum
- Dim prg_cou As Double = ((staprogress.Maximum - staprogress.Value) / query.Count) - 1
- For Each Str As String In query
- Dim temp As String = Str
- Dim result = (From p As FileInfo In Files Where p.DirectoryName = temp Order By p.Length Descending Select p Take 1).First
- If InStr(LCase(result.FullName), "sofa") Then
- Dim parts() As String = Split(result.FullName, "SOFA\")
- temp = "SoFa " & Mid(parts(1), 6, 6)
- End If
- Dim tms_temp = New tms_File(result.Name, result.FullName, result.Name, result.Length, result.CreationTime, temp)
- active_File = tms_temp
- For i As Integer = 0 To GroupCount(result.FullName) - 1
- Dim temp_group As group = read_Group(result.FullName, i)
- checkSPEED(temp_group)
- tms_temp.ADD_group(temp_group)
- Next
- All_Files.Add(tms_temp)
- tms_temp = Nothing
- staprogress.Value = staprogress.Value + prg_cou
- Next
- Cursor.Current = Cursors.Default
- stalabel.Name = "fertig!"
- staprogress.Visible = False
- create_tree()
- End If
- End Sub
Gruß
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „_PASCAL_“ ()