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 e.WriteString(wb.Build) '生成网页 End Select