转：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
   如果 读取窗口("窗口_我的")=空 则
   保存窗口("窗口_我的",创建 窗口_我的)
   结束 如果
   切换窗口(读取窗口("窗口_我的"))
 结束 判断
结束 事件

其他页面调用例子如下

事件 窗口_首页.创建完毕()
     添加底部菜单栏()
结束 事件
 
'底部菜单栏
变量 底部菜单栏 为 窗口_底部菜单栏
过程 添加底部菜单栏()
 底部菜单栏 = 创建 窗口_底部菜单栏
 底部菜单栏.添加菜单(本对象,底部菜单栏)
结束 过程