易语言桌面小日历

.版本 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：yuanhuabo@126.com”, 64, “关于桌面日历”)
.否则
    .如果 (操作类型 ＝ 3)
        弹出菜单 (菜单, , )
    .否则

    .如果结束

.如果结束


.子程序 _退出_被选择

销毁 ()

.子程序 _关于_被选择

信息框 (“桌面日历” ＋ #换行符 ＋ “本程序采用易语言制作完成” ＋ #换行符 ＋ “作  者：efriend” ＋ #换行符 ＋ “E-mail：yuanhuabo@126.com”, 64, “关于桌面日历”)

.子程序 _一直可见_被选择

.判断开始 (一直可见.标题 ＝ “一直可见”)
    _启动窗口.总在最前 ＝ 真
    一直可见.标题 ＝ “不在最前”
.默认
    _启动窗口.总在最前 ＝ 假
    一直可见.标题 ＝ “一直可见”
.判断结束


.子程序 _不可移动_被选择

.如果 (不可移动.标题 ＝ “不可移动”)
    _启动窗口.随意移动 ＝ 假
    不可移动.标题 ＝ “可移动”
.否则
    _启动窗口.随意移动 ＝ 真
    不可移动.标题 ＝ “不可移动”
.如果结束


.子程序 __启动窗口_将被销毁

置托盘图标 (, )

.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

.子程序 _标签1_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

.子程序 _标签2_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

.子程序 _标签3_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

.子程序 _标签4_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (菜单, , )

@易语言学习论坛