none
Função que Retorna um Array RRS feed

  • Pergunta

  • Olá a todos.

    Estou montando um sistema em VB 2008 - Windows Form.

    Preciso criar uma função que retorne um array com 4 indices.

     

    Gostaria de saber como faço para declarar uma função que retorne um array do tipo inteiro.

    E como passo os valores para este array na função.

     

    E como chamar e utilizar os valores retornados por este array em outra função ?

     

    Alguém poderia me auxiliar ?

    Desde já obrigado.

     

     

     

     

    terça-feira, 8 de fevereiro de 2011 12:30

Respostas

  • Claudinei segue link com informações sobre array no vb.net

    http://www.macoratti.net/vbn_arr1.htm

    Exemplo de função

    Public Function funcao(parametro As Integer) As Integer()
    End Function

    Abraço

    Estevam


    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    terça-feira, 8 de fevereiro de 2011 13:14
  • Você pode fazer assim:

    Private Function Vetor(Byval valor1 As Integer, Byval valor2 As Integer, _
          Byval valor3 As Integer, Byval valor4 As Integer) As Integer()
      Dim vet(3) As Integer
      Vet(0) = valor1
      Vet(1) = valor2
      vet(2) = valor3
      vet(3) = valor4
      Return vet
    End Function
    'Ou
    Private Function Array(Byval valor1 As Integer, Byval valor2 As Integer, _
          Byval valor3 As Integer, Byval valor4 As Integer) As ArrayList
      Dim arr As New ArrayList
      arr.Add(valor1)
      arr.Add(valor2)
      arr.Add(valor3)
      arr.Add(valor4)
      Return arr
    End Function
    

    Eu particulamente prefiro a segunda opção(com ArrayList)

    Por ser mais facil a manipulação, como remover item, adicionar, etc.

    Para receber essa função faça assim:

    Dim vet() As Integer = Vetor(1, 2, 3, 4)
    'Ou
    Dim arr As New ArrayList
    arr = Array(1, 2, 3, 4)
    

     


    Att. Osni
    terça-feira, 8 de fevereiro de 2011 13:24

Todas as Respostas

  • Claudinei segue link com informações sobre array no vb.net

    http://www.macoratti.net/vbn_arr1.htm

    Exemplo de função

    Public Function funcao(parametro As Integer) As Integer()
    End Function

    Abraço

    Estevam


    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    terça-feira, 8 de fevereiro de 2011 13:14
  • Você pode fazer assim:

    Private Function Vetor(Byval valor1 As Integer, Byval valor2 As Integer, _
          Byval valor3 As Integer, Byval valor4 As Integer) As Integer()
      Dim vet(3) As Integer
      Vet(0) = valor1
      Vet(1) = valor2
      vet(2) = valor3
      vet(3) = valor4
      Return vet
    End Function
    'Ou
    Private Function Array(Byval valor1 As Integer, Byval valor2 As Integer, _
          Byval valor3 As Integer, Byval valor4 As Integer) As ArrayList
      Dim arr As New ArrayList
      arr.Add(valor1)
      arr.Add(valor2)
      arr.Add(valor3)
      arr.Add(valor4)
      Return arr
    End Function
    

    Eu particulamente prefiro a segunda opção(com ArrayList)

    Por ser mais facil a manipulação, como remover item, adicionar, etc.

    Para receber essa função faça assim:

    Dim vet() As Integer = Vetor(1, 2, 3, 4)
    'Ou
    Dim arr As New ArrayList
    arr = Array(1, 2, 3, 4)
    

     


    Att. Osni
    terça-feira, 8 de fevereiro de 2011 13:24
  • Olá Claudinei!

    Houve algum progresso com os exemplos mencionados?

    att;


    Eder Costa - LATAM Forum Support Engineer
    Microsoft Corporation
    quinta-feira, 10 de fevereiro de 2011 14:48
    Moderador
  • Desculpa a demora no retorno...

    Mas deu certo sim Eder Costa.

     

    Obrigado a todos que se dispuseram a me ajudar.

     

    Problema resolvido.

     

    quinta-feira, 10 de fevereiro de 2011 14:53
  • Obrigado amigo!
    Eder Costa - LATAM Forum Support Engineer
    Microsoft Corporation
    quinta-feira, 10 de fevereiro de 2011 14:56
    Moderador