Problema con Funciones en VB .NET

[emma93]

Bueno, tenía una duda y quería ver si ustedes me la podrían sacar.

Estoy haciendo una función de VB .NET, que interprete tal código.

Vamos a dar un ejemplo

Código vb.net:

Function Buscar_Letras (byref palabra as string)
 
For each x as string in Palabra as string
      ' Acá pasarle un código por PARÁMETRO, se puede?
Next
 
End Function
 

Por ejemplo, quiero hacer que esa función salte un MSGBOX de X, pero no lo quiero agregar en la función si no cuando valla a agregar el parámetro, es muy dificil esto?

Un saludo.-

[David]

Disculpe, pero no entendí muy bien lo que quieres hacer, ¿a qué te refieres con "cuando vaya a agregar el parámetro"?

[Dradi7]

Lo q he entendido es q quieres q muestre un mensaje si has enviado un parametro o no ??? se un poco mas especifico

[emma93]

Vamos de nuevo

Supongamos que yo quiero hacer lo siguiente:

Código vb.net:

dim palabra as string = "Hola como estas!?"
 
For each x as string in Palabra as string
          MessageBox.Show(x)
Next
 

Yo puedo crear una función, haciéndolo de la siguiente forma:

Código vb.net:

Function Buscar_Letras (byref palabra as string)
 
For each x as string in Palabra as string
          Messagebox.Show(x)
Next
 
End Function
 

Ahora, supongamos que yo quiero en vez de sacar un MessageBox, quiero llenar un Richtextbox, lo cual tendría que poner:

Código vb.net:

Function Buscar_Letras (byref palabra as string)
 
For each x as string in Palabra as string
          Richtextbox1.text = x
Next
 
End Function
 

Supongamos que yo quiero ahorrar este ultimo paso.

Como hago para Crear una sola función, y que dentro del For each se puedan realizar varias acciones? Yo quiero que esa acción sea transferida a la función mediante un parámetro, y a partir de éste parámetro, realizará tal función.

Me entendí? Espero que si.

Saludos.-

[Dradi7]

Primeramente debes definir claramente lo q es una funcion por lo q veo son solo procedimientos y no funciones ya que las cuales devuelven un valor. podria utilizarse como lo has dicho la funcion pero no tendria sentido usarla seria lo mas recomendable q lo cambiaras por sub.
En cuanto a tu pregunta pudes agregar un parametro mas a tu procedimiento y dependieno q valor lo envias a tu parametro realize dicha accion

Código vb:

sub Buscar_Letras (byref palabra as string,byref Option as Integer)
 
For each x as string in Palabra as string
          if Option = 1 Then
              Messagebox.Show(x)
          elseif Option = 2 Then 
              Richtextbox1.text = x
          end if
Next
 
end sub
 

y asi sucesivamente