Preso com os conceitos de "Função" no VB? Em caso afirmativo, leia este guia para aprender as chamadas construções de "Função" no paradigma do VB.
Passos
Etapa 1. O que é função?
- Use um procedimento Function quando precisar retornar um valor ao código de chamada.
- Uma função em si tem um tipo e a função retornará um valor para a sub-rotina de chamada com base no código que ela contém.
Etapa 2. Como declarar a função?
- Você pode definir um procedimento de Função apenas no nível do módulo. Isso significa que o contexto de declaração de uma função deve ser uma classe, estrutura, módulo ou interface e não pode ser um arquivo de origem, namespace, procedimento ou bloco.
- Uma função é declarada exatamente da mesma maneira que uma sub-rotina, exceto pelo uso da palavra-chave "Function" em vez de "Sub".
- Os procedimentos de função são padronizados para acesso público. Você pode ajustar seus níveis de acesso com os modificadores de acesso.
Etapa 3. Como chamar a função?
- Você chama um procedimento Function usando o nome do procedimento, seguido pela lista de argumentos entre parênteses, em uma expressão.
- Você pode omitir os parênteses apenas se não fornecer nenhum argumento. No entanto, seu código é mais legível se você sempre incluir os parênteses.
- Uma função também pode ser chamada usando a instrução Call, caso em que o valor de retorno é ignorado.
- Para retornar um valor, atribua um valor do tipo adequado ao nome da função, como se fosse uma variável.
Sintaxe
Declaração
[accessmodifier] [proceduremodifiers] [Shared] Nome da função [(Of typeparamlist)] [(lista de parâmetros)] [As returntype] [instruções] [Função de saída] [instruções] Função final
Chamando
'Sem chamada Function_Name ()' Com chamada Call Function_Name ()
Exemplo
Um exemplo de função que adiciona dois números é mostrado abaixo
Função privada Add (ByVal x As Integer, ByVal y As Integer) As Integer Dim Res como inteiro Res = x + y Add = Res End Function Private Sub Form_Load () Dim a As Integer Dim b As Integer Dim c As Integer a = 32 b = 64 c = Add (a, b) MsgBox ("Sum is:" & c) End Sub