código para imagen

18/10/2003 - 02:38 por Jose Soler | Informe spam
Hola a todos/as.

He leido lo que había sobre como poner imagenes dependientes en
formularios, y la verdad, aun no consigo darme cuenta de cómo hacer. El mas
claro me parecio el de E. Feijoo, pero aun así no acierto a escribir el
código del private Sub Form_Current.

Supuesto que en el campo Foto, en formato Texto, de la tabla Empleados hemos
colocado la ruta de cada imagen (tipo C:/Mis...) inserto un control de
imagen, quito la ruta de la imagen y la sustituyo por el nombre del campo
texto de la tabla donde estan las rutas, y después. que código Vb pongo
en el evento current del formulario?

Jose Soler
Salu2 desde Madrid
 

Leer las respuestas

#1 Jose Soler
18/10/2003 - 15:50 | Informe spam
Bueno, pues al final, gracias al Foro y a Martín Poy, me puedo contestar yo
solo. ;-)))

He encontrado (antes no me aparecio en los resultados de mi búsqueda) un
mensaje de Martín Poy de septiembre 2003.

Ahora entiendo lo del leve hilvanado...;-) que decía E. Feijoo, por aquello
de poner una imagen al colocar el control imagen y despúes quitarla borrando
su ruta de su propiedad imagen para que quede: (ninguna). Y también lo de
"meter" el control imagen dentro del marco de la foto, es decir, simplemente
arrastrar el control de imagen y colocarlo encima del control marco. Supongo
que el marco ya no hace falta.

Esta bastante bien explicado e incluye ejemplo con el código de Visual Basic
concreto:

Private Sub Form_Current()
On Error Resume Next
Me.ControlImagen.Picture = Me.RutaImagen
Me.Refresh
End Sub

Os lo copio aqui abajo por si puede interesar a alguien:
=Hola Javier,

En tu formulario, insertar un Control Imagen (saldrá el asistente para que
escojas una imagen, escoges cualquiera).
Supongamos que tu Control que contiene el Campo texto con la ruta de tu
archivo se llame
"RutaImagen", que tu nuevo control imgen se llame
"ControlImagen".

En el Procedimiento de evento de tu formulario "Al activar el registro"
pones :

'Private Sub Form_Current()
On Error Resume Next
Me.ControImagen.Picture = Me.RutaImagen
Me.Refresh
'End Sub

Después borras de la pestaña Formato la ruta de la imagen que has puesto al
principio.

En teoría, cada vez que cambies de registro, tiene que cambiar la imagen...

La RutaImagen, puedes parametrizarla para que apunte a una ruta variable...
p.e. :
'Dim cadImatge As String
'cadImatge = "K:\Misfotos\Año2002" & "\" & Me.NombreImagen & ".jpg"
'Me.ControlImagen.Picture = cadImatge

Saludos
Martín

"Jose Soler" escribió en el mensaje
news:
Hola a todos/as.

He leido lo que había sobre como poner imagenes dependientes en
formularios, y la verdad, aun no consigo darme cuenta de cómo hacer. El


mas
claro me parecio el de E. Feijoo, pero aun así no acierto a escribir el
código del private Sub Form_Current.

Supuesto que en el campo Foto, en formato Texto, de la tabla Empleados


hemos
colocado la ruta de cada imagen (tipo C:/Mis...) inserto un control de
imagen, quito la ruta de la imagen y la sustituyo por el nombre del campo
texto de la tabla donde estan las rutas, y después. que código Vb


pongo
en el evento current del formulario?

Jose Soler
Salu2 desde Madrid


Preguntas similares