如何列出字体选择改变超级编辑框里

longchaohua · 发表于 2010-7-15 21:24:12

Excel 2003那个字体看见了嘛

点选这个字体选择超级编辑框的字体就改变其它书法字体，就是这样的

wqejnyt · 发表于 2010-7-15 21:24:13

[e].版本 2
.支持库 iext2
.程序集窗口程序集1
.程序集变量 a, 字符格式
.子程序 __启动窗口_创建完毕
a ＝超级编辑框1.取默认字符格式 ()

.子程序 _按钮1_被单击
.如果真 (通用对话框1.打开 ())
a.字体名称＝通用对话框1.字体名称
超级编辑框1.置默认字符格式 (a)
a.字体大小＝通用对话框1.字体大小
超级编辑框1.置默认字符格式 (a)
a.文本颜色＝通用对话框1.字体颜色
超级编辑框1.置默认字符格式 (a)
.如果真结束

.子程序 _选择框_粗体_被单击
a.效果＝ #粗体
超级编辑框1.置默认字符格式 (a)
选择框_斜体.选中＝假
连续赋值 (选择框_斜体.选中, 选择框_下划线.选中, 选择框_删除线.选中)
.子程序 _选择框_斜体_被单击
a.效果＝ #斜体
超级编辑框1.置默认字符格式 (a)
选择框_粗体.选中＝假
连续赋值 (选择框_粗体.选中, 选择框_下划线.选中, 选择框_删除线.选中)

.子程序 _选择框_删除线_被单击
a.效果＝ #删除线
超级编辑框1.置默认字符格式 (a)
选择框_斜体.选中＝假
连续赋值 (选择框_斜体.选中, 选择框_下划线.选中, 选择框_粗体.选中)
.子程序 _选择框_下划线_被单击
a.效果＝ #下划线
超级编辑框1.置默认字符格式 (a)
选择框_斜体.选中＝假
连续赋值 (选择框_斜体.选中, 选择框_粗体.选中, 选择框_删除线.选中)
[/e]

xiaoyu1986 · 发表于 2010-7-15 21:40:31

不知道、、、{:3_217:}

光年 · 发表于 2010-7-15 21:41:43

楼主的意思，不是太明白

hongquan · 发表于 2010-10-6 23:19:55

不知道你是不是这个意思
源码在下面自己看看

字体测试.rar (1.63 KB, 下载次数: 89)

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

[已解决] 如何列出字体选择改变超级编辑框里

最佳答案