以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddActionSheet的BUG吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97094)
--  作者：zhy400137
--  发布时间：2017/3/6 10:30:00
--  AddActionSheet的BUG吗？
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
 e.WriteFile(fl)
Return \'这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
 Dim wb As New WeUI
With wb.AddButtonGroup("","btg",True)
.Add("btn1","单击显示上拉菜单").Attribute = """
 End With
 With wb.AddActionSheet("","s1")
.Add("menu1", "菜单项目1", "http://www.foxtable.com/")
.Add("menu2", "菜单项目2")
.Add("menu3", "菜单项目3").Attribute = ""
.Add("menu4","取消","",True)
 End With
 e.WriteString(wb.Build)
End Select

这段代码可以显示按钮，但点击后不能调出菜单，为什么，帮助里原样COPY的？
[此贴子已经被作者于2017/3/6 10:44:31编辑过]
--  作者：狐狸爸爸
--  发布时间：2017/3/6 10:56:00
--  
文件发上来测试
--  作者：zhy400137
--  发布时间：2017/3/6 10:57:00
--  
我只是原样复制了帮助中的代码，没有过任何改动，狐爸。
--  作者：zhy400137
--  发布时间：2017/3/6 11:01:00
--  
之前用的是小米手机的自带浏览器，换了个QQ浏览器，正常了~！呃……。
--  作者：有点色
--  发布时间：2017/3/6 11:08:00
--  

 我测试没问题。你这样测试 http://www.foxtable.com/mobilehelp/scr/0244.htm

 
--  作者：zhy400137
--  发布时间：2017/3/6 11:10:00
--  
我用手机实际测试，在小米的浏览器下，确实是有问题的，换了个手机版的QQ浏览器，就是OK的。
--  作者：zhy400137
--  发布时间：2017/3/6 11:13:00
--  
UC浏览器也可以！