以文本方式查看主题

-  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=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 没有 出现拨号如图所示  取到一个空白页面了



图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/9/30 15:08:36编辑过]

--  作者:有点蓝
--  发布时间:2017/9/30 15:25:00
--  
js拨号要这样用:https://zhidao.baidu.com/question/455762432046249965.html

增加js函数
function dial(no){
window.location.href = \'tel://\' + no;

}
代码改改
.AddButton("btnOK","拨号","botton").Attribute = "onclick=""dial(\'10086\')"""
[此贴子已经被作者于2017/9/30 15:25:06编辑过]

--  作者:lshshlxsh
--  发布时间:2017/9/30 15:30:00
--  
OK 谢谢