Foxtable(狐表)用户栏目专家坐堂 → [求助]关于容器控件的问题


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

主题:[求助]关于容器控件的问题

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


加好友 发短信
等级:婴狐 帖子:49 积分:680 威望:0 精华:0 注册:2012/2/17 15:55:00
[求助]关于容器控件的问题  发帖心情 Post By: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编辑过]

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


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

测试通过:

 

Dim nav As WinForm.NavBar = e.Form.Controls("NavBar1")
nav.NavPages.add("abc","www","addrow32.ico")

 


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


加好友 发短信
等级:婴狐 帖子:49 积分:680 威望:0 精华:0 注册:2012/2/17 15:55:00
  发帖心情 Post By:2013/1/7 20:37:00 [只看该作者]

我是要在NavPages页中的Topicbar控件中加一个页面。不是给NavBar控件加控件。

原因找到了,原来是我把NaVpages中的页面名称和topicbar的控件名设置一样的,这样程序居然就报错了

[此贴子已经被作者于2013-1-7 20:46:28编辑过]

 回到顶部