| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关于容器控件的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27685) |
| -- 作者：源理 -- 发布时间：2013/1/7 19:56:00 -- [求助]关于容器控件的问题 想在NavBar其中一页面的TopicBar控件中增加一个page代码如何写？
Forms("导航条").Controls("NavBar1").NavPages("日常工作").Controls("日常工作").Pages.clear
上面的清除方法能运行
用下面的ADD就不能运行了，不知道为什么
Forms("导航条").Controls("NavBar1").NavPages("日常工作").Controls("日常工作").Pages.add("as","ss","zy_Find.ico")
弄不明白了，最开始调用的是forms("导航条").controls（"日常工作"）.pages.add("aa","ss","zy_find.ico")这个也错的。
我又用遍历所有控件下面的试了，居然能加了
Dim f As object
For Each f In Forms("导航条").controls If Typeof f Is WinForm.TopicBar f.pages.add("as","ss","zy_Find.ico") End If Next 现在想知道是容器内怎么调用里面的控件，有什么限制。
[此贴子已经被作者于2013-1-7 20:09:20编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/1/7 20:12:00 -- 测试通过：
Dim nav As WinForm.NavBar = e.Form.Controls("NavBar1")
|
| -- 作者：源理 -- 发布时间：2013/1/7 20:37:00 -- 我是要在NavPages页中的Topicbar控件中加一个页面。不是给NavBar控件加控件。 原因找到了，原来是我把NaVpages中的页面名称和topicbar的控件名设置一样的，这样程序居然就报错了 [此贴子已经被作者于2013-1-7 20:46:28编辑过]
|