老师，加黑代码提示出错。
是这样设置变量吗？
If Forms("语音朗读").opened Then
Dim f As WinForm.Form = Forms.ActiveForm
If f IsNot Nothing Then
Dim web As WinForm.webbrowser = f.controls("webbrowser1").basecontrol
Forms("语音朗读").controls("TextBox1").text = vars("val")
Forms("语音朗读").controls("朗读").performclick
Forms("语音朗读").controls("暂停").checked = True
web.Document.InvokeScript("eval", new String() {"document.getElementById('" & arr(0) & "').setAttribute('class', '');" })
End If
[此贴子已经被作者于2018/7/10 7:28:44编辑过]
加好友 
发短信
Post By：2018/7/9 22:00:00 [只看该作者]
