programa para ver fotos
hola soy nuevo en el mundo de la programacion y estoy estudiando vb pero tengo un largo camino que recorrer y lo se.
mi pregunta es quiero hacer un programa para poder ver fotos y poner los datos de la foto.
me explico : mi cuñado hace montajes fotograficos a gente.
y yo quiero hacer un diseño que es el siguiente.
quiero poner la foto de la victima y el montage uno al lado del otro que cuando excoja la victima salga el montaje tambien.
su numero de email y todo lo que el quiera .
es dificil hacer algo asi.
la web de mi cuñado es www.fototruc.com
gracias a todos este foro me mola porque aprendes muchas cosas.
mi pregunta es quiero hacer un programa para poder ver fotos y poner los datos de la foto.
me explico : mi cuñado hace montajes fotograficos a gente.
y yo quiero hacer un diseño que es el siguiente.
quiero poner la foto de la victima y el montage uno al lado del otro que cuando excoja la victima salga el montaje tambien.
su numero de email y todo lo que el quiera .
es dificil hacer algo asi.
la web de mi cuñado es www.fototruc.com
gracias a todos este foro me mola porque aprendes muchas cosas.
Para ver fotos en VB, el mejor control es el IMAGE, ya que te permite hacerlo mayor o menor a tu antojo. para cargar la foto simplemente usas el metodo LOADPICTURE. Te pongo un ejemplo:
Dim ancho As Long
Dim alto As Long
Image1.Visible = False
Image1.Stretch = False
Image1.Picture = LoadPicture("c:prueba.jpg")
ancho = Image1.Width
alto = Image1.Height
Image1.Stretch = True
Image1.Width = 4000
Image1.Height = 4000 * alto / ancho
Image1.Visible = True
primero oculto la imagen para que no se vea el proceso de cambio de tamaño
le pongo la propiedad stretch a false (que tenga el tamaño original)
luego cargo la imagen y guardo sus dimensiones, vuelvo a poner stretch a true, le doy un ancho deseado (4000) y le calculo el alto proporcional`(para que no se estire o encoja)
y para finalizar, la pongo visible
Saludos
Dim ancho As Long
Dim alto As Long
Image1.Visible = False
Image1.Stretch = False
Image1.Picture = LoadPicture("c:prueba.jpg")
ancho = Image1.Width
alto = Image1.Height
Image1.Stretch = True
Image1.Width = 4000
Image1.Height = 4000 * alto / ancho
Image1.Visible = True
primero oculto la imagen para que no se vea el proceso de cambio de tamaño
le pongo la propiedad stretch a false (que tenga el tamaño original)
luego cargo la imagen y guardo sus dimensiones, vuelvo a poner stretch a true, le doy un ancho deseado (4000) y le calculo el alto proporcional`(para que no se estire o encoja)
y para finalizar, la pongo visible
Saludos
