以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]面页合集中是否能动态增加控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=9834)

--  作者:puyouliang
--  发布时间:2011/5/10 8:37:00
--  [求助]面页合集中是否能动态增加控件
我想在一个面页合集中动态增加一个进度条的控件,请问老师怎样写啊
--  作者:狐狸爸爸
--  发布时间: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
--  发布时间: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

 

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


--  作者:狐狸爸爸
--  发布时间:2011/5/10 10:19:00
--  

看这个:

 

http://help.foxtable.com/topics/1476.htm