pb12中怎么使用ms的TTS

$PBExportHeader$w_read.srwforwardglobal type w_read from windowend typetype mle_2 from multilineedit within w_readend typetype ddlb_1 from dropdownlistbox within w_readend typetype st_4 from statictext within w_readend typetype st_3 from statictext within w_readend typetype st_2 from statictext within w_readend typetype st_1 from statictext within w_readend typetype cb_6 from commandbutton within w_readend typetype cb_5 from commandbutton within w_readend typetype cb_4 from commandbutton within w_readend typetype cb_3 from commandbutton within w_readend typetype cb_2 from commandbutton within w_readend typetype cb_1 from commandbutton within w_readend typetype mle_1 from multilineedit within w_readend typetype htb_2 from htrackbar within w_readend typetype htb_1 from htrackbar within w_readend typetype ddlb_2 from dropdownlistbox within w_readend typetype gb_1 from groupbox within w_readend typeend forwardglobal type w_read from windowinteger width = 3406integer height = 1648boolean titlebar = truestring title = "调用微软MSTTS语音引擎实例"boolean controlmenu = trueboolean minbox = truelong backcolor = 67108864string icon = "AppIcon!"boolean center = truemle_2 mle_2ddlb_1 ddlb_1st_4 st_4st_3 st_3st_2 st_2st_1 st_1cb_6 cb_6cb_5 cb_5cb_4 cb_4cb_3 cb_3cb_2 cb_2cb_1 cb_1mle_1 mle_1htb_2 htb_2htb_1 htb_1ddlb_2 ddlb_2gb_1 gb_1end typeglobal w_read w_readon w_read.createthis.mle_2=create mle_2this.ddlb_1=create ddlb_1this.st_4=create st_4this.st_3=create st_3this.st_2=create st_2this.st_1=create st_1this.cb_6=create cb_6this.cb_5=create cb_5this.cb_4=create cb_4this.cb_3=create cb_3this.cb_2=create cb_2this.cb_1=create cb_1this.mle_1=create mle_1this.htb_2=create htb_2this.htb_1=create htb_1this.ddlb_2=create ddlb_2this.gb_1=create gb_1this.Control[]={this.mle_2,&this.ddlb_1,&this.st_4,&this.st_3,&this.st_2,&this.st_1,&this.cb_6,&this.cb_5,&this.cb_4,&this.cb_3,&this.cb_2,&this.cb_1,&this.mle_1,&this.htb_2,&this.htb_1,&this.ddlb_2,&this.gb_1}end onon w_read.destroydestroy(this.mle_2)destroy(this.ddlb_1)destroy(this.st_4)destroy(this.st_3)destroy(this.st_2)destroy(this.st_1)destroy(this.cb_6)destroy(this.cb_5)destroy(this.cb_4)destroy(this.cb_3)destroy(this.cb_2)destroy(this.cb_1)destroy(this.mle_1)destroy(this.htb_2)destroy(this.htb_1)destroy(this.ddlb_2)destroy(this.gb_1)end onevent open;integer n,mstring ls_desp//取得引擎列表m=integer(tts.getvoices.count)IF m < 1 THEN RETURN 0cb_1.enabled = truecb_2.enabled = falsecb_3.enabled = false//显示引擎FOR n = 1 TO mls_desp = string(tts.getvoices.item[n - 1].getdescription())IF n=1 THEN ddlb_1.text = ls_despddlb_1.additem (ls_desp)NEXT//取得音频输出列表m = tts.getaudiooutputs.countIF m < 1 THEN RETURN -1//显示音频输出设备FOR n = 1 TO mls_desp =string(tts.getaudiooutputs.item[n - 1].getdescription())IF n = 1 THEN ddlb_2.text = ls_despddlb_2.additem(ls_desp)NEXTRETURN 1end eventtype mle_2 from multilineedit within w_readinteger x = 5integer y = 1192integer width = 1061integer height = 316integer taborder = 120integer textsize = -9integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 16711680string text = "提示：                                1、请先安装TTS_51_eng.msi。            2、如需其它语音，请到微软官方下载（免费的）或金山词霸下载。"end typetype ddlb_1 from dropdownlistbox within w_readinteger x = 215integer y = 36integer width = 782integer height = 324integer taborder = 70integer textsize = -10integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 33554432boolean vscrollbar = trueborderstyle borderstyle = stylelowered!end typeevent selectionchanged;If index > 0 then tts.voice=tts.getvoices.item(index - 1)end eventtype st_4 from statictext within w_readinteger x = 18integer y = 420integer width = 192integer height = 48integer textsize = -9integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 33554432long backcolor = 67108864string text = "速度："boolean focusrectangle = falseend typetype st_3 from statictext within w_readinteger x = 18integer y = 272integer width = 192integer height = 48integer textsize = -9integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 33554432long backcolor = 67108864string text = "音量："boolean focusrectangle = falseend typetype st_2 from statictext within w_readinteger x = 18integer y = 156integer width = 192integer height = 48integer textsize = -9integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 33554432long backcolor = 67108864string text = "音频："boolean focusrectangle = falseend typetype st_1 from statictext within w_readinteger x = 18integer y = 52integer width = 192integer height = 48integer textsize = -9integer weight = 400fontcharset fontcharset = gb2312charset!fontpitch fontpitch = variable!string facename = "宋体"long textcolor = 33554432long backcolor = 67108864string text = "声音："boolean focusrectangle = falseend type