以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 点击拨号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107568) |
-- 作者:lshshlxsh -- 发布时间:2017/9/30 15:07:00 -- 点击拨号 Dim e As RequestEventArgs = args(0) Select Case e.Path Case "pp.htm" Dim wb As New WeUI Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道." With wb.AddPanelGroup("","pg1","图文组合列表") .Add("pn1","标题一",txt,"./images/button.png").Attribute = """ With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接 .AddFoot("文字来源") .AddFoot("时间") .AddFoot("|其他信息","http://www.foxtable.com") End With End With \'dim a as string ="http://www.foxtable.com" Dim a As String ="<a href=" & """tel:10086""" & " data-ignore=" & """true""" & " >" & "</a>" With wb.AddDialog("","dlg1", "拨号办理","您确定要拨号吗?") .AddButton("btnOK","拨号","tel:10086") .AddButton("btnOK1","拨号1",a) End With e.WriteString(wb.Build) \'生成网页 End Select 请问一下为什么我点击拨号1 没有 出现拨号如图所示 取到一个空白页面了 [此贴子已经被作者于2017/9/30 15:08:36编辑过]
|
-- 作者:有点蓝 -- 发布时间:2017/9/30 15:25:00 -- js拨号要这样用:https://zhidao.baidu.com/question/455762432046249965.html 增加js函数 function dial(no){ 代码改改 .AddButton("btnOK","拨号","botton").Attribute = "onclick=""dial(\'10086\')""" [此贴子已经被作者于2017/9/30 15:25:06编辑过]
|
-- 作者:lshshlxsh -- 发布时间:2017/9/30 15:30:00 -- OK 谢谢 |