.版本 2 .支持库 iext2 .子程序 _字典窗口_创建完毕 .局部变量 文件号, 整数型 .局部变量 内容, 文本型 .局部变量 数组, 文本型, , "0" .局部变量 变量, 整数型 拖放对象1.注册拖放控件 (字典窗口.取窗口句柄 ()) 文件号 ＝ 打开文件 (取运行目录 () ＋ “\字典文件.txt”, #读入, ) .如果真 (文件号 ＝ 0) 信息框 (“没有字典文件 字典文件.txt”, #警告图标, “错误”) .如果真结束 移到文件首 (文件号) 内容 ＝ 读入文本 (文件号, ) 数组 ＝ 分割文本 (内容, #换行符, ) 关闭文件 (文件号) 文件号 ＝ 取数组成员数 (数组) .计次循环首 (文件号, 变量) 字典列表框.加入项目 (数组 [变量], ) .计次循环尾 () 字典超级编辑框.内容 ＝ 字典编辑框1.内容 设置默认字符格式.字体名称 ＝ “MS Reference Sans Serif” 设置默认字符格式.字体大小 ＝ 到数值 (字体大小编辑框.内容) 字典超级编辑框.置默认字符格式 (设置默认字符格式)