Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
.AddSelect("形状","形状","圆形|矩形").Attribute = "onchange=“”choose()“”"
.AddInput("直径mm","直径mm","number").value = 300
.AddInput("长mm","长mm","number").value = 0
.AddInput("宽mm","宽mm","number").value = 0
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<script src='./test.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
test.js文件
function choose(){
var gj=document.getElementById("形状").value;
if(gj=="圆形")
{
alert("提示信息!");
document.getElementById("长mm").value = 0;
document.getElementById("宽mm").value = 0;
document.getELementById("长mm").disabled=true;
document.getELementById("宽mm").disabled=true;}
else
{alert("提示");
document.getElementById("直径mm").value = 0;
document.getELementById("直径mm").disabled=true;}
}