从资源库安装并使用一种字体

从资源库安装并使用一种字体，源码是API函数的应用教程。

.版本 2
.支持库 shell

.子程序 __启动窗口_创建完毕, , , LOTSOFDOTZ.TTF

写到文件 (取特定目录 (4) ＋ “LOTSOFDOTZ.TTF”, #字体LOTSOFDOTZ)
.如果真 (AddFontResourceA (取特定目录 (4) ＋ “LOTSOFDOTZ.TTF”) ≠ 0)
    SendMessageA (65535, 29, 0, 0)
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _按钮1_被单击

画板1.字体.角度 ＝ 200
画板1.字体.字体大小 ＝ 48
画板1.字体.字体名称 ＝ “LOTSOFDOTZ”
画板1.文本颜色 ＝ #蓝色
画板1.定位写出 (100, 100, “123” ＋ #换行符 ＋ #换行符 ＋ “ABC”)
' 本源码来自三叶资源网(www.sanye.cx)

@易语言学习论坛