比如
Select case _UserName
Case "张三", "李四", "王五"
if e.NewIndex <> 1 AndAlso e.newIndex <> 3 then e.Cancel = True
Case "周六", "孙七"
if e.NewIndex <> 4 then e.Cancel = True
Case Else
e.Cancel = True
End Select
加好友 
发短信
Post By：2015/3/16 18:09:00 [显示全部帖子]
