杭州交通信息网烟台化妆培训学校:vb问题不明白（高手帮忙...等）
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 22:48:47
（复制下面的代码运行可以朗读但是按钮没有办法再按，只能关闭程序从新运行才可以。有没有办法让此程序不用从新运行就可以点按钮让其反复读音？《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
问题补充：
Command1.Enabled = False
把这句话去掉
运行出错误
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
问题补充：
Command1.Enabled = False
把这句话去掉
运行出错误
Command1.Enabled = true
也出错误
什么错误啊？
你看看vtext有没有.close之类的文件，还有Command1.Enabled = False删了就行，如果不行你加个Set vText = Nothing在Dim astr As String
句话前面