Foxtable(狐表)用户栏目专家坐堂 → for循环 lable 的text值不刷新


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

主题:for循环 lable 的text值不刷新

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


加好友 发短信
等级:小狐 帖子:357 积分:2994 威望:0 精华:0 注册:2023/6/7 16:07:00
for循环 lable 的text值不刷新  发帖心情 Post By:2023/9/12 8:50:00 [只看该作者]

求助:for 循环里更新 lable 的text,需要用什么函数?


以下代码:只能显示for循环后,最后一个值
图片点击可在新窗口打开查看
Dim lb As WinForm.Label = e.Form.Controls("Label1")
Dim value As String
Dim i As Integer
For i =1 To 10
    
    value=i
    lb.text="时间" & i & "当前值 " & value
    'If value > 0 Then
        ''MessageBox.show(value )
        ''Exit For
    'End If
    Threading.Thread.Sleep(1000)
    
Next

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/12 9:34:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1476.htm

lb.text="时间" & i & "当前值 " & value
Application.DoEvents

 回到顶部