如何实现：想点击按钮，对话框消失 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim fubiaoti As String = "发布物品!或看看会员中心!" '定义,副标题

sb.AppendLine("<div class='weui_dialog_confirm' id='dlg5' name='dlg5'>")

sb.AppendLine("<div class='weui_mask'></div>")

sb.AppendLine("<div class='weui_dialog'>")

sb.AppendLine("<div class='weui_dialog_hd'>")

sb.AppendLine("<strong class='weui_dialog_title'>物品不足补充示例物品展示</strong>")

sb.AppendLine("</div>")

sb.AppendLine("<div class='weui_dialog_bd'>" & fubiaoti & "</div>")

sb.AppendLine("<div class='weui_dialog_ft'>")

sb.AppendLine("<a id='btnn5-0' name='btnn5-0' Type='button' class='weui_btn_dialog primary' href='javascript:;'>继续看看</a>")

sb.AppendLine("<a id='btnn5-1' name='btnn5-1' Type='button' class='weui_btn_dialog default' href='/per_fabu.htm'>发布物品</a>")

sb.AppendLine("</div>")

想点击上述“继续看看”按钮，对话框消失。但是，上面代码在微信web开发工具，实际效果，并不会消失，点击后，而是始终在，不消失。

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

主题：如何实现：想点击按钮，对话框消失