- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 基于panel做页面到底部自动加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98002)
-- 发布时间：2017/3/22 14:06:00
-- 基于panel做页面到底部自动加载
想基于foxtable高级版的panel功能，做一个页面，支持手机屏幕上滑加载10行
因为官方不支持上滑，自己不会，所以想找个高手帮做一下这个功能，技术上可行么？
此主题相关图片如下：qq图片2017888.png
[此贴子已经被作者于2017/3/29 9:47:42编辑过]
-- 发布时间：2017/3/22 14:17:00
--
参考
http://m.webkfa.com/html5/html5772.html
-- 发布时间：2017/3/22 14:21:00
--
引用jquery来做
http://blog.csdn.net/sbangm/article/details/42743091
-- 发布时间：2017/3/22 14:21:00
--
http://justcoding.iteye.com/blog/2215557
[此贴子已经被作者于2017/3/22 14:21:29编辑过]
-- 发布时间：2017/3/22 14:40:00
--
mark 简单判断滚动条
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:jquery使用.zip |
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：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;
}
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
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编辑过]
-- 发布时间：2017/3/27 0:19:00
--
参考5楼例子，不是弹出对话框了吗？直接执行你js的代码即可。
-- 发布时间：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
