|
播放指定的角色动画 OChar.Play(ThisForm.lbxAnimNames.DisplayValue) 阅读指定文本 oChar.languageid=0x409*指定语言种类，0X409代表美式英语 oChar.Speak(ThisForm.txtSpeak.Value') 由于TTS引擎不支持中文，因此如果要阅读中文，可以按如下方法： 将要阅读的汉语文本通过录音制作成WAV文件，如SNDFILE.WAV oChar.languageid=0x804;//指定语言种类，0X804代表中文 oChar.speak(‘你好！’,’SNDFILE.WAV’);//SNDFILE.WAV及为制作的声音文件 停止循环播放的动画 oChar.Stop 卸载动画角色 With ThisForm .Olecontrol1.Characters.Unload("merlin") .AnimNames.Clear Endwith 加载阅读文本，也可以直接输入内容 Cfile=Getfile() Nhandle=Fopen(Cfile) Hend=Fseek(Nhandle,0,2) If Hend<=0 Messagebox("文件无法打开！",16,"提示窗口") Return Else =Fseek(Nhandle,0,0) Cstring=Fread(Nhandle,Hend) =Fclose(Nhandle) Endif Thisform.Txtspeak.Value=Cstring |
正在阅读：添加聪明角色 让网页动起来添加聪明角色 让网页动起来
2004-02-14 09:34
出处：中国电脑教育报
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
