求助补全这个代码，红色文字处是要补全的地方

xingchen00

.版本 2
.支持库 EThread

.程序集 窗口程序集_启动窗口
.程序集变量 语音表, zyJsonValue
.程序集变量 SSML, 类_SSML
.程序集变量 微软语音, 类_微软语音

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

启动线程 (&初始化, , )
加载皮肤 (2)

.子程序 初始化
.局部变量 返回信息, 文本型


语音表.解析 (#语言列表, , , )
加载语言 ()
_组合框_语言_列表项被选择 ()
_组合框_语音_列表项被选择 ()
_多功能条_语速_位置被改变 ()
_多功能条_音调_位置被改变 ()

.如果真 (微软语音.初始化 (返回信息) ＜ 0)
    信息框 (“初始化失败，” ＋ 返回信息, 0, “初始化”, _启动窗口)
    结束 ()
.如果真结束

按钮_合成.禁止 ＝ 假

.版本 2
.支持库 spec

.子程序 加载语言
.局部变量 上一个语言, 文本型
.局部变量 语言, 文本型
.局部变量 i, 整数型

组合框_语言.禁止重画 ()
组合框_语言.清空 ()
.变量循环首 (0, 语音表.取成员数 () － 1, 1, i)
    语言 ＝ 语音表.取文本 (取文本 (“[%d].Locale”, i))
    .如果真 (语言 ≠ 上一个语言)
        组合框_语言.加入项目 (语言, )
    .如果真结束
    上一个语言 ＝ 语言
.变量循环尾 ()
组合框_语言.现行选中项 ＝ 57
组合框_语言.允许重画 ()

.子程序 加载语音
.参数 语言, 文本型
.局部变量 i, 整数型

组合框_语音.禁止重画 ()
组合框_语音.清空 ()
.变量循环首 (0, 语音表.取成员数 () － 1, 1, i)
    .如果真 (语音表.取文本 (取文本 (“[%d].Locale”, i)) ＝ 语言)
        组合框_语音.加入项目 (语音表.取文本 (取文本 (“[%d].DisplayName”, i)) ＋ “ - ” ＋ 语音表.取文本 (取文本 (“[%d].LocalName”, i)), i)
    .如果真结束

.变量循环尾 ()
组合框_语音.现行选中项 ＝ 0
组合框_语音.允许重画 ()

.版本 2
.支持库 spec
.支持库 iext6

.子程序 加载语音样式
.参数 语音id, 整数型
.局部变量 i, 整数型

组合框_语音风格.禁止重画 ()
组合框_语音风格.清空 ()
组合框_语音风格.加入项目 (“general”, )
.变量循环首 (0, 语音表.取成员数 (取文本 (“[%d].StyleList”, 语音id)) － 1, 1, i)
    组合框_语音风格.加入项目 (语音表.取文本 (取文本 (“[%d].StyleList[%d]”, 语音id, i)), )
.变量循环尾 ()
组合框_语音风格.现行选中项 ＝ 0
组合框_语音风格.允许重画 ()

.子程序 _组合框_语言_列表项被选择

加载语音 (组合框_语言.取项目文本 (组合框_语言.现行选中项))
_组合框_语音_列表项被选择 ()

.子程序 _组合框_语音_列表项被选择

SSML.设置语音 (语音表.取文本 (取文本 (“[%d].ShortName”, 组合框_语音.取项目数值 (组合框_语音.现行选中项))))
加载语音样式 (组合框_语音.取项目数值 (组合框_语音.现行选中项))

.子程序 _组合框_语音风格_列表项被选择

SSML.设置语音风格 (组合框_语音风格.取项目文本 (组合框_语音风格.现行选中项))

.子程序 _多功能条_语速_位置被改变

标签_语速.标题 ＝ “语速：” ＋ 到文本 (四舍五入 (多功能条_语速.位置 ÷ 100, 2))
SSML.设置语速 (多功能条_语速.位置 － 100)

.子程序 _多功能条_音调_位置被改变

标签_音调.标题 ＝ “音调：” ＋ 到文本 (四舍五入 (多功能条_音调.位置 × 2 ÷ 100, 2))
SSML.设置音调 (多功能条_音调.位置 － 50)


.版本 2
.支持库 EThread
.支持库 spec

.子程序 _按钮_合成_被单击

按钮_合成.禁止 ＝ 真
启动线程 (&合成任务, , )

.子程序 合成任务
.局部变量 语音, 字节集
.局部变量 SSML文本, 文本型

SSML.设置内容 (编辑框_内容.内容)

SSML文本 ＝ SSML.取数据文本 ()
调试输出 (SSML文本)
SSML文本 ＝ 文本_取右边 (SSML文本, 取文本 (“<?xml version=`1.0` encoding=`gb18030`?>”, ))

微软语音.合成语音 (SSML文本, 语音)

写到文件 (取运行目录 () ＋ “\temp.mp3”, 语音)
播放MP3 (1, 取运行目录 () ＋ “\temp.mp3”)
按钮_合成.禁止 ＝ 假


.子程序 __启动窗口_尺寸被改变
.局部变量 用户区高度, 整数型
.局部变量 用户区宽度, 整数型

用户区高度 ＝ 取用户区高度 ()
用户区宽度 ＝ 取用户区宽度 ()

编辑框_内容.移动 (, , 用户区宽度 － 外形框1.宽度, 用户区高度 － 4)

外形框1.移动 (编辑框_内容.宽度 ＋ 2, 用户区高度 － 外形框1.高度, , )
外形框2.移动 (编辑框_内容.宽度 ＋ 2, , , )



.版本 2
.支持库 eWord2000

.子程序 _暂停按钮_被单击


补全这个


.子程序 _试听_被单击


补全这个

.子程序 _编辑框_内容_内容被改变

.如果 (编辑框_内容.内容 ＝ “”)
    标签5.标题 ＝ “字数统计：0”
.否则
    标签5.标题 ＝ “字数统计：” ＋ 到文本 (取文本长度 (编辑框_内容.内容))
.如果结束


.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果 (参数一 ＝ 1)
    标签4.文本颜色 ＝ #红色
    标签4.标题 ＝ “正在朗读文本”
.否则
    参数一 ＝ 2
    标签4.文本颜色 ＝ #蓝色
    标签4.标题 ＝ “未朗读文本”
.如果结束



.子程序 _按钮8_被单击
.局部变量 到文本, 文本型
.局部变量 请输入文本, 文本型

编辑框_内容.内容 ＝ 到文本 (请输入文本)



.子程序 打开1, 文本型
.局部变量 打开文件名, 文本型

通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “TXT文档（*.txt）|*.txt|word文档（*.doc,*.docx）|*.doc;*.docx|”
.如果真 (通用对话框1.打开 ())
    打开文件名 ＝ 通用对话框1.文件名
.如果真结束
返回 (打开文件名)

.子程序 _按钮6_被单击
.局部变量 文件后缀, 文本型
.局部变量 文件路径, 文本型

文件路径 ＝ 打开1 ()
文件后缀 ＝ 取文本右边 (文件路径, 取文本长度 (文件路径) － 倒找文本 (文件路径, “.”, , 假))
.如果 (文件后缀 ＝ “txt”)
    编辑框_内容.内容 ＝ 到文本 (读入文件 (文件路径))
.否则
    Word程序1.创建 ()
    Word程序1.可视 ＝ 假
    Word程序1.显示 ＝ 假
    Word文档集1.置程序 (Word程序1, 假)
    Word文档集1.打开 (文件路径)
    Word文档集1.全选 ()
    编辑框_内容.内容 ＝ Word文档集1.内容
    Word文档集1.关闭 ()
    Word程序1.退出 ()
.如果结束


.子程序 _时钟1_周期事件

标签6.标题 ＝ 到文本 (取现行时间 ())

蔚枫心蓝

suxia888 发表于 2022-7-23 18:25
暂停播放()

开始试听()

你这么皮真的好吗？

xingchen00

suxia888 发表于 2022-7-23 18:25
暂停播放()

开始试听()

不对  找不到指定的命令／子程序／Dll命令调用名称“暂停播放”。

suxia888

暂停播放()

开始试听()

奥利给！