把进度条放进自己的文件复制窗口的例子
Option Explicit
Public Function CopyFile(Src As String, Dst As String, mProgressBar As ProgressBar) As Single
Dim BTest As Single, FSize As Single
Dim F1 As Integer, F2 As Integer
Dim sArray() As Byte
Dim buff As Integer
Const BUFSIZE = 1024
buff = 1024
F1 = FreeFile
Open Src For Binary As F1
F2 = FreeFile
Open Dst For Binary As F2
1.
还有QueryUnload 在UNLOAD 之前
2。
Private Sub Command1_Click(Index As Integer)
ProgressBar1.Max = 100000
ProgressBar1.Value = 0
For i = 1 To 100000
ProgressBar1.Value = ProgressBar1.Value + 1
Next
End Sub
3。他的属性中可以设置你自己看看
4。我认为common dialog好