请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

菜单里的全局变量为何没有此选项？难道非要动态定义否？

以下是引用hbhb在2014-12-25 19:59:00的发言：
菜单里的全局变量为何没有此选项？难道非要动态定义否？

你可以弄成string类型。然后存储 e.Page.Name 即可。

我就是这样搞的，为何这样写代码不对？

1、在TimerTick事件里写如下代码

Select Case Vars("top4控件页面控制变量")

Case "品名"

'e.Form.TimerInterval = 10

Dim Top4 As WinForm.TopicBar = e.Form.Controls("TopicBar4")

Top4.Pages("品名").Collapsed = False

Top4.Pages("规格").Collapsed = True

Top4.Pages("价格").Collapsed = True

e.Form.TimerEnabled = False

Case "规格"

'e.Form.TimerInterval = 10

Dim Top4 As WinForm.TopicBar = e.Form.Controls("TopicBar4")

Top4.Pages("品名").Collapsed = True

Top4.Pages("规格").Collapsed = False

Top4.Pages("价格").Collapsed = True

e.Form.TimerEnabled = False

Case "价格"

'e.Form.TimerInterval = 10

Dim Top4 As WinForm.TopicBar = e.Form.Controls("TopicBar4")

Top4.Pages("品名").Collapsed = True

Top4.Pages("规格").Collapsed = True

Top4.Pages("价格").Collapsed = False

e.Form.TimerEnabled = False

End Select

2、在TopicPageExpanded 事件里写

Vars("top4控件页面控制变量") = e.Page.Name
e.Form.TimerEnabled = True

是不是你设置的名称不对？

改成 e.Page.Text 看看

更不行了，未将对象设置到具体实例？

Dim Top4 As WinForm.TopicBar = e.Form.Controls("TopicBar4")

Top4.Pages("品名").Collapsed = True

这样写法对不对？

你去看你的任务的名称是什么、标题是什么，你设置成什么，代码及怎么写啊

核对无数遍了，名称、标题一样，搞不懂？上面的代码有无错误？

没有错啊，不行就做例子发上来。

这个啊，打开示例项目的帮助那里，有导航窗口的完整示范，打开导航窗口，看看里面的几个事件。

注意几点

要开启窗口的定时设置，设为true，可以将时间设为300，但如果比300更小，可能导航窗口收缩的时候显示会有问题。

然后窗口里的几个事件，详细看看。

主题：请教