Oi pessoal, Bom Dia!

 

Estou com uma dúvida, é o seguinte:

Eu tenho um arquivo dentro da pasta do meu programa que se chama Forms.Txt, este contém o nome dos formulários do meu sistema. Eu preciso passar pro VB esses nomes para que dinamicamente sejam verificados os campos do mesmo. Sendo assim eu escrevi as seguintes linhas de código:

 

Private Sub Form_Load()
    f = FreeFile
    Open App.Path & "Forms.txt" For Input As #f
    Dim Linha As String
    While Not EOF(f)
        Line Input #f, Linha
        ComboForms.AddItem Linha
    Wend
End Sub

--------------------------------------------------------------------------------

Private Sub ComboForms_Click()
    Call PegaCampo(ComboForms)
End Sub

--------------------------------------------------------------------------------

Sub PegaCampo(Formulario As Form)
    Dim Campo As Control
    For Each Campo In formulario
        Msgbox Campo.name
    Next
End Sub

----------------------------------------------------------------------------------

 

Só que o VB acusa erro, pois estou tentando passar um parâmetro incoerente para a função PegaCampo.

Alguém saberia me dizer como posso pasar o nome do formulário que está dentro da combobox para a função???

 

Obrigado

http://www.vbweb.com.br/dicas_visual.asp?Codigo=1094&Classificacao=

 

acredito que a dica acima vai te ajudar

 

Roberto

Amigo se voce cria uma função que recebe como parametro um Form

voce tem que passar pra ele um Form e não um ComboBox como voce esta passando

isso irá gerar Type Mismatch

 

Private Sub ComboForms_Click()
    Call PegaCampo(ComboForms)'assim esta errado
End Sub