|
分享源码
界面截图: |
|
是否带模块: |
纯源码 |
备注说明: |
- |
图形按钮,主要在于裁剪图案的水平,会点PS,一般都没有问题 窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 易语言官方论坛 | 文本型 | | 易语言资源网 | 文本型 | | 精易论坛 | 文本型 | | 天涯易栈论坛 | 文本型 | | 易语言资源搜索 | 文本型 | | 易语言官网 | 文本型 | | 图形按钮_数组 | 图形按钮 | 6 | 计次循环首 (6, n1 )计次循环首 (4, n2 )图形按钮_数组 [n1 ].高度 = 图形按钮_数组 [n1 ].高度 + 53 延迟 (10 )计次循环尾 ()计次循环尾 ()销毁 ()b = 取事件组件 ()判断 (b.左边 = 248 ) 打开指定网址 (易语言官网 )判断 (b.左边 = 360 ) 打开指定网址 (易语言官方论坛 )判断 (b.左边 = 472 ) 打开指定网址 (易语言资源网 )判断 (b.左边 = 584 ) 打开指定网址 (天涯易栈论坛 )判断 (b.左边 = 696 ) 打开指定网址 (精易论坛 )判断 (b.左边 = 808 ) 打开指定网址 (易语言资源搜索 )如果 (文件是否存在 (取当前目录 () + “\配置.ini”) = 假)如果 (信息框 (“是否创建快捷键?”, #询问图标 + 1, , ) = #确认钮 )创建快捷方式 (取特定目录 (3 ) + “\易语言网站.lnk”, 取当前目录 () + “\” + 取执行文件名 (), , , )写配置项 (取当前目录 () + “\配置.ini”, “快捷键”, “创建”, “1”)写配置项 (取当前目录 () + “\配置.ini”, “快捷键”, “创建”, “0”)边框 = 0图形按钮差.正常图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\差-正常.png”)图形按钮差.点燃图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\差-点燃.png”)图形按钮差.按下图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\差-按钮.png”)图形按钮差.宽度 = 30 图形按钮差.高度 = 22 图形按钮差.左边 = 宽度 - 图形按钮差.宽度 图形按钮差.顶边 = 0 底图 = 读入文件 (取运行目录 () + “\Wllpaper Icon\背景1.png”)易语言官方论坛 = “http://bbs.eyuyan.com/”易语言资源网 = “http://www.5a5x.com/”精易论坛 = “http://bbs.125.la/”易语言资源搜索 = “http://go.it608.com/link/jc/”天涯易栈论坛 = “http://www.tianya88.com/”易语言官网 = “http://www.dywt.com.cn/”计次循环首 (6, n )复制窗口组件 (图形按钮1, 图形按钮_数组 [n ])如果 (n > 1 )图形按钮_数组 [n ].左边 = 图形按钮_数组 [n - 1 ].左边 + 图形按钮_数组 [n - 1 ].宽度 + 80 图形按钮_数组 [n ].左边 = 248 图形按钮_数组 [n].可视 = 真图形按钮_数组 [n ].顶边 = 40 图形按钮_数组 [n ].正常图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\按钮-正常” + 到文本 (n ) + “.png”)图形按钮_数组 [n ].点燃图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\按钮-点燃” + 到文本 (n ) + “.png”)图形按钮_数组 [n ].按下图片 = 读入文件 (取运行目录 () + “\Wllpaper Icon\按钮-按下” + 到文本 (n ) + “.png”)图形按钮_数组 [n ].高度 = 0 调试输出 (图形按钮_数组 [n ].左边 )计次循环尾 ()|
__启动窗口_鼠标右键被放开 | 逻辑型 | | |
横向位置 | 整数型 | | | | 纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | | 弹出菜单 (创建, 取鼠标水平位置 (), 取鼠标垂直位置 ()) 如果 (信息框 (“是否创建快捷键?”, #询问图标 + 1, , ) = #确认钮 )创建快捷方式 (取特定目录 (3 ) + “\易语言网站.lnk”, 取当前目录 () + “\” + 取执行文件名 (), , , )写配置项 (取当前目录 () + “\配置.ini”, “快捷键”, “创建”, “1”)
|
评分
-
查看全部评分
|