平度卓越儿童英语:vb小问题高手来指点

来源：百度文库编辑：杭州交通信息网时间：2024/04/26 23:56:12

（复制下面的代码运行可以朗读但是按钮没有办法再按，只能关闭程序从新运行才可以。有没有办法让此程序不用从新运行就可以点按钮让其反复读音？《Command1.Enabled = true时就出问题》）
Dim vText As New VTxtAuto.VTxtAuto

Private Sub Command1_Click()
Dim astr As String

Command1.Enabled = False
vText.Register vbNullString, "Speech"
'vtext.Register
astr = "This is a sample of Microsoft Speech Engine?"
vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set vText = Nothing
End Sub
再添一个按扭
click中有Command1.Enabled = true
也出问题

再添一个按扭么,
click中有Command1.Enabled = true

vb小问题高手来指点 vb小问题高手来指点下 vb小问题高手指点 vb小问题高手来指点下1 vb小问题高手来指点下12 vb小问题高手来指点下11 vb小问题高手来指点下13 vb小问题高手来指点下14 vb小问题高手来指点下15 vb小问题高手来指点下16