Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动视频教程问题


  共有2517人关注过本帖树形打印复制链接

主题：移动视频教程问题
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00 		移动视频教程问题  发帖心情 Post By：2017/3/3 17:25:00 [只看该作者]

移动版视频教程，什么时候能出来呢？是2017移动版发布同时发布视频吗？

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2017/3/3 17:46:00 [只看该作者]

争取同步推出。

不过这个帮助写的不错啊，难道看不下去？
 回到顶部
帅哥哟，离线，有人找我吗？
HappyFt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1930 积分：17570 威望：0 精华：0 注册：2014/7/29 19:09:00 		  发帖心情 Post By：2017/3/3 17:57:00 [只看该作者]

其实我觉得帮助尽量写详细就好，视频就是看起来直观些且讲解时有的技巧说起来比写在帮助中方便点，其他没什么，而且很浪费时间

 回到顶部
帅哥哟，离线，有人找我吗？
zhy400137
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1133 积分：8227 威望：0 精华：0 注册：2013/11/3 19:00:00 		  发帖心情 Post By：2017/3/3 18:06:00 [只看该作者]

帮助好

 回到顶部
帅哥哟，离线，有人找我吗？
jspta
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1732 积分：11266 威望：0 精华：0 注册：2011/12/15 22:06:00 		  发帖心情 Post By：2017/3/3 18:17:00 [只看该作者]

帮助内容太丰富了，一时半会看不过来

[此贴子已经被作者于2017/3/3 18:18:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/3 19:25:00 [只看该作者]

文档写得很好，视频是补充说明，建议搞连续剧，呵呵！下面说说原因。
尽管有文档，但是例如：数据如何传递到datatables数据表，datatables数据表的内容如何传递到客户端，看视频将对我们菜鸟起到更多的帮助，提供学习渠道的补充，因为更加直接、感性，有些细节在高手看来不算问题的东西，可能对菜鸟就是大问题，也没法具体说；有视频就可以看着高手做临摹把，像看着葫芦画瓢一样图片点击可在新窗口打开查看，对软件本身也是一种宣传！
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：11003 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/3/5 9:23:00 [只看该作者]

楼上这段代码输入后，浏览器提示：

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.3.2.1
错误所在事件：项目,HttpRequest
详细错误信息：
已添加了具有相同键的项。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询