E4A组件样式绘制类库

a188518

事件 主窗口.创建完毕()
        '安卓6.0以上的系统需要动态申请权限,否则app可能无法正常运行
        如果 权限操作1.取系统版本号()>=23 则
                '权限操作1.申请全部权限()
        结束 如果       
       
        置状态栏颜色(标签_窗口标题.背景颜色)'E4A的设置里,窗口风格要设置为沉浸模式,此命令才能生效
       
        '添加底部导航选项卡,组件的高度建议设置为32
        底部导航1.背景颜色 = 白色
        底部导航1.置文字颜色("#C0C0C0")
        底部导航1.置文字激活颜色("#00BFFF")
        底部导航1.置字体大小(10)
        底部导航1.添加项目("直播","btn_live.png","btn_live_selected.png")
        底部导航1.添加项目("视频","btn_video.png","btn_video_selected.png")
        底部导航1.添加项目("更多","btn_more.png","btn_more_selected.png")
        底部导航1.添加项目("我的","btn_user.png","btn_user_selected.png")
        底部导航1.置现行选中项(0)
       
        '添加右上角的菜单
        高级菜单1.初始化(R.bkg,白色,真)'bkg是一个9宫格图片,存放在drawable图片资源里
        高级菜单1.添加菜单项("menu_icon_1.png","菜单项一")
        高级菜单1.添加菜单项("menu_icon_2.png","菜单项二")
        高级菜单1.添加菜单项("menu_icon_3.png","菜单项三")
结束 事件

事件 权限操作1.申请完毕(权限数组 为 文本型(),申请结果 为 整数型())
        '可以把需要特殊权限的代码写在此处,当申请权限成功后再执行相关代码
结束 事件

事件 底部导航1.项目被选择(项目索引 为 整数型)
        弹出提示("项目被选择：" & 项目索引)
结束 事件

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则
                返回桌面()
        结束 如果
结束 事件

事件 图片框_返回.被单击()
        返回桌面()
结束 事件

事件 图片框_菜单.被单击()
        高级菜单1.弹出菜单2(图片框_菜单,200)
结束 事件

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

事件 列表框1.创建完毕()
        变量 int 为 整数型
        变量循环首 int=0 至 10 步进 1
                列表框1.添加项目("项目"& 整数到文本(int))
        变量循环尾
       
结束 事件

事件 按钮1.被单击()
        组件绘制1.圆角矩形(标签1,黄色,红色,0,20,20,0)
结束 事件

事件 按钮2.被单击()
        组件绘制1.虚线外框(标签2,3,蓝色,50,10)
结束 事件

事件 按钮3.被单击()
        组件绘制1.圆形外框(标签3,黑色)
结束 事件

事件 按钮4.被单击()
        变量 颜色 为 整数型(0)
        颜色 = 加入数组成员_整数型(颜色,白色)
        颜色 = 加入数组成员_整数型(颜色,黄色)
        颜色 = 加入数组成员_整数型(颜色,蓝色)
        颜色 = 加入数组成员_整数型(颜色,白色)
        组件绘制1.渐变外框(标签4,颜色,组件绘制1.方向左上到右下,20)
结束 事件

事件 按钮5.被单击()
        变量 颜色 为 整数型(0)
        颜色 = 加入数组成员_整数型(颜色,白色)
        颜色 = 加入数组成员_整数型(颜色,黄色)
        颜色 = 加入数组成员_整数型(颜色,红色)
        颜色 = 加入数组成员_整数型(颜色,紫色)
        组件绘制1.圆角矩形2(列表框1,颜色,黑色,20,20,20,20)
结束 事件

a188518

棱束链分享链接：https://www.lingshulian.com/s/d72daafe5a86d910 密码：M33M