比如：
有权限才显示
With wb.AddGrid("","g1")
If 有权限
.Add("c1","Button", "./images/button.png").Attribute = ""
End If
.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
End With
或者使用不同图片，去掉点击代码和跳转的地址
With wb.AddGrid("","g1")
If 有权限
.Add("c1","Button", "./images/button.png").Attribute = ""
Else
.Add("c1","Button", "./images/button灰色.png")
End If
.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
End With
加好友 
发短信
Post By：2020/6/30 16:04:00 [显示全部帖子]
