事件 主窗口.创建完毕()     

       主窗口.添加菜单("关于",-1)

       主窗口.添加菜单("退出",-1)

       高级菜单1.初始化(R.bkg,白色,真)

       高级菜单1.添加菜单项("1.png","菜单项一")

       高级菜单1.添加菜单项("2.png","菜单项二")

       高级菜单1.添加菜单项("3.png","菜单项三")

       高级菜单1.添加菜单项("4.png","菜单项四")

       高级菜单1.添加菜单项("5.png","菜单项五")

       高级菜单1.添加菜单项("6.png","菜单项六")

       高级菜单2.初始化(R.ab,白色,假)

       高级菜单2.添加菜单项2("","第一个菜单","一")

       高级菜单2.添加菜单项2("","第二个菜单","二")

       高级菜单2.添加菜单项2("","第三个菜单","三")

       高级菜单2.添加菜单项2("","第四个菜单","四")

结束 事件

事件 主窗口.菜单被选择(菜单名为 文本型)

       判断菜单名

              分支 "关于"

                     信息框("关于","E4A多窗口例程","确定")

              分支 "退出"  

                     结束程序()

       结束判断

结束 事件

事件 按钮1.被单击()

       高级菜单1.弹出菜单1()

结束 事件

事件 高级菜单1.菜单被选择(索引为 整数型,图标 为 文本型,标题 为 文本型)

       弹出提示(标题)

结束 事件

事件 高级菜单2.菜单被选择(索引为 整数型,图标 为 文本型,标题 为 文本型)

       弹出提示(高级菜单2.取菜单项标记(索引))

结束 事件

事件 按钮2.被单击()

       高级菜单2.弹出菜单2(标签1, 200)

结束 事件

高级菜单要从扩展库里面添加。