点击拔打电话 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击拔打电话

共有2685人关注过本帖树形打印复制链接主题：点击拔打电话

qazlinle6

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

点击拔打电话 发帖心情

Post By：2021/7/22 9:47:00 [只看该作者]

此主题相关图片如下：qq浏览器截图20210722094612.png

可不可以后面弄个直接点击拔打电话

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/22 9:51:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106829

qazlinle6

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/22 10:05:00 [只看该作者]

.AddInput("会员电话","电话","text").Value = pr("会员电话")

什么改成这样

.Add("ls5","拨打电话", "10086", "tel:10086")

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/22 10:16:00 [只看该作者]

试试改为AddInputCell

  With .AddInputCell("ic4") '通过InputCell增加输入框
                .AddLabel("lsj","会员电话",0) '增加标签,0显示在左边
                .AddInput("sj",pr("会员电话"),1) '增加输入框,1表示显示在中间
                .AddVcodeButton("hym","<a href='tel:" & pr("会员电话") & "'>拨打</a>",2) '增加获取验证码按钮,2表示显示在右边

End With

qazlinle6

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/22 10:37:00 [只看该作者]

此主题相关图片如下：qq浏览器截图20210722103643.png

没用

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/22 10:44:00 [只看该作者]

那就只能使用按钮

  With wb.AddButtonGroup("form1","btngrp1",False)
                With .Add("btn3", "自定义", "button") '自定义按钮
                    .Attribute = "onclick=""location='tel:" & pr("会员电话") & "'"""
                End With
            End With

qazlinle6

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/7/22 10:57:00 [只看该作者]

此主题相关图片如下：qq浏览器截图20210722105553.png

通话按妞可以放在电话下面不

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/22 11:04:00 [只看该作者]

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","登录")
            .AddInput("xm","户名","text")
        End With

  With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With

  With wb.AddInputGroup("form1","ipg2","登录")
            .AddInput("pw","密码","password")
        End With

        e.WriteString(wb.Build) '生成网页
End Select