Dim e As RequestEventArgs = args(0)
Select Case e.Path
Case "pp.htm"
Dim wb As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","图文组合列表")
.Add("pn1","标题一",txt,"./images/button.png").Attribute = """
With .Add("pn2","标题二",txt,"./images/search.png") '带子链接
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
End With
End With
'dim a as string ="http://www.foxtable.com"
Dim a As String ="<a href=" & """tel:10086""" & " data-ignore=" & """true""" & " >" & "</a>"
With wb.AddDialog("","dlg1", "拨号办理","您确定要拨号吗?")
.AddButton("btnOK","拨号","tel:10086")
.AddButton("btnOK1","拨号1",a)
End With
e.WriteString(wb.Build) '生成网页
End Select
请问一下为什么我点击拨号1 没有 出现拨号如图所示 取到一个空白页面了
此主题相关图片如下：222.png
[此贴子已经被作者于2017/9/30 15:08:36编辑过]
加好友 
发短信
Post By：2017/9/30 15:07:00 [只看该作者]
