转：http://diary.666rongxing.com/?p=1015
事件 窗口_底部菜单栏.创建完毕()
图片列表框_导航.图片外边距=2
图片列表框_导航.置项目样式(R.navigation)
图片列表框_导航.添加项目("main_bottom_game_normal_icon.png","首页")
图片列表框_导航.添加项目("main_bottom_video_normal_icon.png","Stop影")
图片列表框_导航.添加项目("main_bottom_yule_normal_icon.png","影视大全")
图片列表框_导航.添加项目("main_bottom_mine_normal_icon.png","我的")
结束 事件
'底部菜单叠加样式过程
过程 添加菜单(父窗口 为 窗口,子窗口 为 窗口)
创世_窗口叠加_底部菜单栏.叠加(父窗口,子窗口,假)
结束 过程
'底部菜单单击处理事件
事件 图片列表框_导航.表项被单击(项目索引 为 整数型)
判断 项目索引
分支 0
如果 读取窗口("窗口_首页")=空 则
保存窗口("窗口_首页",创建 窗口_首页)
结束 如果
切换窗口(读取窗口("窗口_首页"))
分支 1
如果 读取窗口("窗口_Stop影")=空 则
保存窗口("窗口_Stop影",创建 窗口_Stop影)
结束 如果
切换窗口(读取窗口("窗口_Stop影"))
分支 2
如果 读取窗口("窗口_影视大全")=空 则
保存窗口("窗口_影视大全",创建 窗口_影视大全)
结束 如果
切换窗口(读取窗口("窗口_影视大全"))
分支 3
如果 读取窗口("窗口_我的")=空 则
保存窗口("窗口_我的",创建 窗口_我的)
结束 如果
切换窗口(读取窗口("窗口_我的"))
结束 判断
结束 事件
其他页面调用例子如下
事件 窗口_首页.创建完毕()
添加底部菜单栏()
结束 事件
'底部菜单栏
变量 底部菜单栏 为 窗口_底部菜单栏
过程 添加底部菜单栏()
底部菜单栏 = 创建 窗口_底部菜单栏
底部菜单栏.添加菜单(本对象,底部菜单栏)
结束 过程
