cargar una imagen
estoy tratando de cargar una imagen con un commondialog y que esta aparesca en un image pero no me resulta coloco este codigo
Private Sub Image1_Click()
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "Busque la foto del trabajador"
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
End Sub
y nada
que me pueden recomendar
Private Sub Image1_Click()
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "Busque la foto del trabajador"
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
End Sub
y nada
que me pueden recomendar
hola Sniper
Private Sub Image1_Click()
CommonDialog1.DialogTitle = "Busque la foto del trabajador"
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
If Dir(CommonDialog1.FileName)<>"" then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Else
MsgBox "No se encontró el fichero", vbExclamation
End If
End Sub
Pero el .Filter que tienes puesto te mostrará todos los ficheros, deberías cambiarlo para que salgan sólo las extensiones de imágenes que te interese, por ejemplo:
CommonDialog1.Filter= "Imagen (*.bmp;*.jpg;*.ico)|*.bmp;*.jpg;*.ico"
Private Sub Image1_Click()
CommonDialog1.DialogTitle = "Busque la foto del trabajador"
CommonDialog1.Filter = "imagen(*.*)"
CommonDialog1.ShowOpen
If Dir(CommonDialog1.FileName)<>"" then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Else
MsgBox "No se encontró el fichero", vbExclamation
End If
End Sub
Pero el .Filter que tienes puesto te mostrará todos los ficheros, deberías cambiarlo para que salgan sólo las extensiones de imágenes que te interese, por ejemplo:
CommonDialog1.Filter= "Imagen (*.bmp;*.jpg;*.ico)|*.bmp;*.jpg;*.ico"
en este linck un ejemplo de harvey Triana de gestion de imaagenes con ADO:
http://www.mvps.org/vexpert/articles/adoImages.htm
Suerte
http://www.mvps.org/vexpert/articles/adoImages.htm
Suerte
¿Acaso eres un mugre ignorante?, ¿No sabes leer tu propio codigo?
Tu codigo solo esta mostrando el Common Dialog. En ninguna parte le esta pasando la imagen al control Image.
¡Te falta el LoadPicture!, ¡Mugre asno!.
Tu codigo solo esta mostrando el Common Dialog. En ninguna parte le esta pasando la imagen al control Image.
¡Te falta el LoadPicture!, ¡Mugre asno!.