基于文件数的进度条值

Question

我在表单中有一个进度条，我想根据文件夹中的文件数增加值的增量。

我想这是非常基本的，但这种编程对我来说是非常新的。

所以我有几行代码：

Dim directory As New IO.DirectoryInfo("C:\Temp") 
Dim arrayFiles as IO.FileInfo() = directory.GetFiles("*.txt") 
Dim fi As IO.FileInfo 

For Each fi In arrayFiles 

    Do stuff 
    ProgressBar.Value = "something" 
Next 

我会很感激的任何帮助都！ :)

编辑：我把它做这个（虽然这样做大概一个笨方法）工作

For Each fi In arrayFiles 
    ProgressBar.Value = ProgressBar.Value + arrayFiles.Length/arrayFiles.Length 
Next 

EDIT2：试想想它，arrayFiles.length/arrayFiles.length = 1。 所以我只能输入1。

而且，也许是非常重要的，我给自己定了ProgressBar.Maximum = arrayFiles.Length

Answer 1

你可以尝试这样的事情使用执行步骤。

Private Sub CopyWithProgress(ByVal ParamArray filenames As String()) 
    ' Display the ProgressBar control. 
    pBar1.Visible = True 
    ' Set Minimum to 1 to represent the first file being copied. 
    pBar1.Minimum = 1 
    ' Set Maximum to the total number of files to copy. 
    pBar1.Maximum = filenames.Length 
    ' Set the initial value of the ProgressBar. 
    pBar1.Value = 1 
    ' Set the Step property to a value of 1 to represent each file being copied. 
    pBar1.Step = 1 

    ' Loop through all files to copy. 
    Dim x As Integer 
    for x = 1 To filenames.Length - 1 
     ' Copy the file and increment the ProgressBar if successful. 
     If CopyFile(filenames(x - 1)) = True Then 
      ' Perform the increment on the ProgressBar. 
      pBar1.PerformStep() 
     End If 
    Next x 
End Sub 

Answer 2

不要使用为每个。相反，如果你使用一个索引for循环，你可以这样做：

ProgressBar.Value = (i/arrayFiles.Count) * 100 + "%" 

（假设的ProgressBar的Value是一个字符串）

Answer 3

就在旁边，因为看起来肯尼已经解决了他的问题。 Astander的例子来自MSDN（链接http://msdn.microsoft.com/en-us/library/system.windows.forms.progressbar.aspx），这是我总是建议你在用.Net研究问题时开始的地方。其次，值属性需要一个整数，所以你绝对不应该使用字符串。