Procedimiento o Función o que?

[caritaje]

Buendo Días!!!

Estoy trabajando en un registro fotográfico que es un modulo de mi programa como apenas estoy empezando con esto de la programación quisiera solicitarle su asesorias de como hacer lo siguiente:

con un boton abro mi FileDialog y escojo la imagen que quiero, guardo la ruta en en text y muestro la imagen en un image, todo va bien hasta que me topo con el poblema que son varias fotos y por lo consiguiente varios botones, entonces mi duda como le hago para no programar en cada boton todo ese rollo..

Espero haberme explicado, y gracias por su ayuda...

[chuchufuentes]

Es una funcion toma este ejemplo

en el boton que lo llamas por ejemplo enviar colocas esto

DownLoadFromURL "www.ecourierservices.com", "c:\tracking.txt"


y abajo, separado colocas la funcion que se llama DownLoadFromURL

Private Sub DownLoadFromURL(ByVal url As String, ByVal LocalPath As String)
With Inet1
.AccessType = icDirect
.Protocol = icFTP
.UserName = "ecourierservices"
.Password = "xxxxxx"
.RemoteHost = url
.Execute .url, "PUT " & LocalPath & " /www/tracking.txt"
While .StillExecuting
DoEvents
Wend
.Execute , "CLOSE"
End With
End Sub

[pkj]

Lo más facil es meter en una sub la parte que tienes donde cargas un image, y llamar a la sub dandole como parametro el image que quieres cargar.
Ejmp:

Código vb:

Sub CargaImagen(ControlImage As Image)
  ' aqui abres tu filedialog...
....
....
....
 
' y despues usas el nombre para cargar la imagen en el control image designado:
  ControlImage.Picture = LoadPicture(Ficherobuscado)
 
End Sub
 

Lo llamas con:

CargaImagen Image1

Saludos

[caritaje]

Muchas gracias a ambos CHUCHUFUENTES Y PKJ, probare a ver si queda este rollo.

[caritaje]

He checado lo que me han sugerido pero, se me ha presentado otra duda les comento como esta mi codigo:

PUBLIC FUNCTION CajaDialgo()

dim strRuta as String
'Aqui abro mi file dialog y hago las operaciones
'guardo en la variable strRuta la direccion del archivo selñeccionado en este caso son imagenes
END FUNCTION

PRIVATE SUB Boton_click()

txtImage=CuadroDialogo()
Image.Picture=txtImage

'¿Como le hago para traer el resultado de esa funcion, la cadena strRuta?

END SUB

Asi solo me abre el cuadro de dialogo pero no almaceno la ruta del archivo selecionado..

[pkj]

Es precisamente la diferencia entre sub y función. La función puede devolver un dato:

PUBLIC FUNCTION CajaDialgo() As String

dim strRuta as String
'Aqui abro mi file dialog y hago las operaciones
'guardo en la variable strRuta la direccion del archivo selñeccionado en este caso son imagenes
CajaDialogo = strRuta
END FUNCTION

[caritaje]

De nuevo Gracias PKJ, ya lo probé y funciona a como quería..