Select Case e.Path Case "test.htm","" Dim wb As New weui With wb.AddInputGroup("","ipg1") With .AddInput("username","用户名","text") .Placeholder="请输入" .attribute="style=""background-image:url('./images/test.gif');background-repeat:no-repeat;padding-left:50px;""" End With .AddInput("password","密码","password") End With e.WriteString(wb.Build) '生成网页 End Select