Visual Basic para Aplicaciones - Cambiar Imagen del Data Report

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar Imagen del Data Report

Publicado por sandra (33 intervenciones) el 26/09/2008 02:17:29
Hola:

Como puedo cambiarle la imagen a mi reporte. yo tengo la imagen visualizada en un picture en un formulario y al llamar al reporte lo asigno antes de abrir varias variables pero en este caso de la imagen no se como puedo hacerlo.

para asignar valores a las variables lo ago de esta manera.

NombredelReporte.Controls("etiqueta").Caption = "Nombre: " & Me.ComboBox & " "

de ese manera funciona perfecto. pero tengo problemas para asignar una imagen.
pienso q es de esta manera:
NombredelReporte.Controls("Image1").Picture = picture

Pero me da un mensaje de error que dice: EL OBJETO NO ADMITE ESTA PROPIEDAD O METODO

El picture tiene una imagen., La imagen que tiene el picture lo asigno asi:

%%%%%%%%%%%%%%%%%%%%
CommonDialog1.Filter = "*.jpg;*.gif;*.bmp"
CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then
Picture = LoadPicture(CommonDialog1.FileName)

'*******para guardar la imagen
On Error Resume Next
Kill (App.Path & "cfgimage.mur") ' <--- eliminas el anterior
Open App.Path & "cfgimage.mur" For Output As #1
Print #1, CommonDialog1.FileName ' ruta completa
Close #1
End If
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Bueno espero que una repuesta...

Para mi es de suma Importancia.

Muchas Gracias. Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar Imagen del Data Report

Publicado por sandra (33 intervenciones) el 27/09/2008 01:57:13
hola.
esta es la solucion:

Dim em1 As String
Open App.Path & "imagenlogo.mur" For Input As #1
Line Input #1, em1 ' ruta completa
PictLogo = LoadPicture(em1)
Close #1

Set DataReport.Sections("EncabezadodePagina").Controls.Item("Image1").Picture = LoadPicture(em1)

=Mente. Saludos A todos..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar