Boa tarde Amigos

Eu estou com o seguinte problema.Eu preciso passar o nome de um ListView e de um Formulario para uma funcao, a fim de que dentro da funcao eu possa utiliza-los como que se estivesse dentro do Form em questao e que contem o referido ListView.

E estava fazendo assum

Function nome1 (NomedoForm as Form)
Function Nome2 (NomedoListView as listView)

E na cjamada da funcao tentei assim.

Nome1(SNomedoForm as Form)
Nomw2 (SNomedoListView as ListView)

Porem nao funcionou.

Poderiam me ajudar e me dizendo qual a forma correta de passar esses parametros.

Obrigado

Hummm, acho que está faltando vc fazer referência... segue exemplo:

 

Private Sub Form_Load()
Conf_ListView LV
End Sub

Private Sub Conf_ListView(ByRef lsv As ListView)
With lsv
    .FullRowSelect = True
    .View = lvwReport
    .ColumnHeaders.Add , , "Coluna 01"
    .ColumnHeaders.Add , , "Coluna 02"
    .ColumnHeaders.Add , , "Coluna 03"
    .ColumnHeaders(1).Width = 3000
    .ColumnHeaders(2).Width = 3000
    .ColumnHeaders(3).Width = 3000
   
    .ListItems.Add , , "Texto coluna 01"
    .ListItems(.ListItems.Count).SubItems(1) = "Texto coluna 02"
    .ListItems(.ListItems.Count).SubItems(2) = "Texto coluna 03"
   
End With

End Sub

 

Tenta aí depois posta.

 

at+

Obrigado ghost_jlp

Eu tentei mas ainda nao funcionou.Eu preciso passar outras informacoes juntamente com o nome do objeto, vou tentar mais um pouco.

 

Um Abraco

 

Ventana

ventana, eu faço assim

 

Crie uma variavel global

 

Public ObjetoTrabalho as Object

 

No form antes de chamar a função coloque essa linha

 

SET OBJETOTRABALHO = ME

FUNCAO

 

E dentro da função vc pode trabalhar com qualquer objeto do form e todas as variaveis publicas do form

 

Exemplo:

ObjetoTrabalho.listiview1.ListItens.Clear

 

Roberto

Eu fiz desta forma e consegui mas é algo simples. Quer que eu passe o que fiz para vc analisar e ver se é o que vc quer?

Muito obrigado amigos, eu irei experimentar.

 

 

Um Abraco