Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教


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

主题：请教
帅哥，在线噢！
hbhb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		请教  发帖心情 Post By：2014/12/25 17:10:00 [显示全部帖子]

大师：好！

圣诞快乐！

请问：下面的代码在TopicPageExpanded事件中写的，为何有时有的页面不关闭，打开一个页面后，另外的页面不关闭，有时等一会儿才关闭？


Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
Next
 回到顶部
帅哥，在线噢！
hbhb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 18:57:00 [显示全部帖子]

If page.Name <> e.Page.Name Then

请问红色部分怎麽写？
 回到顶部
帅哥，在线噢！
hbhb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 19:09:00 [显示全部帖子]

这样的话写在哪个事件里？

 回到顶部
帅哥，在线噢！
hbhb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 19:12:00 [显示全部帖子]

您有无试过？

 回到顶部
帅哥，在线噢！
hbhb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 19:49:00 [显示全部帖子]

我理解能力测试为1/n  ,n趋于无穷大！
请问vars("page")变量是和类型？
 回到顶部
帅哥，在线噢！
hbhb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 19:50:00 [显示全部帖子]

请问vars("page")变量是何类型？

 回到顶部
帅哥，在线噢！
hbhb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 19:59:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
hbhb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 20:36:00 [显示全部帖子]

我就是这样搞的，为何这样写代码不对？
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
 回到顶部
帅哥，在线噢！
hbhb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 20:53:00 [显示全部帖子]

更不行了，未将对象设置到具体实例？
Dim Top4 As WinForm.TopicBar = e.Form.Controls("TopicBar4")
Top4.Pages("品名").Collapsed = True
这样写法对不对？
 回到顶部
帅哥，在线噢！
hbhb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/12/25 21:14:00 [显示全部帖子]

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

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询