Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test1.htm")
With wb.AddButtonGroup("form1","btg1",True)
.AddHiddenValue("aaa",0)
.Add("btn1", "播放", "button").Attri-bute= "on-click='myfunction(1)'"
已经实现了播放，但是播放时，再次点击播放按钮，能调用Audio.Stop()吗？
End With
e.WriteString(wb.Build) '生成网页
End Select
js代码：
function myfunction(idx){
document.getElementById("aaa").value = idx
var result = submitAjaxForm('form1','',false);
if (result =='OK') {show('dlg1')}
else if (result =='您尚未登录!') {show('dlg2-1')}
}
test1.htm：
If aaa = 1 Then
Audio.Play("e:\web\wav\2017-08-27_21_26_15.wav")
e.WriteString("正在播放!")
Return "" '必须的
End If
[此贴子已经被作者于2017/8/27 22:38:20编辑过]
加好友 
发短信
Post By：2017/8/27 22:38:00 [只看该作者]
