以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]复制文件的进度条问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31295)
--  作者：mosquito1003
--  发布时间：2013/4/12 18:02:00
--  [求助]复制文件的进度条问题！
我在复制文件时，希望做一个复制多少的进度条。可是我不知道进度条的P.Value的值要怎么设置，代码如下
        Dim p As WinForm.ProgressBar
        p = e.Form.Controls("fjglProgressBar1")
        p.Maximum =  nm12 \'设置最大值
        p.Minimum = 0 \'设置最小值
        p.Value = 0
        If FileSys.FileExists(f11) Then
        FileSys.CopyFile(f11, ""& fileway &""& dx11("NewName") &"",True)
        p.Value = FileSys.GetFileInfo(""& fileway &""& dx11("NewName") &"").Length \'设置当前值
        End If
请问高手们，该如何设置啊？