易语言设置字体:
----------------------------------------
.版本 2
.子程序 _设置字体_被选择
.局部变量 新字体, 字体
通用对话框1.类型 = 2
.如果真 (通用对话框1.打开 () = 假)
返回 ()
.如果真结束
新字体.加粗 = 通用对话框1.加粗
新字体.倾斜 = 通用对话框1.倾斜
新字体.删除线 = 通用对话框1.删除线
新字体.下划线 = 通用对话框1.下划线
新字体.字体名称 = 通用对话框1.字体名称
新字体.字体大小 = 通用对话框1.字体大小
编辑框.字体 = 新字体
编辑框.文本颜色 = 通用对话框1.字体颜色
-----------------------------------------
附送易语言记事本代码,可以参考。
字体A为例子,下载字体A到系统字体库里路径C:\WINDOWS\Fonts里,关闭易语言重新打开就有了,但在别的电脑如果没有这个字体A,运行程序也看不到这个字体的效果,如果是标题等使用图片代替,这样就不会变了。最简单的方法:超级编辑框1.内容 = 超级编辑框1.内容 +“超级编辑框”
稍微复杂一点的方法:
.版本 2
.支持库 iext2
.子程序 _按钮1_被单击
超级编辑框加入文本 (超级编辑框1, “abcdefg”)
.子程序 超级编辑框加入文本
.参数 超级编辑框, 超级编辑框
.参数 文本, 文本型
超级编辑框.被选择文本 = 文本
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)