none
Incluir novos argumentos em tempo de execução RRS feed

  • Pergunta

  • Boa noite. Nem mesmo sei se isso é possível, mas vai a pergunta.

    eu gostaria de adicionar argumentos à uma sub ou function em tempo de execução.

    Exemplo.

    Private sub ExtrairRelatorio(ByVal De as Date, BayVal Ate as Date)

    ' Procedimento

    End sub

    eu criei um componente que irá executar todos os métodos do meu programa em background, e para isso, ele criará um progressbar.

    Entretanto, para que esse progressbar seja atualizado, eu preciso passar o nome do objeto opara ele.

    Então queria saber se tem como adicionar automaticamente para todos os "Subs" que eu chamar por esse componente um novo argumento, Tornando minha sub da seguinte forma.

    Private sub ExtrairRelatorio(ByVal De as Date, BayVal Ate as Date, ByVal ProgressBar as ProgressBar)

    ' Procedimento

    End sub

    E ao término da execução, a Sub voltaria ao normal (Pois os argumentos seriam inseridos em tempo de execução).

    Alguém sabe uma forma?

    Obrigado.


    LFBit

    sexta-feira, 23 de novembro de 2012 21:28

Respostas

Todas as Respostas