主题：[求助]基于weui框架根据逻辑开关判断下一步操作

显示隐藏即可。

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True).attribute="onchange=""if(this.checked){vip.parentNode.parentNode.style.display='block'}else{vip.parentNode.parentNode.style.display='none'};alert(this.checked)"""
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select