以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  1导航栏能与任务栏绑定?2、导航栏里的目录树能与相对应绑定表?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24895)

--  作者:hjie_su
--  发布时间:2012/10/26 2:58:00
--  1导航栏能与任务栏绑定?2、导航栏里的目录树能与相对应绑定表?

各位大师,新手制作碰到几个问题,向大师请教。还望多多指教不胜感激。(在论坛搜索不到相关信息只能发问了,手册也没有看到,不知有没有看落掉的。)

1、导航栏能与任务栏绑定?例导航栏1对应任务栏1,完成这个主要是为了完成如产品管理与报价管理任务操作的不一;
2、导航栏里的目录树能与相对应绑定表?例导航栏里的目录树与表里的目录树相同步,最后做一个任务栏,添加/删除 产品或分类这样可以实现?


图片点击可在新窗口打开查看此主题相关图片如下:导航.png
图片点击可在新窗口打开查看

3、制作的窗口或是显示页面不知不能满屏或是显示(左边空的一段,但在设计窗口时是满屏和正常的,没有发现其它控件等)。见图


图片点击可在新窗口打开查看此主题相关图片如下:导航2.png
图片点击可在新窗口打开查看
4、另外窗口预览有报过这样的错(只能结束任务),没看明白。顺便帮分析一下。谢谢

 
图片点击可在新窗口打开查看此主题相关图片如下:报错.png
图片点击可在新窗口打开查看
附项目:

  窗口:首页

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品报价设计.zip

[此贴子已经被作者于2012-10-26 20:07:47编辑过]

--  作者:lin_hailun
--  发布时间:2012/10/26 9:10:00
--  
 好抽象啊,楼主,上传项目吧。
--  作者:hjie_su
--  发布时间:2012/10/26 20:08:00
--  
已上传,还请多指教。先谢过了
--  作者:hjie_su
--  发布时间:2012/10/26 22:45:00
--  
以下是引用lin_hailun在2012-10-26 9:10:00的发言:
 好抽象啊,楼主,上传项目吧。

项目已上传。另外说明。

问题3、4应是解决了,3的问题找了一下应是表格数据备注栏自动显示档掉了桌面空间。但窗口好像只能手动调整大小,没办法根据实际自动调整(这个哪个朋友有试过?)。

4原窗口加载一些没有数据 表格(原被删除,可能是找不到相对应文件);


--  作者:lin_hailun
--  发布时间:2012/10/27 11:53:00
--  
 第一个问题,可以通过命名规范来解决的。

 比如,你导航页的名称叫 产品管理,那你任务栏的名称就叫 产品管理

 然后,点击导航页的时候,写代码把 任务栏名字叫改名字的控件显示出来。

 参考 http://www.foxtable.com/help/topics/0875.htm

-------------------------------------------------------

 第二个问题,可以参考一下帮助文档。有现成的例子。

 http://www.foxtable.com/help/topics/2474.htm

-----------------------------------------------------------------

 第三个问题,可以用下面的代码实现自动缩放功能。放在AfterLoad事件里

For Each c As Winform.Control In e.Form.Controls
    c.Left = c.Left * (SysInfo.ScreenWidth / e.Form.Width)
    c.Top = c.Top * (SysInfo.ScreenHeight / e.Form.Height)
    c.Width = c.Width * (SysInfo.ScreenWidth / e.Form.Width)
    c.Height = c.Height * (SysInfo.ScreenHeight / e.Form.Height)
Next

----------------------------------------------------

 第四个问题,是报错问题?不知道什么原因。楼主把项目重做一下吧,比较乱!

 完毕。希望帮到你。
[此贴子已经被作者于2012-10-27 11:53:52编辑过]

--  作者:hjie_su
--  发布时间:2012/10/28 1:40:00
--  回复:(lin_hailun)?第一个问题,可以通过命名...

您好,首先谢谢您的回复,希望和动力提升不少;经过您的指导基本解决第二个增加节点问题(另说明以备其它朋友需要使用:如果不将节点内容添加到数据表的要自行修改代码,我汇总了一下:

增加根节点

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.Nodes.Add("新节点")
tr.SelectedNode = nd
tr.Select()
tr.BeginEdit()

增加子节点

Dim tr As WinForm.TreeView

Dim nd As WinForm.TreeNode

tr = e.Form.Controls("TreeView1")

nd = tr.SelectedNode

        nd = nd.Nodes.Add("新节点")

        tr.SelectedNode = nd

        tr.Select()

        tr.BeginEdit()

(不过使用代码时有一个问题就是增加子节点问题,这个有待解决:打开窗口第一次点添加子节点就会报错,但如先选中任意节点或是添加根节点后就不会出现这种情况),另外两个问题经测试有以下疑问及问题,还请再帮看看是不是操作有误,另附项目。

重命名

  Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
tr.Select()
tr.BeginEdit()

删除

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = tr.SelectedNode

    nd.Delete()

tr.Select()

其它

原第一问题,使用SelectedPage

疑问:现在导用导航栏,配合作务栏使用。导航栏有case0~4,但看SelectedPage 代码是写成?经测试无法实现点击产品管理后右上任务栏为产品信息管理的模块,点击报价管理后 右上任务栏为报价信息管理模块。

Select  Case e.Sender.SelectedIndex 
  Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Bar.SelectedPage = Bar.NavPages("产品管理")
原第三问题:使用自动缩放功能,是指在窗口?经测试无反应,另行自行修改高度后,导航栏位置错位。

 

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:报价系统2.rar

[此贴子已经被作者于2012-10-28 1:42:28编辑过]

--  作者:lin_hailun
--  发布时间:2012/10/29 9:43:00
--  
 直接给你上例子,楼主耐心啃一下。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:报价系统.zip



--  作者:hjie_su
--  发布时间:2012/10/31 0:25:00
--  回复:(lin_hailun) 直接给你上例子,楼主耐心...

很感谢谢你的支持,我试了几次无果,复制到我的表内,试着改了一下代码及名称,但还是看不是很明白代码能解释一下?(我按手册查代码和技术群咨询、论坛查类似的代码或说明,但目前无果,还请再费心说明下)谢谢了

Dim name As String = e.Sender.SelectedPage.Name
Dim dh As WinForm.TopicBar = e.Form.Controls("TopicBar")
Dim currPage As WinForm.TopicPage = dh.Pages(name)
Dim newPage As WinForm.TopicPage = dh.Pages.Insert(currPage.Name, currPage.Text, 0)
For Each link As WinForm.TopicLink In currPage.Links
    newPage.Links.Add(link.Name, link.Text)
Next
dh.pages.Remove(currPage)


--  作者:lin_hailun
--  发布时间:2012/10/31 8:50:00
--  
 关键点是对任务栏的命名和导航栏的命名……把它们一致起来,上面的代码才会有效果的。