基于panel做页面到底部自动加载 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想基于foxtable高级版的panel功能，做一个页面，支持手机屏幕上滑加载10行

因为官方不支持上滑，自己不会，所以想找个高手帮做一下这个功能，技术上可行么？

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

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

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

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

mark 简单判断滚动条

下载信息 [文件大小：下载次数： ]
点击浏览该文件:jquery使用.zip

楼上的文档，\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编辑过]

方法二：生成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

下面是移动开发文档的内容，如何结合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编辑过]

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

目标：页面滑动到底部加载新页面

页面：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

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

e.WriteString(wb.Build)

End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1110ss.txt

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