foreachループのラベルテキストを変更する

Question

foreach-loop中にラベルを更新したい。

問題は次のとおりです。ループが完了するまでプログラムは待機し、ラベルを更新します。

foreach-loop中にラベルを更新することはできますか？

コード：事前に

Dim count as Integer = 0 
For Each sFile as String in Files 
    'ftp-code here, works well 
    count = count+1 
    progressbar1.value = count 
    label1.text = "File " & count & " of 10 uploaded." 
next 

おかげ

Answer 1

ラベルがあなたのforeachループを実行しながら、UIスレッドがブロックされているため、更新されません。
あなたがasync-awaitを使用するための完璧な候補であるFTP接続、で動作しますので、あなたがasync-awaitアプローチ

Private Async Sub Button_Click(sender As Object, e As EventArgs) 
    Dim count as Integer = 0 
    For Each sFile as String in Files 
     'ftp-code here, works well 
     count = count+1 

     progressbar1.value = count 
     label1.text = "File " & count & " of 10 uploaded." 

     Await Task.Delay(100) 
    Next 
End Sub 

を使用することができます。

Await行は、ラベルを新しい値で更新するUIスレッドをリリースし、100ミリ秒後にその行から続行します。

あなたはFTP接続のための非同期コードを使用する場合は、あなたはすでに答えを受け入れてきましたが、ちょうど代替としてBackgroundWorkerのも、このような何かのために使用することができるTask.Delay

Answer 2

必要はありません。私の場合、元のファイルを取得するFTPは非常に迅速に行われるので、DoWorkイベントのこのスニペットは、それらのファイルをプリンタにダウンロードするためのものです。 ReportProgressイベントで

Dim cnt As Integer = docs.Count 
Dim i As Integer = 1 
For Each d As String In docs 
    bgwTest.ReportProgress(BGW_State.S2_UpdStat, "Downloading file " & i.ToString & " of " & cnt.ToString) 

    Dim fs As New IO.FileStream(My.Application.Info.DirectoryPath & "\labels\" & d, IO.FileMode.Open) 
    Dim br As New IO.BinaryReader(fs) 
    Dim bytes() As Byte = br.ReadBytes(CInt(br.BaseStream.Length)) 

    br.Close() 
    fs.Close() 
    For x = 0 To numPorts - 1 
     If Port(x).IsOpen = True Then 
      Port(x).Write(bytes, 0, bytes.Length) 
     End If 
    Next 
    If bytes.Length > 2400 Then 
     'these sleeps are because it is only 1-way comm to printer so I have no idea when printer is ready for next file 
     System.Threading.Thread.Sleep(20000) 
    Else 
     System.Threading.Thread.Sleep(5000) 
    End If 

    i = i + 1 
Next 

...（もちろん、あなたがTrueにWorkerReportsProgressプロパティを設定する必要があります）

Private Sub bgwTest_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgwTest.ProgressChanged 

    Select Case e.ProgressPercentage 
     'BGW_State is just a simple enum for the state, 
     'which determines which UI controls I need to use. 
     'Clearly I copy/pasted from a program that had 15 "states" :) 
     Case BGW_State.S2_UpdStat 
      Dim s As String = CType(e.UserState, String) 
      lblStatus.Text = s 
      lblStatus.Refresh() 

     Case BGW_State.S15_ShowMessage 
      Dim s As String = CType(e.UserState, String) 
      MessageBox.Show(s) 

    End Select 

End Sub 

Answer 3

が、Application.DoEventsを（使用には十分ではありませんか）？これによりビルドがクリアされ、テキストフィールドが非常に迅速に更新されるのを確認できるはずです。