Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Recuperar Imagen de un datagrd

Estas en el tema de Recuperar Imagen de un datagrd en el foro de Visual Basic clásico en Foros del Web. Hola a todos... Me gustaria saber si es posible que al presionar un registro del DataGrid me muestre la foto del usuario en un picture. ...
  #1 (permalink)  
Antiguo 06/04/2010, 10:43
 
Fecha de Ingreso: diciembre-2007
Mensajes: 38
Antigüedad: 16 años, 4 meses
Puntos: 0
Recuperar Imagen de un datagrd

Hola a todos...
Me gustaria saber si es posible que al presionar un registro del DataGrid me muestre la foto del usuario en un picture.
Veran, tengo un formulario que ingresa informacion de un usuario entre ellos la foto, en el formulario tengo un Picture y un Datagrid.
Resulta que me guarda bien las fotos en la bd como binarios largos. Sin embargo desearia que en el evento click del DataGrid me mostrara la imagen en el picture.
He intentado con este codigo pero nada:

Código:
   Picture1.Picture=LoadPicture(DataGrid1.Columns(10).Value)
Si alguien tiene alguna idea de como hacerlo les agradeceria mucho
  #2 (permalink)  
Antiguo 09/04/2010, 11:08
 
Fecha de Ingreso: diciembre-2007
Mensajes: 38
Antigüedad: 16 años, 4 meses
Puntos: 0
Respuesta: Recuperar Imagen de un datagrd

Bueno, despues de darme unos buenos golpes lo resolvi. Coloco el codigo por si alguien mas esta vuelto loco con esto.

1º En el evento load del formulario
Código:
' Para la foto
Direc = App.Path & "\temp.jpg" 'Archivo temporal para guardar la foto
mystream.Type = adTypeBinary ' le decimos que nuestra imagen es de tipo binario
2º En el evento click del datagrid
Código:
 With Rs!foto
        Previsualizar
    End With
y 3º Procedimiento previsualizar

Código:
On Local Error Resume Next ' por si surge alguno error que lo pase por alto
    mystream.Open ' abrimos el stream
    mystream.Write RsUsuarios!Foto_Usuario ' leemos la imagen
    mystream.SaveToFile Direc, adSaveCreateOverWrite ' guardamos la imagen en unestro directorio temporal
    mystream.Close ' cerramos el stream
    pctFotoUsuario.Picture = LoadPicture(Direc) ' previsalizamos la imagen en nuestro picture control

Etiquetas: recuperar
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:25.