以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动视频教程问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96995)
--  作者：zhangjian222200
--  发布时间：2017/3/3 17:25:00
--  移动视频教程问题
移动版视频教程，什么时候能出来呢？是2017移动版发布同时发布视频吗？
--  作者：狐狸爸爸
--  发布时间：2017/3/3 17:46:00
--  
争取同步推出。

不过这个帮助写的不错啊，难道看不下去？
--  作者：HappyFt
--  发布时间：2017/3/3 17:57:00
--  
其实我觉得帮助尽量写详细就好，视频就是看起来直观些且讲解时有的技巧说起来比写在帮助中方便点，其他没什么，而且很浪费时间
--  作者：zhy400137
--  发布时间：2017/3/3 18:06:00
--  
帮助好
--  作者：jspta
--  发布时间：2017/3/3 18:17:00
--  
帮助内容太丰富了，一时半会看不过来

[此贴子已经被作者于2017/3/3 18:18:05编辑过]
--  作者：zhangjian222200
--  发布时间：2017/3/3 19:25:00
--  
文档写得很好，视频是补充说明，建议搞连续剧，呵呵！下面说说原因。
尽管有文档，但是例如：数据如何传递到datatables数据表，datatables数据表的内容如何传递到客户端，看视频将对我们菜鸟起到更多的帮助，提供学习渠道的补充，因为更加直接、感性，有些细节在高手看来不算问题的东西，可能对菜鸟就是大问题，也没法具体说；有视频就可以看着高手做临摹把，像看着葫芦画瓢一样图片点击可在新窗口打开查看，对软件本身也是一种宣传！
--  作者：zhangjian222200
--  发布时间：2017/3/3 19:26:00
--  
下面提具体的，总感觉对内置框架的真正功能了解不够。内置框架界面的生成总体感觉还是比较容易的，但也有疑惑
1.这是做出来的样子：

图片点击可在新窗口打开查看此主题相关图片如下：11111112.png
图片点击可在新窗口打开查看
这是代码：

Dim fl As String = "e:\\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
        With wb.AddArticle("","ar1")
            .AddImage("./images/001.jpg")
        End With
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("xm","年龄","text")
            .AddInput("pw","城市","text")
        End With
        With wb.AddButtonGroup("form1","btg1",False)
            .Add("btn1", "确定", "submit")
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

2.见下图最下面红色文字描述

图片点击可在新窗口打开查看此主题相关图片如下：22222222223.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/3/3 19:28:52编辑过]
--  作者：有点蓝
--  发布时间：2017/3/3 20:10:00
--  
1、做个循环，重复写入代码中With块的代码就可以了

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        For i As Integer = 1 To 5
            With wb.AddArticle("","ar1")
                .AddImage("./images/00" & i & ".jpg")
            End With
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1")
                .AddInput("xm" & i,"年龄","text")
                .AddInput("pw" & i,"城市","text")
            End With
            With wb.AddButtonGroup("form1","btg1",False)
                .Add("btn1" & i, "确定", "submit")
                .Add("btn12" & i, "确定", "submit")
            End With
        Next
        e.WriteString(wb.Build) \'生成网页
End Select

2、直接拼接字符串，颜色需要使用html标签
--  作者：zhangjian222200
--  发布时间：2017/3/5 9:23:00
--  
楼上这段代码输入后，浏览器提示：

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.3.2.1
错误所在事件：项目,HttpRequest
详细错误信息：
已添加了具有相同键的项。
--  作者：有点色
--  发布时间：2017/3/5 9:58:00
--  
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        For i As Integer = 1 To 5
            With wb.AddArticle("","ar1")
                .AddImage("./images/00" & i & ".jpg")
            End With
            wb.AddForm("","form" & i,"test.htm")
            With wb.AddInputGroup("form1","ipg1")
                .AddInput("xm" & i,"年龄","text")
                .AddInput("pw" & i,"城市","text")
            End With
            With wb.AddButtonGroup("form" & i,"btg1",False)
                .Add("btn1" & i, "确定", "submit")
                .Add("btn12" & i, "确定", "submit")
            End With
        Next
        e.WriteString(wb.Build) \'生成网页
End Select