Cláusula Take (Visual Basic)
Retorna um número especificado de elementos contíguos desde o início de uma coleção.
Sintaxe
Take count
Partes
count
Obrigatório. Um valor ou uma expressão que avalia o número de elementos da sequência a serem retornados.
Observações
A Take cláusula faz com que uma consulta inclua um número especificado de elementos contíguos desde o início de uma lista de resultados. O número de elementos a incluir é especificado pelo count parâmetro.
Você pode usar a Take cláusula com a Skip cláusula para retornar um intervalo de dados de qualquer segmento de uma consulta. Para fazer isso, passe o índice do primeiro elemento do intervalo para a Skip cláusula e o tamanho do intervalo para a Take cláusula. Neste caso, a Take cláusula deve ser especificada após a Skip cláusula.
Ao usar a Take cláusula em uma consulta, talvez também seja necessário garantir que os resultados sejam retornados em uma ordem que permita que a Take cláusula inclua os resultados pretendidos. Para obter mais informações sobre como ordenar os resultados da consulta, consulte Encomendar por cláusula.
Você pode usar a TakeWhile cláusula para especificar que apenas determinados elementos sejam retornados, dependendo de uma condição fornecida.
Exemplo
O exemplo de código a seguir usa a Take cláusula juntamente com a Skip cláusula para retornar dados de uma consulta em páginas. A função GetCustomers usa a Skip cláusula para ignorar os clientes na lista até o valor de índice inicial fornecido e usa a Take cláusula para retornar uma página de clientes a partir desse valor de índice.
Public Sub PagingSample()
Dim pageNumber As Integer = 0
Dim pageSize As Integer = 10
Dim customersPage = GetCustomers(pageNumber * pageSize, pageSize)
Do While customersPage IsNot Nothing
Console.WriteLine(vbCrLf & "Page: " & pageNumber + 1 & vbCrLf)
For Each cust In customersPage
Console.WriteLine(cust.CustomerID & ", " & cust.CompanyName)
Next
Console.WriteLine(vbCrLf)
pageNumber += 1
customersPage = GetCustomers(pageNumber * pageSize, pageSize)
Loop
End Sub
Public Function GetCustomers(ByVal startIndex As Integer,
ByVal pageSize As Integer) As List(Of Customer)
Dim customers = GetCustomerList()
Dim returnCustomers = From cust In customers
Skip startIndex Take pageSize
If returnCustomers.Count = 0 Then Return Nothing
Return returnCustomers
End Function
