- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]弹框 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151811)
-- 发布时间：2020/7/3 21:05:00
-- [求助]弹框
wb.InsertHTML("form3","<script language=\'javascript\'>alert(\'请看提示!\')</script>")
以上代码，设置在网页中，一打开网页，马上弹框。
请问，以上的弹框，能不能使用WEUI的提示框，比如
http://www.foxtable.com/mobilehelp/topics/0102.htm
此主题相关图片如下：1593781435(1).png
-- 发布时间：2020/7/4 9:53:00
--
参考：http://www.foxtable.com/mobilehelp/topics/0102.htm
wb.AppendHTML("<script language=\'javascript\'>showDialog(\'dlg1\',\'恭喜\',\'恭喜您抽中大奖,记得及时领奖哦!\')</script>")
-- 发布时间：2020/7/11 23:12:00
--
谢谢
-- 发布时间：2020/7/14 21:48:00
--
@有点蓝
参考：http://www.foxtable.com/mobilehelp/topics/0102.htm
wb.AppendHTML("")
wb.AppendHTML("")
我是放在网页上，一打开网页就弹出框，不行啊，使用alert(\'弹出框\')就可以
-- 发布时间：2020/7/14 21:56:00
--
贴出完整代码，或者上传实例。
-- 发布时间：2020/7/14 23:02:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","")
wb.AppendHTML("form1","<script language=\'javascript\'>showDialog(\'dlg1\',\'恭喜\',\'恭喜您抽中大奖,记得及时领奖哦!\')</script>")
With wb.AddInputGroup("form1","ipg1")
.Attribute = "style=\'margin-top:5px\'"
.AddInput("xm","户名","text")
.AddInput("pw","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
以上代码出现错误提示：从字符串“<script language=\'javascript\'>sh”到类型“Boolean”的转换无效。输入字符串的格式不正确。
-- 发布时间：2020/7/14 23:22:00
--
1、先看懂AppendHTML用法：http://www.foxtable.com/mobilehelp/topics/0061.htm，和InsertHTML不是一回事，不要乱用：http://www.foxtable.com/mobilehelp/topics/0097.htm
-- 发布时间：2020/7/14 23:55:00
--
我问问题的时候是用InsertHTML的
但后来看了你的回复是用AppendHTML，所以才跟着你用
而且我使用过InsertHTML，也是不行的
你的意思是要添加以下代码吗
With wb.AddDialog("","dlg1", "删除确认","您确定要删除当前记录吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定","./delete.htm?id=12")
End With
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","确定","./delete.htm?id=12")
End With
[此贴子已经被作者于2020/7/14 23:57:04编辑过]
-- 发布时间：2020/7/15 0:03:00
--
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.AddForm("","form1","")
wb.InsertHTML("form1","<script language=\'javascript\'>show(\'dlg1\')</script>")
With wb.AddDialog("","dlg1", "提示","您的订单正在派送,请注意查收!")
.AddButton("btnOK","确定").Attribute = """
End With
With wb.AddInputGroup("form1","ipg1")
.Attribute = "style=\'margin-top:5px\'"
.AddInput("xm","户名","text")
.AddInput("pw","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
我把代码添加了对话框，以上代码也是不行
-- 发布时间：2020/7/15 8:33:00
--
wb.AppendHTML("<script language=\'javascript\'>show(\'dlg1\')</script>")