易语言仿WIN7桌面日历源码

.版本 2

.程序集 窗口程序集1
.程序集变量 PNG, 字节集

.子程序 _小工具_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)
' *** 缩略程序块 ***
PNG ＝ { 137, 80, 78, 71, 13, 10, 26, 10, 0, 0, 0, 13, 73, 72, 68, 82, 0, 0, 0, 117, 0, 0, 0, 17, 8, 6, 0, 0, 0, 227, 97, 227, 240, 0, 0, 0, 4, 103, 65, 77, 65, 0, 0, 175, 200, 55, 5, 138, 233, 0, 0, 0, 25, 116, 69, 88, 116, 83, 111, 102, 116, 119, 97, 114, 101, 0, 65, 100, 111, 98, 101, 32, 73, 109, 97, 103, 101, 82, 101, 97, 100, 121, 113, 201, 101, 60, 0, 0, 1, 136, 73, 68, 65, 84, 120, 218, 236, 216, 63, 111, 130, 64, 20, 0, 240, 119, 196, 176, 96, 234, 78, 58, 192, 138, 141, 179, 131, 31, 194, 189, 11, 31, 163, 179, 131, 159, 163, 107, 103, 191, 64, 191, 64, 71, 6, 7, 26, 116, 193, 168, 65, 64, 42, 22, 249, 211, 187, 139, 146, 166, 5, 226, 120, 151, 188, 151, 28, 127, 127, 121, 203, 203, 61, 142, 35, 0, 240, 66, 71, 72, 199, 25, 254, 199, 235, 159, 123, 180, 18, 88, 133, 189, 48, 77, 243, 115, 60, 30, 39, 138, 162, 248, 211, 233, 244, 155, 16, 242, 65, 159, 191, 55, 36, 70, 43, 137, 181, 29, 199, 137, 230, 243, 121, 53, 153, 76, 170, 197, 98, 81, 13, 6, 131, 37, 52, 7, 90, 9, 108, 143, 29, 44, 203, 122, 88, 173, 86, 160, 170, 42, 24, 134, 1, 154, 166, 61, 70, 81, 212, 152, 9, 173, 248, 182, 119, 3, 163, 209, 8, 232, 116, 6, 93, 215, 161, 223, 239, 67, 87, 160, 149, 192, 86, 52, 138, 162, 224, 131, 197, 112, 56, 252, 106, 75, 130, 86, 108, 75, 79, 124, 161, 116, 3, 144, 231, 57, 148, 101, 201, 175, 187, 2, 173, 216, 182, 110, 191, 105, 154, 242, 193, 166, 48, 173, 124, 103, 34, 180, 98, 219, 122, 166, 198, 113, 12, 155, 205, 6, 78, 167, 19, 175, 124, 87, 160, 21, 219, 214, 69, 13, 130, 0, 214, 235, 53, 36, 73, 2, 151, 203, 165, 51, 17, 90, 177, 109, 93, 212, 253, 126, 15, 174, 235, 242, 202, 103, 89, 214, 153, 8, 173, 216, 182, 46, 234, 118, 187, 189, 59, 17, 90, 177, 173, 114, 221, 67, 132, 221, 110, 247, 251, 37, 91, 64, 217, 13, 57, 208, 10, 110, 9, 33, 182, 114, 221, 20, 230, 189, 217, 243, 60, 56, 30, 143, 172, 55, 23, 109, 251, 141, 104, 197, 183, 172, 168, 103, 250, 161, 205, 15, 135, 3, 248, 190, 127, 91, 69, 197, 244, 185, 215, 144, 8, 173, 4, 150, 255, 167, 206, 102, 179, 231, 48, 12, 159, 104, 213, 125, 199, 113, 76, 250, 191, 243, 214, 214, 195, 209, 202, 97, 89, 191, 54, 224, 190, 64, 43, 129, 253, 17, 96, 0, 220, 103, 118, 13, 225, 106, 128, 4, 0, 0, 0, 0, 73, 69, 78, 68, 174, 66, 96, 130 }
高度 ＝ 130  ' 重定义高度
载入 (头部, 小工具, 假)  ' 载入一个窗口作为头部
置PNG外形 (头部, PNG)  ' 头部窗口置外形图片
圆角化 ()  ' 把四个角干掉
移动 (取屏幕宽度 () － 宽度 － 20, 15, , )  ' 移动到屏幕右上角
连续赋值 (到数值 (读配置项 (“小工具.ini”, “俺的小工具”, “背景色”, “25850”)), 星期.背景颜色, 分.背景颜色, 日期.背景颜色, 底色)  ' 读取配置项里面的颜色值信息
' 本源码来自三叶资源网(www.sanye.cx)
时钟1.时钟周期 ＝ 10  ' 第一次读取设置时钟周期灰常的短
我要透明 (小工具, 到数值 (读配置项 (“小工具.ini”, “俺的小工具”, “透明度”, “80”)))  ' 读取配置项里面的透明度信息

.子程序 取星期, 文本型
.参数 日期, 日期时间型, 可空

.如果真 (是否为空 (日期))  ' 是否为缺省时间
    日期 ＝ 取现行时间 ()  ' 如果留空就取当前时间
.如果真结束
返回 (“星期” ＋ 到文本 (多项选择 (取星期几 (日期), “日”, “一”, “二”, “三”, “四”, “五”, “六”)))  ' 易是把星期天定义为星期一

.子程序 _小工具_位置被改变

头部.移动 (小工具.左边 ＋ 7, 小工具.顶边 － 10, , )  ' 叫头上的那个东东跟着我们

.子程序 _小工具_首次激活

头部.可视 ＝ 真  ' 允许头上那个东东显示

.子程序 圆角化, 逻辑型, , 窗口圆角化
.参数 角度, , 可空
.局部变量 hRgn, 整数型

.如果真 (角度 ＝ 0)
    角度 ＝ 5
.如果真结束
hRgn ＝ CreateRoundRectRgn (0, 0, 宽度, 高度, 角度, 角度)
' 本源码来自三叶资源网(www.sanye.cx)
.如果真 (hRgn ＝ 0)
    返回 (假)
.如果真结束
.如果真 (SetWindowRgn (取窗口句柄 (), hRgn, 真) ＝ 0)
    返回 (假)
.如果真结束
DeleteObject (hRgn)
返回 (真)

.子程序 _小工具_鼠标右键被按下, 逻辑型, , 弹出右键
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (管理, , )

.子程序 _分_鼠标右键被按下, 逻辑型, , 弹出右键
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (管理, , )

.子程序 _星期_鼠标右键被按下, 逻辑型, , 弹出右键
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (管理, , )

.子程序 _日期_鼠标右键被按下, 逻辑型, , 弹出右键
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (管理, , )

.子程序 _更换底色_被选择, , , 随机背景色

置随机数种子 ()
底色 ＝ 取随机数 (12777, 93777)
' 本源码来自三叶资源网(www.sanye.cx)
连续赋值 (底色, 星期.背景颜色, 分.背景颜色, 日期.背景颜色)
写配置项 (“小工具.ini”, “俺的小工具”, “背景色”, 到文本 (底色))

.子程序 _退出小工具_被选择, , , 拜拜

销毁 ()

.子程序 _时钟1_周期事件, , , 检测时间
.局部变量 月, 文本型, , "2"

时钟1.时钟周期 ＝ 1000  ' 把周期改为1秒检测一次
星期.标题 ＝ 取星期 ()
分.标题 ＝ 到文本 (取秒 (取现行时间 ()))
分.字体.字体大小 ＝ 60
' 本源码来自三叶资源网(www.sanye.cx)
月 ＝ 分割文本 (时间到文本 (取现行时间 (), #日期部分), “年”, )
日期.标题 ＝ 月 [2] ＋ “ ” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ()))

.子程序 我要透明, , , 我要透明啊
.参数 窗口, 窗口
.参数 透明, 整数型, , 0-255

置窗口风格 (窗口.取窗口句柄 (), -20, 位或 (取窗口风格 (窗口.取窗口句柄 (), -20), 524288))
设置透明 (窗口.取窗口句柄 (), 0, 透明, 2)
置PNG外形 (头部, PNG, 透明)
_小工具_位置被改变 ()
写配置项 (“小工具.ini”, “俺的小工具”, “透明度”, 到文本 (透明))

.子程序 _透明30_被选择, , , ↓下面开始蛋疼↓

我要透明 (小工具, 255 × 0.3)

.子程序 _透明50_被选择

我要透明 (小工具, 255 × 0.5)

.子程序 _透明80_被选择

我要透明 (小工具, 255 × 0.8)

.子程序 _透明10_被选择

我要透明 (小工具, 255 × 0.1)

.子程序 _透明20_被选择

我要透明 (小工具, 255 × 0.2)

.子程序 _透明40_被选择

我要透明 (小工具, 255 × 0.4)

.子程序 _透明60_被选择

我要透明 (小工具, 255 × 0.6)

.子程序 _透明70_被选择

我要透明 (小工具, 255 × 0.7)

.子程序 _透明90_被选择

我要透明 (小工具, 255 × 0.9)

.子程序 _完全不透明_被选择, , , ↑好了蛋疼结束了↑

我要透明 (小工具, 255)

@易语言入门教程