这个页面可以做吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用移动版，这个展示页面可以做吗？（不需要输入功能，只是展示
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20170302191657.png

）

下面是移动开发指南使用Article页面的例子

问下:with语句内部可以添加文本输入框、日期输入框、数值输入框吗？
Dim fl As String = "d:\web\" & e.pathIf filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddArticle("","ar1")
            .AddTitle("h1","大标题")
            .AddTitle("h2","章标题")
            .AddTitle("h3","1.1节标题")
            .AddContent("Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute")
            .AddImage("./images/001.jpg")
            .AddTitle("h3","1.2节标题")
            .AddContent("Foxtable将Excel、Access、Foxpro、VB以及易表的优势融合在一起，无论是数据录入、查询、统计，还是报表生成，都前所未有的强大和易用，普通用户无需编写任何代码，即可轻松完成复杂的数据管理工作，真正做到拿来即用。")
            .AddImage("./images/002.jpg")
      End With
        e.WriteString(wb.Build) '生成网页
End Select

可以任意嵌套的。

'''
Dim fl As String = "c:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg2","备注")
            .AddTextArea("bz",5).Placeholder = "请输入200字以内的备注"
            .AddInput("xm","姓名","text")
            With .AddInput("sl","年龄","number")
                .Min = "18"
                .Max = "60"
                .Placeholder = "年龄范围为18到60"
            End With
            .AddInput("dj","工资","number").Step = "0.01"
        End With
        With wb.AddArticle("form1","ar1")
            .AddContent("年龄:19")
            .AddContent("姓名:19")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "查看详情", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

主题：这个页面可以做吗？