比如:
有权限才显示
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