以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] WEUI 需要个弹窗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129002)
--  作者：goodhawk
--  发布时间：2018/12/19 18:36:00
--  [求助] WEUI 需要个弹窗
我用weui做了个合同签约的页面， 我需要有个链接， 点击阅读合同详情， 
那么在WEUI的界面上， 怎么弹出来一个窗体，有参考网上，说是应该类似如下写，但是写完不起作用， 
有建议的方式的不？

网络上的地址是这个：http://jqweui.com/extends#popup

        wb.InsertHTML("form1","<div class=\'weui_cells weui_cells_form\' style=\'text-align:center\'>")
        wb.InsertHTML("form1","<label for=\'weuiAgree\' class=\'weui-agree\'>")
        wb.InsertHTML("form1","<input id=\'weuiAgree\' type=\'checkbox\' class=\'weui-agree__checkbox\' checked=\'true\'>")
        wb.InsertHTML("form1","<span class=\'weui-agree__text\'>已阅读并同意<a href=\'javascript:void(0);\' class=\'open-popup\' data-target=\'#ht\'>《货物运输合同》</a></span>")
        wb.InsertHTML("form1","</label></div>")
        With wb.AddButtonGroup("form1","btg1",True)            
            .Add("btn1", "确定", "submit")
        End With
wb.InsertHTML("<div id=\'ht\' class=\'weui-popup__container\' style=\'display: none;\'>")
wb.InsertHTML("  <div class=\'weui-popup__overlay\'></div>")
wb.InsertHTML("  <div class=\'weui-popup__modal\'>")
wb.InsertHTML("    你的内容放在这里...")
wb.InsertHTML("  </div>")
wb.InsertHTML("</div>")

[此贴子已经被作者于2018/12/19 18:42:30编辑过]
--  作者：有点甜
--  发布时间：2018/12/19 18:47:00
--  

不需要这样，直接用dialog即可，如

 

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

 

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

 
--  作者：goodhawk
--  发布时间：2018/12/19 18:55:00
--  
@有点甜， 

我的合同详情很大， 有3页的word，这个不太适合吧
--  作者：有点甜
--  发布时间：2018/12/19 19:06:00
--  

我这样测试没问题

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        With wb.AddButtonGroup("","bng2",True)
            .Add("btn1","Dialog1").Attribute = """
        End With
        With wb.AddDialog("","dlg1", "提示","您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订您的订<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p><p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123<p>123单正在派送,请注意查收!")
            .AddButton("btnOK","确定").Attribute = """
        End With
        wb.InsertHTML("<style>.weui_dialog_bd {height: 200px;overflow: auto;} .weui_dialog{width:50%}</style>")
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：goodhawk
--  发布时间：2018/12/19 19:42:00
--  
测试了一下， 的确大文章能显示， 但是显示有问题：

1. 通篇只能所有的文字都怼在一起了。

2、在微信端扫描之后，没法滚动屏幕， 只能看一屏， 因为我是一个 运输服务合同， 所以有3张的word的纸张的内容。

额外一个问题， 为啥现在论坛在google浏览器下无法上传附件了？
--  作者：有点甜
--  发布时间：2018/12/19 20:58:00
--  

1、具体做个实例，或者贴出可以执行的代码测试。

 

2、请你看懂4楼代码的意思，我测试没问题。