屏幕水印带模块源码

涣歌易语言 · 发表于 2022-10-25 10:19:10

.版本 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)

逸哥哥 · 发表于 2024-7-28 09:30:37

.版本 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)

year1970 · 发表于 2024-3-26 08:18:21

感谢分享

莫良 · 发表于 2023-5-10 21:55:12

请问设置字体颜色为浅灰但实际还是有蓝色，这是咋回事呢

xcw · 发表于 2023-3-20 13:28:59

支持开源~！感谢分享

ckzheng · 发表于 2023-2-1 08:33:42

这个好玩

已注销571294 · 发表于 2022-11-9 11:58:37

好像有点卡

已注销571294 · 发表于 2022-11-7 11:49:44

这个好玩

zzky · 发表于 2022-10-31 15:27:07

感谢分享

蒙顺童 · 发表于 2022-10-29 22:05:31

66666666666666666666666

zhaode2888 · 发表于 2022-10-27 14:51:51

感谢分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 屏幕水印带模块源码

评分