以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  电话拨号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159574)
--  作者：刘林
--  发布时间：2020/12/30 21:58:00
--  电话拨号
 Dim In5=.AddInput("联系电话","联系电话:","Text")
    In5.readonly = True
    In5.value=E.GetValues("lxdh")
    In5.Attribute=""
老师，我想在移动端点电话号码拨号，这句如何写，谢谢
--  作者：有点蓝
--  发布时间：2020/12/31 8:57:00
--  
js函数

    function callphone(hm){    
        window.location.href = "tel:" + hm;
    }

使用按钮点击

            With .AddInputCell("ic4") \'通过InputCell增加输入框
                .AddLabel("lsj","手机",0) \'增加标签,0显示在左边
                .AddInput("sj","text",1) \'增加输入框,1表示显示在中间
                .AddVcodeButton("hym","获取验证码",2).Attribute="onclick=""callphone(\'10086\')"""
            End With