[Resolvido] vb2008 visual studio

[nostrinkes 0]

beleza pessoal

 

Estou aprendendo o vb.net esta dificil pra encontrar soluções mais vamos tentando.

 

Meu maior problema esta sendo em usar funções em module ou ate mesmo no form..

Exemplo:

 

 

"Esta função esta em um modulo"

 

Public Function ARQ(ByVal caminho, ByVal campo) As String

 

' caminho no caso seria c:\teste\teste.txt

' campo o nome do textBox

 

 

Try

Aqui entra o codigo que vai pegar a "lista teste.txt e carregar para o textBox"

 

 

catch

 

 

Return ' não preciso de retorno ,, quero que a function carregue o text box

 

end try

 

end function

 

 

A duvida maior seria como enviar os dados ( para a função e se caso eu precise como resgatar o return)

 

 

Estou tentando chamar ela no botão assim >>> ARQ() não dá certo

Enviando assim >>> ARQ("c:\teste\teste.txt","textbox_nome")

[scorpio 7]

Não to com o 2008, mas no 2005 é só colocar o nome do módulo.função

 

seumodulo.ARQ("c:\teste\teste.txt","textbox_nome")

[nostrinkes 0]

obrigado pela replica scorpio..

 

Então eu tentei aqui e não deu certo...acontece quem nem na sub consigo fazer isto de passar valores e executar lá.

 

Estou mandando o modulo pra ver se alguem acha o erro....

Caso tenha que ser feito em uma SUB tb pode ser... é que tenho que usar este bloco em varias combobox.. e não queria colocar em todos botões o mesmo codigo

 

 

Module Module1
	Function arq(ByVal caminho, ByVal campo, ByVal cont)
		Try
			Dim oread, linein
			Dim numero = 0

			oread = IO.File.OpenText(caminho)

			While oread.Peek <> -1
				'------------------------------<<contador-
				numero += 1
				cont.Text = numero
				'-------------------------------Fim
				linein = oread.ReadLine()
				campo.Items.Add(New Class1.MeuObjeto(linein, 0))

			End While
			oread.Close()
		Catch

			Console.WriteLine("Ocorreu um erro fatal... ")

		End Try
		Return ""
	End Function

End Module

 

executando no sub botão assim

Module1.arq("c:\teste\lista.txt", "tsenha", "BS")

[nostrinkes 0]

OPAAA

 

Achei a solução

 

 

o erro era este >>> Sub Arq(ByVal caminho As String, ByVal campo As ComboBox, ByVal cont As GroupBox)

 

 

valews