以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  使用电话号码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106829)
--  作者：刘林
--  发布时间：2017/9/16 10:15:00
--  使用电话号码
请问老师用weui生成表格中有一列是电话号码， 我想在菜单中增加使用选择行的电话直接拨打电话，谢谢
--  作者：有点蓝
--  发布时间：2017/9/16 10:45:00
--  
参考：http://blog.csdn.net/cheekis/article/details/41869953

例


Select Case e.Path
    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddListGroup("", "lsg1","简单列表")
            .Add("ls1", "新浪主页")
            .Add("ls2", "网易主页")
        End With
        With wb.AddListGroup("", "lsg3", "增加跳转的列表")
            .Add("ls5","拨打电话", "10086", "tel:10086")
        End With

        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：刘林
--  发布时间：2017/9/16 16:16:00
--  
老师，因为生成的表格中有个电话码列，我是想增加个菜单“打电话”。双击该行直接选打电话号码就调用到拨号界面，请帮写一下这个代码，你发的个链接看不懂。谢谢
--  作者：有点蓝
--  发布时间：2017/9/16 16:40:00
--  
贴出你的代码
--  作者：刘林
--  发布时间：2017/9/16 17:59:00
--  

With wb.AddTable("","Table1")
    .attribute ="table border=\'1\'style = \'text-align:center;line-height: 120% \'"
    \' .PageNumber = page  \'设置页码
    .ActiveSheet = "menu"  \'指定菜单
    .Primarykey = "_Identify" \'指定主键,只要是能唯一区分行的列即可,并非一定要表的实际主键.Functions.Execute("edit")
    .CreateFromDataTable(dt, False,"","","姓名","角色","班级","电话")
End With
\'设计菜单
With wb.AddActionSheet("","menu")
    .Add("mnuEdit", "编辑信息").Attribute =""
    .Add("mnuEdit", "电话联系","tel:13696057348")
    wb.AppendCookie("XSsfzh",e.GetValues("jsoid"))
    .Add("mnuDelete", "删除信息").Attribute ="""
    .Add("mnuback","返回","",True).Attribute = ""
    
End With
With wb.AddDialog("","dlg1", "你确定要删除当前老师信息吗?","如果是调出本校请用调出处理")
    .AddButton("btnCancel","取消").Kind = 1
    .AddButton("btnOK","确定").Attribute = ""
End With
wb.AppendHTML("<script src=\'./lib/order.js\'></script>")  \'引入脚本文件
e.WriteString(wb.Build)
红色的tel:13696057348取选定表中的电话列的值
--  作者：有点甜
--  发布时间：2017/9/17 16:48:00
--  

参考代码

 

    Case "test.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","1008611","中国北京") \'数据
            .body.AddRow("技术部","李四","38","10086","中国上海")
        End With
        With wb.AddButtonGroup("","btg",True)
            .Add("btn1","单击显示上拉菜单").Attribute = "onclick=""show(\'s1\')"""
        End With
        With wb.AddActionSheet("","s1")
            .Add("menu3", "菜单项目3").Attribute = "onclick=""location=\'tel:\' + table1.rows[table1.rowSel].cells[3].innerHTML"""
            .Add("menu4","取消","",True)
        End With
        e.WriteString(wb.Build)
--  作者：blackzhu
--  发布时间：2018/10/24 17:04:00
--  
这种有没有什么办法通过HttpClient去拨打电话?

我们现在的子配 这个有点太复杂,我想通过web服务或者类似于我们那个通过软件发送短信的方式来直接拨打电话.
--  作者：有点甜
--  发布时间：2018/10/24 17:24:00
--  
以下是引用blackzhu在2018/10/24 17:04:00的发言：
这种有没有什么办法通过HttpClient去拨打电话?

我们现在的子配 这个有点太复杂,我想通过web服务或者类似于我们那个通过软件发送短信的方式来直接拨打电话.

 

不理解你的意思。用httpclient实现打电话是不可能的，涉及到音频的实时传输而且不能中断的。

 

用电脑打电话，你的电脑必须接入硬件设备，才行的。

 

你去询问对应的设备厂商，看有没有适合你需求的那种设备吧。