Private Sub Command1_Click() On Local Error GoTo err Call VTxtAuto.VTxtAuto.Speak("ok", vtxtsp_VERYHIGH + vxtxst_READING) GoTo wfb err: MsgBox "声音初始化错误!" wfb: End Sub Private Sub Form_Load() On Local Error GoTo www Call VTxtAuto.VTxtAuto.Register(Space(10), Space(10)) GoTo www MsgBox ("声音设备不可用!") www: End Sub '引用里加入这个控件先!
On Local Error GoTo err
Call VTxtAuto.VTxtAuto.Speak("ok", vtxtsp_VERYHIGH + vxtxst_READING)
GoTo wfb
err:
MsgBox "声音初始化错误!"
wfb:
End Sub
Private Sub Form_Load()
On Local Error GoTo www
Call VTxtAuto.VTxtAuto.Register(Space(10), Space(10))
GoTo www
MsgBox ("声音设备不可用!")
www:
End Sub
'引用里加入这个控件先!
在哪里啊?
<LANG LANGID="804">这是中文</LANG>