动画框组件仿QQ好友列表

易语言 2020-07-19 16:42:25

动画框组件仿QQ好友列表

.如果真 (用户分组.组 [次数1].成员.标记 [次数2] ≠ 0) ' 背景-------------------------------------
用户分组.动画框.销毁物体 (用户分组.组 [次数1].成员.标记 [次数2])
.如果真结束
用户分组.组 [次数1].成员.标记 [次数2] = 用户分组.动画框.创建物体 (用户分组.动画物体, 0, 0, 真, “”) ' 创建 背景标记 <1>
用户分组.动画框.置图片 (用户分组.组 [次数1].成员.标记 [次数2], #人背景1, ) ' 将 背景标记 绘制背景图片 <1>
用户分组.动画框.置物体位置 (用户分组.组 [次数1].成员.标记 [次数2], 0, 位置Y, 假) ' 控制背景标记的位置 <1>
.如果真 (用户分组.组 [次数1].成员.头像标记 [次数2] ≠ 0) ' 头像-----------------------------------
用户分组.动画框.销毁物体 (用户分组.组 [次数1].成员.头像标记 [次数2])
.如果真结束
用户分组.组 [次数1].成员.头像标记 [次数2] = 用户分组.动画框.创建物体 (用户分组.动画物体, 10, 位置Y + 5, 真, “”)
用户分组.动画框.置图片 (用户分组.组 [次数1].成员.头像标记 [次数2], 读入文件 (“头像.bmp”), )
用户分组.动画框.合并物体 (用户分组.组 [次数1].成员.标记 [次数2], 用户分组.组 [次数1].成员.头像标记 [次数2], 10, 5)
用户分组.动画框.销毁物体 (用户分组.组 [次数1].成员.头像标记 [次数2])