Foxtable(狐表)用户栏目专家坐堂 → [求助]面页合集中是否能动态增加控件


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

主题:[求助]面页合集中是否能动态增加控件

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


加好友 发短信
等级:幼狐 帖子:67 积分:703 威望:0 精华:0 注册:2010/11/23 23:03:00
[求助]面页合集中是否能动态增加控件  发帖心情 Post By:2011/5/10 8:37:00 [只看该作者]

我想在一个面页合集中动态增加一个进度条的控件,请问老师怎样写啊

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 8:46:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim prb As WinForm.ProgressBar
prb = e.Form.CreateControl("pbar1", ControlTypeEnum.ProgressBar)
prb.Left = 20
prb.Top = 20
prb.Value = 10
tab.TabPages(0).AddControl(prb)

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


加好友 发短信
等级:幼狐 帖子:67 积分:703 威望:0 精华:0 注册:2010/11/23 23:03:00
  发帖心情 Post By:2011/5/10 9:57:00 [只看该作者]

我在里面又加了个字符控件

        Dim tishi As WinForm.Label
        tishi = e.Form.CreateControl("进度", ControlTypeEnum.Label)
        tishi.text = "正在导入"
        tishi.Left = 50
        tishi.Top = 130
        tab.TabPages(3).AddControl(tishi)
在循环中加入了:

tishi.text = tishi.text & cmxh

 

为什么执行过程中不刷新,而且只在执行完后才显示啊,循环的时候一直不显示。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/5/10 10:19:00 [只看该作者]


 回到顶部