Ayuda con reportimage
Publicado por Peter (2 intervenciones) el 02/11/2007 16:46:22
Hola colegas, tengo la siguiente situacion:
Desde un picturebox para luego cargarla a un report. Ennun principio lo hace bien pero con la cuarta imagen falla. Es decir, las tres primeras images cargan sin problemas, pero apartir de alli ena delante, no las carga. Lo ams curioso es que al salvar la imagen, todas quedan cone el mismo formato y tamaño. NO se que puede ser. Agradeceria mucho su ayuda.
El codigo que tengo es el siguiente:
Dim valor As New DataEnvironment1
Dim valor1 As New DataEnvironment1
SavePicture Form1.Picture1.Image, App.Path & "\x.bmp"
Call valor1.Diagnostico(Form1.Text1.Text)
Set DRepDiagnostico1.Sections("detalle").Controls.Item("Image1").Picture = LoadPicture(App.Path & "\x.bmp")
DRepDiagnostico1.Sections("Detalle").Controls.Item("Estudio").Caption = Form1.TextEstudio.Text & " - " & Format(Form1.FechaEstudio.Text)
DRepDiagnostico1.Show
Desde un picturebox para luego cargarla a un report. Ennun principio lo hace bien pero con la cuarta imagen falla. Es decir, las tres primeras images cargan sin problemas, pero apartir de alli ena delante, no las carga. Lo ams curioso es que al salvar la imagen, todas quedan cone el mismo formato y tamaño. NO se que puede ser. Agradeceria mucho su ayuda.
El codigo que tengo es el siguiente:
Dim valor As New DataEnvironment1
Dim valor1 As New DataEnvironment1
SavePicture Form1.Picture1.Image, App.Path & "\x.bmp"
Call valor1.Diagnostico(Form1.Text1.Text)
Set DRepDiagnostico1.Sections("detalle").Controls.Item("Image1").Picture = LoadPicture(App.Path & "\x.bmp")
DRepDiagnostico1.Sections("Detalle").Controls.Item("Estudio").Caption = Form1.TextEstudio.Text & " - " & Format(Form1.FechaEstudio.Text)
DRepDiagnostico1.Show
Valora esta pregunta


0