cargar una imagen

sniper
13 de Junio del 2004
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

molen
13 de Junio del 2004
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"

RAUL
13 de Junio del 2004
en este linck un ejemplo de harvey Triana de gestion de imaagenes con ADO:
http://www.mvps.org/vexpert/articles/adoImages.htm
Suerte

VOCA UNO
13 de Junio del 2004
¿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!.

spam
13 de Junio del 2004
sniper no le hagas caso este es el veterano de mierdalandia de voca uno me das asco hijo de perra maldito sabes me tinca que eres huacho ya que tu madre nunca te quiso