精易论坛

标题: 屏幕水印带模块源码 [打印本页]

作者: 涣歌易语言 时间: 2022-10-25 10:19
标题: 屏幕水印带模块源码
.版本 2

.子程序添加水印, 字节集, , 窗口首次激活后才能用不能在创建完毕时候使用
.参数文字, 文本型, 可空
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量 f, 整数型
.局部变量横向, 整数型
.局部变量图1, 字节集

画板1.文本颜色＝取颜色值 (9, 56, 247)
画板1.画笔粗细＝ 5
画板1.字体.字体大小＝ 20
画板1.字体.角度＝ 3150 ＋ 125
.计次循环首 (15, f)

.如果 (f ％ 2 ＜ 1)
      s ＝ -150
.否则

      s ＝ 0
.如果结束

.计次循环首 (10, i)

      .如果 (f ％ 2 ＜ 1)
         s ＝ s ＋ 200
         画板1.定位写出 (横向, s, 文字)
      .否则

         画板1.定位写出 (横向, s, 文字)
         s ＝ s ＋ 200
      .如果结束

.计次循环尾 ()

横向＝ f × 300
.计次循环尾 ()

图1 ＝画板1.取图片 (取屏幕宽度 (), 取屏幕高度 ())
画板1.重画 ()
画板1.清除 (, , , )
画板1.销毁 ()

返回 (图1)

屏幕水印.7z

771.5 KB, 下载次数: 83, 下载积分: 精币 -2 枚

作者: pjm123 时间: 2022-10-25 10:52
谢谢分享

作者: boxxie 时间: 2022-10-25 10:59
多谢楼主分享哟

作者: fjgh 时间: 2022-10-25 11:29

作者: wuqingg 时间: 2022-10-25 12:09
支持开源~！感谢分享

作者: cfvgbhnj 时间: 2022-10-25 14:12
支持开源~！感谢分享

作者: wjswzj0 时间: 2022-10-25 15:32
支持开源~！感谢分享

作者: a2130137023 时间: 2022-10-25 18:06
支持楼主

作者: yx681 时间: 2022-10-25 22:42
支持开源~！感谢分享

作者: Mazh369 时间: 2022-10-26 12:18

支持开源~！感谢分享

作者: zjkhzx 时间: 2022-10-26 14:50
感谢分享66666

作者: 小飞爱精易 时间: 2022-10-26 19:27
支持开源~！感谢分享

作者: 玄易 时间: 2022-10-26 19:48
感谢分享，很给力！~

作者: pt1314 时间: 2022-10-26 22:09
学习，学习一下

作者: zhaode2888 时间: 2022-10-27 14:51
感谢分享

作者: 蒙顺童 时间: 2022-10-29 22:05
66666666666666666666666

作者: zzky 时间: 2022-10-31 15:27
感谢分享

作者: 已注销571294 时间: 2022-11-7 11:49
提示: 作者被禁止或删除内容自动屏蔽

作者: 已注销571294 时间: 2022-11-9 11:58
提示: 作者被禁止或删除内容自动屏蔽

作者: ckzheng 时间: 2023-2-1 08:33
这个好玩

作者: xcw 时间: 2023-3-20 13:28
支持开源~！感谢分享

作者: 莫良 时间: 2023-5-10 21:55
请问设置字体颜色为浅灰但实际还是有蓝色，这是咋回事呢

作者: year1970 时间: 2024-3-26 08:18
感谢分享

作者: 逸哥哥 时间: 2024-7-28 09:30
.版本 2

.子程序添加水印, 字节集, , 窗口首次激活后才能用不能在创建完毕时候使用
.参数文字, 文本型, 可空
.局部变量 i, 整数型
.局部变量 s, 整数型
.局部变量 f, 整数型
.局部变量横向, 整数型
.局部变量图1, 字节集

画板1.文本颜色＝取颜色值 (9, 56, 247)
画板1.画笔粗细＝ 5
画板1.字体.字体大小＝ 20
画板1.字体.角度＝ 3150 ＋ 125
.计次循环首 (15, f)

.如果 (f ％ 2 ＜ 1)
      s ＝ -150
.否则

      s ＝ 0
.如果结束

.计次循环首 (10, i)

      .如果 (f ％ 2 ＜ 1)
         s ＝ s ＋ 200
         画板1.定位写出 (横向, s, 文字)
      .否则

         画板1.定位写出 (横向, s, 文字)
         s ＝ s ＋ 200
      .如果结束

.计次循环尾 ()

横向＝ f × 300
.计次循环尾 ()

图1 ＝画板1.取图片 (取屏幕宽度 (), 取屏幕高度 ())
画板1.重画 ()
画板1.清除 (, , , )
画板1.销毁 ()

返回 (图1)

欢迎光临精易论坛 (https://125.confly.eu.org/)