以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  文本输入框.value，能设置链接吗？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101627)
--  作者：zhangjian222200
--  发布时间：2017/6/4 13:31:00
--  文本输入框.value，能设置链接吗？
With wb.AddInputGroup("form1","ipg1","TA的资料")
    With .AddInput("jcxx","有关于TA","text")
        .Value = xingb & "." & nial & "岁." & xuel & "." & huny & "举报" ’可以给举报，能设置链接吗？
        .Readonly = True
    End With
--  作者：有点色
--  发布时间：2017/6/4 16:13:00
--  

 你需要加入标签，如

 

wb.InsertHTML("<div>123456 <a href=""test.htm"">举报</a></div>")
--  作者：zhangjian222200
--  发布时间：2017/6/4 17:10:00
--  
With wb.AddInputGroup("form1","ipg1","TA的资料")
    With .AddInput("jcxx","有关于TA","text")
        .Value = xingb & "." & nial & "岁." & xuel & "." & huny & "." & " <a href=\'\'test.htm\'\'>举报</a> "
        .Readonly = True
    End With

直接用楼上办法是可以实现功能，但是美观不够

如果能在.value内直接给个链接，是最好的

如果不行，就算了，还麻烦给个结果，谢了
[此贴子已经被作者于2017/6/4 17:10:46编辑过]
--  作者：有点色
--  发布时间：2017/6/4 21:23:00
--  

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","TA的资料")
            With .AddInput("jcxx","有关于TA","text")
                .Value = "33434"
                .attribute = "style=\'width:70%\'"
                .Readonly = True
            End With
        End With
        wb.AppendHTML("<script>var input = document.getElementById(\'jcxx\');input.parentNode.innerHTML = input.parentNode.innerHTML + ""<a href=\'test.htm\'>举报</a>""</script>")
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：zhangjian222200
--  发布时间：2017/6/5 16:32:00
--  
wb.AppendHTML("<script>var input = document.getElementById(\'jcxx\');input.parentNode.innerHTML = input.parentNode.innerHTML + ""<a href=\'test.htm?tbh=bianh\'>举报</a>""</script>") ’bianh是变量，如何设置？
--  作者：有点色
--  发布时间：2017/6/5 16:36:00
--  
wb.AppendHTML("<script>var input = document.getElementById(\'jcxx\');input.parentNode.innerHTML = input.parentNode.innerHTML + ""<a href=\'test.htm?tbh=" & bianh & "\'>举报</a>""</script>")