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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击拔打电话  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170330)

--  作者：qazlinle6
--  发布时间：2021/7/22 9:47:00
--  点击拔打电话

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

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

--  作者：有点蓝
--  发布时间：2021/7/22 9:51:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=106829

--  作者：qazlinle6
--  发布时间：2021/7/22 10:05:00
--

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

什么改成这样
.Add("ls5","拨打电话", "10086", "tel:10086")

--  作者：有点蓝
--  发布时间：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
--  发布时间：2021/7/22 10:37:00
--

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

没用

--  作者：有点蓝
--  发布时间：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
--  发布时间：2021/7/22 10:57:00
--

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

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

--  作者：有点蓝
--  发布时间：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

--  作者：qazlinle6
--  发布时间：2021/7/22 11:56:00
--
还是这个好点

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

拨打什么点了没反应??????

[此贴子已经被作者于2021/7/22 15:27:29编辑过]

--  作者：qazlinle6
--  发布时间：2021/7/22 15:43:00
--

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

拨打什么点了没反应??????