以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【已解决】符号问题存在表格内可解决。[求助]我想在WebBrowser上达到这个效果,怎么做?不能点开。提示有误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135089)

--  作者:zto001
--  发布时间:2019/5/16 17:25:00
--  【已解决】符号问题存在表格内可解决。[求助]我想在WebBrowser上达到这个效果,怎么做?不能点开。提示有误
求助:我想在WebBrowser上达到这个效果,怎么做?不能点开。提示有误
http://www.w3school.com.cn/tiy/t.asp?f=html_poem




  Dim web = Forms("主窗口").controls("webbrowser1").basecontrol
    web.documentText ="<html> <head> <meta charset=""utf-8""> <style> #myImg { border-radius: 5px; cursor: pointer; transition: 0.3s; } #myImg:hover {opacity: 0.7;} .modal { display: none; position: fixed; z-index: 1; padding-top: 100px; left: 0; top: 0; width: 100%; height: 100%; overflow: auto; background-color: rgb(0,0,0); background-color: rgba(0,0,0,0.9); } .modal-content { margin: auto; display: block; width: 80%; max-width: 700px; } #caption { margin: auto; display: block; width: 80%; max-width: 700px; text-align: center; color: #ccc; padding: 10px 0; height: 150px; } .modal-content, #caption { -webkit-animation-name: zoom; -webkit-animation-duration: 0.6s; animation-name: zoom; animation-duration: 0.6s; } @-webkit-keyframes zoom { from {-webkit-transform: scale(0)} To {-webkit-transform: scale(1)} } @keyframes zoom { from {transform: scale(0.1)} To {transform: scale(1)} } .close { position: absolute; top: 15px; right: 35px; color: #f1f1f1; font-size: 40px; font-weight: bold; transition: 0.3s; } .close:hover, .close:focus { color: #bbb; text-decoration: none; cursor: pointer; } @media only screen And (max-width: 700px){ .modal-content { width: 100%; } } </style> </head> <body> <h2>图片模态框</h2> <p>本实例演示了如何结合 CSS 和 JavaScript 来一起渲染图片.</p><p> 首先,我们使用 CSS 来创建 modal 窗口 (对话框), 默认是隐藏的.<p> <p>然后,我们使用 JavaScript 来显示模态窗口,当我们点击图片时,图片会在弹出的窗口中显示:</p> <img id=""myImg"" src=""http://www.runoob.com/wp-content/uploads/2016/04/img_lights.jpg"" alt=""Northern Lights, Norway"" width=""300"" height=""200""> <div id=""myModal"" class=""modal""> <span class=""close"">×</span> <img class=""modal-content"" id=""img01""> <div id=""caption""></div> </div> <script> var modal = document.getElementById(\'myModal\'); var img = document.getElementById(\'myImg\'); var modalImg = document.getElementById(""img01""); var captionText = document.getElementById(""caption""); img.onclick = function(){ modal.style.display = ""block""; modalImg.src = this.src; modalImg.alt = this.alt; captionText.innerHTML = this.alt; } var span = document.getElementsByClassName(""close"")[0]; span.onclick = function() { modal.style.display = ""none""; } </script> </body> </html>"

[此贴子已经被作者于2019/5/22 9:32:15编辑过]

--  作者:有点甜
--  发布时间:2019/5/16 19:32:00
--  

你为什么不保存为xxx.htm文件,然后直接显示?如

 

web.navigate(projectpath & "xxx.htm")


--  作者:zto001
--  发布时间:2019/5/17 9:40:00
--  
我需要实时更新代码显示内容,保存不太好用吧
--  作者:有点甜
--  发布时间:2019/5/17 9:55:00
--  
请单独贴出html代码
--  作者:zto001
--  发布时间:2019/5/17 10:03:00
--  
不好意思发错网址了


代码如网址

--  作者:有点甜
--  发布时间:2019/5/17 10:21:00
--  

把代码保存在表C第一列的某一行,然后我测试正常

 


Dim web = e.Form.controls("webbrowser1").basecontrol
web.documentText = Tables("表C").Rows(0)("第一列")