加载文件附件时的进度条

Question

我在附加文件时加载进度条时遇到问题。我希望进度条一直工作，直到完成扫描附件文件。问题是当我附加文件并开始扫描时，进度条可能会工作 3-5 秒，我希望进度条会继续下去，直到文件完成扫描。

这是我的 opendialog 代码：

 Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        strm = OpenFileDialog1.OpenFile()
        filename = OpenFileDialog1.FileName
        OpenFileDialog1.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*"
        TextBox1.Text = filename
        If Not (strm Is Nothing) Then
            strm.Close()
        End If
 End Sub

浏览按钮代码：

 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.InitialDirectory = "C:temp"
        OpenFileDialog1.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
 End Sub

生成附件文件的代码：

 Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIntralinks.Click
    conn.Open()
       Timer1.Enabled = True 
       Timer1.Interval = 50 
       ProgressBar1.Value = 0
conn.close()

timer1_tick 的代码：

   Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static TikTok As Integer
        TikTok = TikTok + 1
        ProgressBar1.Value = TikTok
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False
            TikTok = 0
        End If
    End Sub

Answer 1

看看是否有效：

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static TikTok As Integer
    TikTok = TikTok + 1
    ProgressBar1.Value = TikTok
    If ProgressBar1.Value = ProgressBar1.Maximum Then
        Timer1.Enabled = False
        TikTok = 0
    End If
   Application.DoEvents()
End Sub

顺便说一句，您是否已经在 if 子句中放置了一个断点来查看 Progressbar.maximum 是否在预期之前达到了最大值？ 氰基

Answer 2

我发现这篇文章，它很重要的教程，比如我正在搜索的教程所以有些不同，我很高兴，如果我能看到导入excel文件的名称作为进度条，那就更好了，每个导入文件数据采集时会显示其名称，这样逐个显示即可完成导入。我在网上或者youtube上搜索了很多教程但没有找到，比如进度条会根据选择导入的文件数量以百分比的形式添加，导入时鼠标忙，这是一个忙碌的时间。它会附有一个进度条，是否可以创建这么困难的程序，到目前为止还没有，如果你能做到，我的希望就实现了，请需要实用文件， ，谢谢莫斯坦