Imagenes en DataReport - VB-MUNDO

ThE_AsUs · #1 (**permalink**) 10-09-2007, 03:18:11

Hola a todos nuevamente, bueno tengo una consulta, mi programa esta funcionando y ahora me han pedido que si puedo mostrar imagenes en el reporte, en el programa hay una parte en la que se puede adjuntar imagenes a un cliente o a una reparacion, pero ahora lo que quieren es q se muestren esas imagenes en el reporte ,los reportes los hice con DataReport, como hago para mostrar imagenes en el?

saludos a todos y gracias de antemano x su tiempo.

J.M.Movilla · #2 (**permalink**) 10-09-2007, 17:47:48

Si usas el buscador encontrarás varios posts sobre este tema, que espero te sirvan para darte la salida a tu problema.

ThE_AsUs · #3 (**permalink**) 14-09-2007, 00:26:54

Ok, ya busque y encontre este codigo para mostrar imagen en datareport y funciona bien:

Código:

Set DataReport1.Sections("Sección1").Controls("image2").Picture = LoadPicture(App.Path & "\imagen.jpg")

pero mi problema es que quiero mostrar mas de 1 imagen en un reporte, osea en un numero de reparacion pueden haber grabadas mas de 1 imagen, yo pense en utlizizar algo asi:

Código:

RecAtt.Open "SELECT AttFilename FROM Attachments where AttRecKey = " + DGPO2.TextMatrix(DGPO2.Row, 0) + " and AttTable = 'O' ", Cn, adOpenStatic, adLockReadOnly
While Not RecAtt.EOF
Set rptPOD.Sections("Sección7").Controls("Image1").Picture = LoadPicture(RecAtt(0))
RecAtt.MoveNext
Wend
Set RecAtt = Nothing

algo parecido, pero no veo el atributo de index en la imagen, como hago para si por ejemplo encuentran 3 imagenes de una reparacion, que las muestre en dif cuadros de imagen, ah y otra cosa, como se hace para que la imagen se redusca y se muestre toda en miniatura de acuerdo al tamaño del cuadro de texto diseñada. bueno saludos a todos.

ThE_AsUs · #4 (**permalink**) 16-09-2007, 07:57:08

Ninguna sugerencia de como hacer esto? osea d seleccionar por ejemplo las 3 primeras imagenes de un cliente y mostrarlas en el los cuadros de imagenes de un DataReport respectivamente (Image1, Image2,Image3) ya que no tiene el atributo index el cuadro de imagen en datareport. Salu2.

acalanto · #5 (**permalink**) 16-09-2007, 08:31:01

Si no existen sugerencias, probablemente es que lo que preguntas tiene difícil solución, o no es posible.

Nunca he trabajado con el DataReport, así que no sé si soy buen consejero en este tema, pero como imagino que funcionará como cualquier otro objeto que contiene a su vez otros objetos en forma de colllections, pues tendrás que añadir un nuevo control para poner una imágen, y en este caso posicionarlo en el documento (ya que no estás en diseño del reporte, sino en ejecución). Algo semejante al siguiente código.

DataReport1.Sections("Sección1").Controls.add <nuevo objeto imágen>

Una vez insertado el nuevo objeto, procederás a colocarlo y a cargar la imágen

DataReport1.Sections("Sección1").Controls(NuevaIma gen).Left=posiciónX
DataReport1.Sections("Sección1").Controls(NuevaIma gen).Top=posiciónY
DataReport1.Sections("Sección1").Controls(NuevaIma gen).Picture = LoadPicture("App.Path & "\imagen_nueva.jpg")

No he probado esta opción, pero creo que los 'tiros' pueden muy bien ir por aquí. Por cierto, el índice de la imágen dentro del documento es el nombre que le asignas, aunque cabe pensar que también puedas controlarlo mediante un número ordinal.

Espero que te resulte útil y tras las investigaciones necesarias, alcances tus objetivos.