底部弹出菜单
直接上图看效果变量 菜单高度 为 整数型
事件 主窗口.创建完毕()
面板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 移动到 菜单高度
结束 如果
结束 事件
页:
[1]
2