.版本 2 .程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx) .子程序 __启动窗口_创建完毕 左边 ＝ 取屏幕宽度 () － 宽度 － 5 顶边 ＝ 取屏幕高度 () － 高度 － 32 时钟1.时钟周期 ＝ 1000 .子程序 _时钟1_周期事件 标签1.标题 ＝ 到文本 (取时间部分 (取现行时间 (), #年份)) ＋ “年” ＋ 到文本 (取时间部分 (取现行时间 (), #月份)) ＋ “月” 标签2.标题 ＝ 到文本 (取时间部分 (取现行时间 (), #日)) 标签3.标题 ＝ “星期” ＋ 多项选择 (取星期几 (取现行时间 ()), “日”, “一”, “二”, “三”, “四”, “五”, “六”) 标签4.标题 ＝ 取文本右边 (“00” ＋ 到文本 (取时间部分 (取现行时间 (), #小时)), 2) ＋ “:” ＋ 取文本右边 (“00” ＋ 到文本 (取时间部分 (取现行时间 (), #分钟)), 2) ＋ “:” ＋ 取文本右边 (“00” ＋ 到文本 (取时间部分 (取现行时间 (), #秒)), 2) 置托盘图标 (#图片1, “桌面日历” ＋ #换行符 ＋ “今天是:” ＋ 标签1.标题 ＋ 标签2.标题 ＋ “日” ＋ 标签3.标题 ＋ #换行符 ＋ “当前时间:” ＋ 取文本左边 (标签4.标题, 5)) .如果 (标签3.标题 ＝ “星期六” 或 标签3.标题 ＝ “星期日”) 连续赋值 (#红色, 标签2.文本颜色, 标签3.文本颜色) .否则 连续赋值 (#白色, 标签2.文本颜色, 标签3.文本颜色) .如果结束 .子程序 _隐藏日历_被选择 .如果 (隐藏日历.标题 ＝ “隐藏日历”) _启动窗口.可视 ＝ 假 隐藏日历.标题 ＝ “显示日历” .否则 _启动窗口.可视 ＝ 真 隐藏日历.标题 ＝ “隐藏日历” .如果结束 .子程序 __启动窗口_托盘事件 .参数 操作类型, 整数型 .如果 (操作类型 ＝ 1) 信息框 (“桌面日历” ＋ #换行符 ＋ “本程序采用易语言制作完成” ＋ #换行符 ＋ “作 者：efriend” ＋ #换行符 ＋ “E-mail：[email protected]”, 64, “关于桌面日历”) .否则 .如果 (操作类型 ＝ 3) 弹出菜单 (菜单, , ) .否则 .如果结束 .如果结束 .子程序 _退出_被选择 销毁 () .子程序 _关于_被选择 信息框 (“桌面日历” ＋ #换行符 ＋ “本程序采用易语言制作完成” ＋ #换行符 ＋ “作 者：efriend” ＋ #换行符 ＋ “E-mail：[email protected]”, 64, “关于桌面日历”) .子程序 _一直可见_被选择 .判断开始 (一直可见.标题 ＝ “一直可见”) _启动窗口.总在最前 ＝ 真 一直可见.标题 ＝ “不在最前” .默认 _启动窗口.总在最前 ＝ 假 一直可见.标题 ＝ “一直可见” .判断结束 .子程序 _不可移动_被选择 .如果 (不可移动.标题 ＝ “不可移动”) _启动窗口.随意移动 ＝ 假 不可移动.标题 ＝ “可移动” .否则 _启动窗口.随意移动 ＝ 真 不可移动.标题 ＝ “不可移动” .如果结束 .子程序 __启动窗口_将被销毁 置托盘图标 (, ) .子程序 __启动窗口_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (菜单, , ) .子程序 _标签1_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (菜单, , ) .子程序 _标签2_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (菜单, , ) .子程序 _标签3_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (菜单, , ) .子程序 _标签4_鼠标右键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 弹出菜单 (菜单, , )