关于progressbar控件

Question

如何在读文件的过程中用progressbar控件加上timer控件进行控制？比如30秒完成这个进度的话.
可以给个示例参考一下吗？谢谢啦^_^

Answer 1

設定一全部變量
在timer事件中每次遞增1
然後progressbar的值等於此變量只是這樣沒有實際意義

Answer 2

Option ExplicitDim intX As Integer          ' Counter variable.
Dim Val As Recordset
Dim Max As Integer
Dim Totel As IntegerPrivate Sub Combo1_Click()
    
    ListView1.View = Combo1.ListIndex
End SubPrivate Sub Command1_Click()
Dim xx As Date
Me.ProgressBar1.Max = Data1.Recordset.RecordCount
 Totel = Data1.Recordset.RecordCount
 Data1.Caption = Totel
 Set Val = Data1.Recordset
 xx = Time
 Do While Val.EOF = False
    Max = Max + 1
    Me.ProgressBar1.Value = Max
     With ListView1.ListItems.Add()
          For intX = 0 To 4
           If intX = 0 Then
              .Text = Data1.Recordset.Fields(0).Value
           Else
              .SubItems(intX) = Data1.Recordset.Fields(intX).Value
           End If
          Next
          Data1.Recordset.MoveNext
      End With
 Loop
 MsgBox Format(DateDiff("s", xx, Time), "00000")
End Sub
Private Sub Command2_Click()
   Dim Item As ListItem
   
    
    For Each Item In ListView1.ListItems
        Debug.Print Item.Text, Item.SubItems(1), Item.SubItems(2), Item.SubItems(3)
    Next ItemEnd SubPrivate Sub Form_Load()
Me.Show
Me.ListView1.View = lvwReportDim colX As ColumnHeader     ' Declare variable.For intX = 1 To 5
   Set colX = ListView1.ColumnHeaders.Add()
   colX.Text = "Field " & intX
   colX.Width = ListView1.Width / 5
Next intX
  With Me.Combo1
      .AddItem "Icon"           '0
      .AddItem "Small Icon"     '1
      .AddItem "List"           '2
      .AddItem "Report"         '3
      .ListIndex = 3
   End With  
End SubPrivate Sub ListView1_Click()
   Data1.Caption = Me.ListView1.SelectedItem.Index & "/" & Totel
End Sub