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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107722 积分：547943 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107722 积分：547943 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107722 积分：547943 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107722 积分：547943 威望：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