winformでn秒ごとにラベルコントロールを更新するには？

Question

フォームが読み込まれたときに、ディレクトリ内にいくつのファイルがあるかを数えます。 winformアプリケーションの実行中にn秒ごとにそのラベルを更新したい。私はこれをacheiveするかどうかはわかりません、ここにファイルをカウントする負荷に私のです：

Public Function getUserCountsTotal() As Integer 
    Dim di As New DirectoryInfo("C:\myDirectory") 
    Dim Users As FileInfo() = di.GetFiles().OrderByDescending(Function(fi) fi.LastWriteTime).ToArray() 

    Dim user As FileInfo 

    'list the names of all files in the specified directory 
    For Each user In Users 
     ComboBox1.Items.Add(Path.GetFileNameWithoutExtension(user.Name) & "- " & user.LastWriteTime) 
    Next 

    getUserCountsTotal = ComboBox1.Items.Count + 1 
End Function 

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 
    statusPanel.Text = "" 
    statusPanel.Text = "Logged in as " & getYourUserName() & " - " & "[ " & getUserCountsTotal() & " ] " 
End Sub 

Answer 1

フォームにタイマーを入れて、真にEnabledプロパティを設定します。タイマーをダブルクリックして、ディレクトリ内のファイルを数えるコードを入力します。

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    Dim counter = My.Computer.FileSystem.GetFiles("C:\myDirectory") 
    Label1.Text = counter.Count 
End Sub 

あなたはミリ秒単位でタイマーのIntervalプロパティで間隔を設定します。 2秒ごとに更新するには、値を2000に設定し、3秒ごとに更新して3000などに設定します。