Có TRÊN điều hành trong các chức năng VB.net như một trong SQL

Question

Có bất kỳ chức năng hoặc điều hành như:

 If RoleName in ("Val1", "Val2" ,"Val2") Then 
     'Go 
    End If 

Thay vì:

If RoleName = "Val1" Or RoleName = "Val2" Or RoleName = "Val2" Then 
     'Go 
    End If 

Answer 1

Hãy thử sử dụng một mảng và sau đó bạn có thể sử dụng chứa tiện ích:

Dim s() As String = {"Val1", "Val2", "Val3"} 
If s.Contains(RoleName) Then 
    'Go  
End If 

Hoặc nếu không có sự dòng tuyên bố:

If New String() {"Val1", "Val2", "Val3"}.Contains(RoleName) Then 
    'Go 
End If 

Từ OP, nếu Có phần mở rộng không có sẵn, bạn có thể thử này:

If Array.IndexOf(New String() {"Val1", "Val2", "Val3"}, RoleName) > -1 Then 
    'Go 
End If 

Answer 2

Bạn cũng có thể sử dụng một tuyên bố Select..Case:

Select Case RoleName 
    Case "Val1", "Val2", "Val3" 
     ' Whatever 
End Select 

Answer 3

Bạn có thể sử dụng Có như bởi LarsTech, nhưng cũng rất dễ dàng để thêm phương thức mở rộng In:

Public Module Extensions 

    <Extension()> _ 
    Public Function [In](Of T)(value As T, ParamArray collectionValues As T()) As Boolean 
     Return collectionValues.Contains(value) 
    End Function 

End Module 

Bạn có thể sử dụng nó như thế này:

If RoleName.In("Val1", "Val2", "Val3") Then 
    'Go 
End If