Foxtable(狐表)用户栏目专家坐堂 → [求助] 希望进度条上面的 label 能够依次显示数字应该怎么做呢


  共有2487人关注过本帖树形打印复制链接

主题:[求助] 希望进度条上面的 label 能够依次显示数字应该怎么做呢

帅哥哟,离线,有人找我吗?
81538475
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
[求助] 希望进度条上面的 label 能够依次显示数字应该怎么做呢  发帖心情 Post By:2020/9/30 18:21:00 [只看该作者]

Forms("进度").Open
Dim lb1 As WinForm.Label = Forms("进度").Controls("Label1")
For i  As Integer = 0 To 100000
    lb1.Text = i
    If i =100000 Then
        Forms("进度").close
    End If
Next

窗口打开侯,就不动了。数字不会变。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2020/9/30 18:21:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1955 积分:15466 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/10/3 6:40:00 [只看该作者]

把那段程序放到窗口的AfterLoad事件里

 


 回到顶部
帅哥哟,离线,有人找我吗?
81538475
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2020/10/8 20:38:00 [只看该作者]

貌似不行。打开窗口会卡住,直到计算完成,才会显示出来。而不会再label 上显示数字进度

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/9 8:53:00 [只看该作者]

放到窗口计时器事件种

 回到顶部
帅哥哟,离线,有人找我吗?
81538475
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2020/10/9 10:53:00 [只看该作者]

恩,这个实现了。如果我需要下载局域网某个文件夹的所有图片,这种进度可以实现吗?就是再这个label 上面显示正在下载的图片名称。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/9 11:23:00 [只看该作者]

文件只能一个一个的下载,下载前设置label 即可

 回到顶部
帅哥哟,离线,有人找我吗?
81538475
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2020/10/9 14:03:00 [只看该作者]

代码写再afterload里面的话,label 还是不能一个个的显示正在下载的文件名。。

Dim c As Integer =0
If Tables("任务进度记录").Rows.count>0 Then
    c=  Tables("任务进度记录").Rows.count
End If

Dim LB1 As WinForm.Label = Forms("进度条").Controls("Label1")

For Each r As DataRow In DataTables("任务进度记录").Select("")
    
    Dim path As String = Functions.Execute("IP设置") & "\管理系统内部截图$\每日截图" & "\" & r("部门") & "\" & r("成员") & "\" & r("日期").Year & "-" & r("日期").month  & "\"  & r("日期").day & "\"
    
    
    Functions.Execute("复制图片",r("原画2"),r,path)

    
    LB1.Text = R("制作截图1")

Next

复制图片的Function
Dim sname As String = args(0)
Dim r As DataRow= args(1)
Dim path As String=args(2)

If FileSys.FileExists(ProjectPath & "\Foxtemp\" & sname) =False  Then  '---如果本机不存在则下载
    If FileSys.FileExists(path & sname) =True Then '----如果局域网存在则下载
        
        FileSys.CopyFile(path & sname, ProjectPath & "\Foxtemp\" & sname)
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/10/9 14:23:00 [只看该作者]

afterload里面所有代码执行完毕才会打开窗口的,所以还是放到计时器把

 回到顶部