Текст (ярлык) не обновляется (vb.net)

Question

Я обновляю 1 поле в большой базе данных. Поскольку я хочу видеть, насколько далеко прогресс, я хотел обновить свой ярлык, когда-либо обновлял запись. Однако это не работает: он только обновляет его в самом конце, когда он закончен.

Обратите внимание, что индикатор выполнения и обновление работают отлично, и что у меня нет сообщений об ошибках. Есть идеи?

Private Sub btnUpdateHeight_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdateHeight.Click 
    dt = loadform() 
    ProgressBarTSLabels.Minimum = 0 
    Dim qty As Integer = 0 
    ProgressBarTSLabels.Value = 0 
    ProgressBarTSLabels.Maximum = dt.Rows.Count 
    Dim db As New DataClasses1DataContext 
    For Each Me.dr In dt.Rows 
     If dr.Item(5).ToString.Trim <> "" Then 
      Dim sqlupdate As tblLabel = (From expr In db.tblLabels Where expr.LabelID = dr.Item(0).ToString).First 
      With sqlupdate 
       .Height = If(dr.Item(5).ToString = "max", "999", dr.Item(5).ToString) 
       db.SubmitChanges() 
      End With 
     End If 
     ProgressBarTSLabels.Value += 1 
     qty += 1 
     lblQty.Text = qty & "/" & dt.Rows.Count 
    Next 
End Sub 

Answer 1

Просто позвоните Label.Refresh метод после установки его текст, который заставит ярлык перерисовывать. Вы также можете вызвать метод Refresh на индикаторе выполнения, чтобы он работал плавно.

... 
    ProgressBarTSLabels.Value += 1 
    qty += 1 
    lblQty.Text = qty & "/" & dt.Rows.Count 
    lblQty.Refresh      '<-- here 
    ProgressBarTSLabels.Refresh  '<-- and here 
Next