Select Case e.Path

    Case "test.htm"

        Dim wb As New weui

        wb.AddForm("","form1","test.htm")

        With wb.AddButtonGroup("form1","btg1",True)  \'垂直排列

            .Add("btn1", "按钮")

            .Add("btn4", "按钮", "reset")

            .Add("btn5", "按钮", "", "http://www.foxtable.com") \'单击这个按钮可以打开foxtable主页

        End With

        With wb.AddButtonGroup("form1","btg2", False)  \'水平排列

            .Add("btn6", "按钮")

            .Add("btn7", "按钮").Kind = 2

        End With

        With wb.AddButtonGroup("form1","btg3", False)

            .Add("btn8", "按钮").Kind = 0

            .Add("btn9", "按钮").Kind = 1

        End With

        e.WriteString(wb.Build) \'生成网页

    Case "error.htm"

        Dim wb As new WeUI

        With wb.AddMsgPage("","msgpage","警告","本网站只能在微信中打开")

        End With

        e.WriteString(wb.Build) \'生成网页

End Select