Foxtable(狐表)用户栏目专家坐堂 → 简化web代码


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

主题:简化web代码

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


加好友 发短信
等级:四尾狐 帖子:806 积分:6191 威望:0 精华:0 注册:2014/3/23 23:02:00
简化web代码  发帖心情 Post By:2019/7/20 21:15:00 [只看该作者]

目的:静态网页列表中选择网页名,然后打开该静态网页。现在,需要2两个步骤:
1. 选择“文件名”,使用“确定”按钮提交“文件名”:

wb.AddForm("page1","form2","qar2d.htm")

        With wb.AddInputGroup("form2","ipg2","2D动画")

            .AddSelect("filename","动画","|" & DataTables("动画汇总").GetComboListString("文件名"))  '例如选择文件名acs

        End With

        With wb.AddButtonGroup("form2","btg2",True)

            .Add("btn2", "确定", "submit")          '提交文件名“acs

        End With


此主题相关图片如下:选择页面.png
按此在新窗口浏览图片
2.跳转到
网页qar2d.htm,通过“重新筛选”按钮和合成网页名,打开所选择网页,

    Case "qar2d.htm"

        Dim flt As String = e.PostValues("filename") & ".html"  '合成网页名=选择文件名+.html,例如:acs.html

        With wb.AddButtonGroup("","btg1",True)

            .Add("btn1", "重新筛选", "",flt)  打开所选择网页acs.html

        End With


此主题相关图片如下:重新筛选.png
按此在新窗口浏览图片

能否简化代码,合并成一个步骤,获取所选择的文件名,直接通过“确定”按钮实现打开所选网页,谢谢!  

[此贴子已经被作者于2019/7/22 10:05:56编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/21 20:03:00 [只看该作者]

没看懂,截图说明一下。


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


加好友 发短信
等级:四尾狐 帖子:806 积分:6191 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2019/7/22 10:09:00 [只看该作者]

目前的问题在于如不通过第一步submit按钮就不能获得所选择文件名,已重新编辑,见上,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/22 10:53:00 [只看该作者]


wb.AddForm("page1","form2","qar2d.htm")
With wb.AddInputGroup("form2","ipg2","2D动画")
    .AddSelect("filename","动画","|" & DataTables("动画汇总").GetComboListString("文件名"))  '例如选择文件名acs
End With
With wb.AddButtonGroup("form2","btg2",True)
    .Add("btn2", "确定", "button").Attribute = "onclick=""location=document.getElementById('filename').value + '.htm'"""          '提交文件名"acs"
End With

 回到顶部