以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]showDialog可以独立运行么？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=100113)
--  作者：新福星
--  发布时间：2017/5/5 6:19:00
--  [求助]showDialog可以独立运行么？

SelectCase e.Path
Case "test.htm"
Dim wb As NewWeUI
With wb.AddButtonGroup("","bng2",True)
.Add("btn1","内容1").Attribute = "FONT-FAMILY: 宋体; COLOR: brown">恭喜\',\'恭喜您抽中大奖,记得及时领奖哦!\')"""
.Add("btn2","内容2").Attribute = "FONT-FAMILY: 宋体; COLOR: brown">成功\',\'增加记录成功,单击确定继续增加!\')"""
End With
With wb.AddDialog("","dlg1","","")
.AddButton("btnOK","确定")
EndWith
e.WriteString(wb.Build)\'生成网页
End Select

 

 

上面示例中 showDialog(\'dlg1\',\'恭喜\',\'恭喜您抽中大奖,记得及时领奖哦!\')是通过按钮触发的。可不可以不通过按钮直接运行呢？

 

 

 
--  作者：有点色
--  发布时间：2017/5/5 8:33:00
--  

 你通过什么方式都可以的，这个函数是js函数，你需要在js里面运行才可以。

 

 你可以给控件绑定任意事件，如果是页面生成就弹出，就写代码

 

 wb.InsertHTML("<script>showDialog(\'dlg1\',\'恭喜\',\'恭喜您抽中大奖,记得及时领奖哦!\')</script>")