底部弹出菜单

lizhongbo

直接上图看效果






变量 菜单高度 为 整数型

事件 主窗口.创建完毕()
    面板1.高度=自适应
    面板1.添加组件(图片框1)
    面板1.添加组件(图片框2)
    面板1.添加组件(标签1)
    面板1.添加组件(标签2)
    面板1.添加组件(标签3)
    面板1.添加组件(按钮2)
    图片框1.左边=图片框1.左边-面板1.左边
    图片框1.顶边=图片框1.顶边-面板1.顶边
    标签1.左边=标签1.左边-面板1.左边
    标签1.顶边=标签1.顶边-面板1.顶边
    标签2.左边=标签2.左边-面板1.左边
    标签2.顶边=标签2.顶边-面板1.顶边
    标签3.左边=标签3.左边-面板1.左边
    标签3.顶边=标签3.顶边-面板1.顶边
    图片框2.左边=图片框2.左边-面板1.左边
    图片框2.顶边=图片框2.顶边-面板1.顶边
    按钮2.左边=按钮2.左边-面板1.左边
    按钮2.顶边=按钮2.顶边-面板1.顶边
    面板1.监听绘制()
结束 事件
事件 面板1.绘制完毕(宽度 为 整数型,高度 为 整数型)
        弹出提示("宽度：" & 宽度 & "高度：" & 高度)
    菜单高度 = 高度
    面板1.顶边 = 取屏幕高度() - 取状态栏高度() - 高度-136
结束 事件
事件 按钮1.被单击()
        如果 面板1.可视 = 假 则
            面板1.移动特效(0,0,菜单高度,0,500,假) '上移：横坐标没有动,纵坐标从 菜单高度 移动到 0
            面板1.可视 = 真
            面板1.获取焦点()
        否则
            面板1.可视 = 假
            面板1.移动特效(0,0,0,菜单高度,500,假) '下移：横坐标没有动,纵坐标从 0 移动到 菜单高度
        结束 如果
结束 事件



事件 按钮2.被单击()
            如果 面板1.可视 = 假 则
            面板1.移动特效(0,0,菜单高度,0,500,假) '上移：横坐标没有动,纵坐标从 菜单高度 移动到 0
            面板1.可视 = 真
            面板1.获取焦点()
        否则
            面板1.可视 = 假
            面板1.移动特效(0,0,0,菜单高度,500,假) '下移：横坐标没有动,纵坐标从 0 移动到 菜单高度
        结束 如果
结束 事件