Foxtable(狐表)用户栏目专家坐堂 → 基于panel做页面到底部自动加载


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

主题:基于panel做页面到底部自动加载

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1519 积分:10712 威望:0 精华:0 注册:2016/9/12 11:18:00
基于panel做页面到底部自动加载  发帖心情 Post By:2017/3/22 14:06:00 [只看该作者]

想基于foxtable高级版的panel功能,做一个页面,支持手机屏幕上滑加载10行
因为官方不支持上滑,自己不会,所以想找个高手帮做一下这个功能,技术上可行么?

图片点击可在新窗口打开查看此主题相关图片如下:qq图片2017888.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/3/29 9:47:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/22 14:17:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/22 14:21:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/22 14:21:00 [只看该作者]

http://justcoding.iteye.com/blog/2215557

 

[此贴子已经被作者于2017/3/22 14:21:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/22 14:40:00 [只看该作者]

mark 简单判断滚动条

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:jquery使用.zip


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

楼上的文档,\jquery使用\lib,文件夹里面test.js的代码如下:
$(document).ready(function() {
            $(window).scroll(function() {
                //$(document).scrollTop() 获取垂直滚动的距离
                //$(document).scrollLeft() 这是获取水平滚动条的距离
                if ($(document).scrollTop() <= 0) {
                    alert("滚动条已经到达顶部为0");              ’看了楼上例子,说明本楼js代码可以判断页面到达顶部
                                                                             问题是:如何将这句代码改成返回一个值?是否需要使用页面调用,如何调用?
                                                                             当页面里获得这个返回值时,加载上面的panel行
                }


                if ($(document).scrollTop() >= $(document).height() - $(window).height()) {
                    alert("滚动条已经到达底部为" + $(document).scrollTop());    ’大体同上
                }
            });
        });
[此贴子已经被作者于2017/3/22 20:01:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/22 22:26:00 [只看该作者]

方法一:跳转到上一页、下一页

 

方法二:生成html语句,然后,插入到前面去

 

http://www.foxtable.com/mobilehelp/scr/0108.htm

 

http://www.foxtable.com/mobilehelp/scr/0107.htm

 

http://www.foxtable.com/mobilehelp/scr/0110.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

下面是移动开发文档的内容,如何结合6楼的例子,当原有页面到达最下方,插入新页面呢?
如何在没有按钮的情况下,触发插入加载?

1、在"d:\web"目录下,建立一个子目录lib,在这个目录建立一个文本文件,文件名为"ajaxform.js",文件内容为:

fun_ction tongji(){
    v_ar re_sult = sub_mitAjaxForm('form1','',fal_se);
    docu_ment.get_ElementById("p1").inner_HTML=re_sult;
}

2、HttpReqquest事件代码:
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1",
"
销售统计")
            .AddSelect(
"
水平分组","水 平分组","产品|客户|雇员")
            .AddSelect(
"
垂直分组","垂直分组","产品|[客户]|雇员")
            
.AddSelect("统计列","统计列","数量|金额")
        
End With
        With wb.AddButtonGroup("form1","btg1",True)            ’这里怎么调整?
            .Add("btn1", 
"
统计", "button").Attribute= ""
        End With

        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>"
'
插入一个div,用于显示服务器返回的 页面
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>"
'
引入脚本文件
        e.WriteString(wb.Build)
    Case "tongji.htm"
        Dim wb As New weui
        ******
        Else
        ******
        End If
        e.WriteString(wb.Build)

End
 Select
[此贴子已经被作者于2017/3/26 17:45:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/27 0:19:00 [只看该作者]

参考5楼例子,不是弹出对话框了吗?直接执行你js的代码即可。

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

目标:页面滑动到底部加载新页面
页面:per_tayaoqing.htm,按5楼例子做了,打开此页面,滑动到底部没有插入新页面

内容多,担心帖子发布后,部分内容被屏蔽,所以同样内容,也放在记事本里,发上了
Dim e As RequestEventArgs = args(0)                             'TA邀请我
Select Case e.Path
    Case "per_tayaoqing.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<script src='./lib/jquery-1.9.1.js'></script>") '引入脚本文件
        With wb.AddTabBar("", "tb1", 1)                            '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
            .AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")
            .AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")
            .AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")
            .AddButton("bt4","我的","./images/d.png","/personal.htm")
            .Attribute = "style='height:55px'"
        End With
        Dim txt As String = "24岁,未婚,连云港,有红包"
        With wb.AddPanelGroup("","pg1","TA邀请我列表")
            '.Add("pn1","编号:20170322001",txt,"./images/a.png","http://www.foxtable.com") '超链接
            With .Add("pn2","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
            With .Add("pn3","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
            With .Add("pn4","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
            With .Add("pn5","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
            With .Add("pn6","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
            With .Add("pn7","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
        End With
        wb.AppendHTML("<script src='./lib/ajaxform_tayaoqing.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
End Select
这是js代码(例子中的jquery-1.9.1.js也放在文件夹下了):
function jiazai(){           //声明加载函数
    var result = submitAjaxForm('pg1','',false);
    document.getElementById("p1").innerHTML=result;
}
$(document).ready(function() {
            $(window).scroll(function() {
                //$(document).scrollTop() 获取垂直滚动的距离
                //$(document).scrollLeft() 这是获取水平滚动条的距离
                //if ($(document).scrollTop() <= 0) {
                    //alert("滚动条已经到达顶部为0"); 
                //}
                if ($(document).scrollTop() >= $(document).height() - $(window).height()) {
                    //alert("滚动条已经到达底部为" + $(document).scrollTop()); 
                  function jiazai()
                }
            });
        });
这是需要插入到底部的页面:p_tayaoqing.htm
Dim e As RequestEventArgs = args(0)                             'TA邀请我_辅助
Select Case e.path
Case "p_tayaoqing.htm"
        Dim wb As New weui
        Dim txt As String = "24岁,未婚,连云港,有红包"
        With wb.AddPanelGroup("","pg1","TA邀请我列表")
            '.Add("pn1","编号:20170322001",txt,"./images/a.png","http://www.foxtable.com") '超链接
            With .Add("pn10","邀请编号:2017032233001",txt,"./images/m.png") '带子链接
                .AddFoot("已发起:3天18时")
                .AddFoot("|状态:尚未决定","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build)
End Select
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1110ss.txt



 回到顶部
总数 43 1 2 3 4 5 下一页