Ir para conteúdo
Fórum Script Brasil
  • 0

Imagem dinamica no Crystal Reports no Vb.net 2003


Lucas Alves

Pergunta

Boa tarde a todos!!!

Gostaria de saber se alguém de vocês sabe como eu faço para carregar imagens dinamicas no crystal reports no vb.net 2003....

O Caso é o seguinte, eu tenho um relatório de uma receitas.....tenho uma pasta no pc com imagens de cada receita..... o programa vai funcionar + - assim .,,..,

Caso o usuário clique na receita de bolo o relatório será apresentado com a imagem do bolo e com a descrição de como fazer o mesmo.....caso ele clique na receita de brigadeiro vai aparecer a imagem do brigadeiro e assim por diante ....

Caso alguém puder me ajudar agradeço

Atenciosamente

Lucas Alves

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

As receitas vem do banco, mas as imagens estão em uma pasta do computador, eu não posso mudar a estrutura do banco de dados agora porque já esta em produção, mas oque eu estou tentando fazer é o seguinte ...

Eu Inseri uma Picture no Crystal Reports no vb.net 2003, porém quero especificar via código o caminho na qual se encontra a figura dessa Picture.

No código no vb basta eu pegar o nome da imagem .ImageUrl = "Caminho"... Já no crystal tentei o seguinte:

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), = AppDomain.CurrentDomain.BaseDirectory & "Imagens/SemFoto.jpg"

Porém da o seguinte erro de conversão nessa minha linha:

Specified cast is not valid.

Eu criei um for para gerar as imagens dinamicamente, o problema é que ele não esta conseguindo pegar o caminho da imagem na pasta, conforme erro que postei acima... abaixo segue o for para vocês verificarem .. ...

For i = 0 To dt.Rows.Count - 1

If Not dt.Rows(i).Item(2) Is Nothing Then

If ExisteFoto(dt.Rows(i).Item(2)) = True Then

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), PictureObject) = "../Imagens/" & dt.Rows(i).Item(2) & ".jpg"

else

DirectCast(Rel.Section6.ReportObjects.Item("Picture11"), PictureObject) = "../Imagens/Imagens/SemFoto.jpg"

End If

End If

Next

Grato desde já

Lucas Alves

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...