Carregando imagem / foto pelo endereço

[edkardoso 0]

Salve galera!Tenho visto mt gente com dúvidas de como carregar uma imagem por um endereço. Dai resolvi postar esse simples tuto. Até pq já penei bastante com isso tb e teve mt gente boa que me ajudou.A grande vantagem da gente guardar apenas o endereço da imagem é sem dúvida o tamanho do arquivo.Então Vamos lá:1º Crie uma tabela com o seguintes campos, dê o nome que desejar: ---------------------------------Foto, Numeração AutomáticaDescricao, Texto, 50Link, Texto, 255---------------------------------2º Crie um formulário baseado nessa tabela3º Insira um controle Imagem nesse formulário (selecione uma foto qualquer) e defina seu nome como imagem.4º Insira um botão ao lado da caixa de texto Link5º Acione a caixa de propriedades (F4) do seu botão e no procedimento do evento Ao clicar insira o código abaixo:Private Sub MeuBotao_Click()'É necessário fazer referência a Microsoft Office 11.0 Object Library'em Ferramentas > Referências no Editor do Visual Basic Dim CxDialog As Office.FileDialog Set CxDialog = Application.FileDialog(msoFileDialogFilePicker) With CxDialog 'define como seleção simples .AllowMultiSelect = False ' Define o titulo da caixa de diálogo .Title = "Selecione uma imagem" ' limpa os filtros .Filters.Clear 'adiciona novos filtros .Filters.Add "JPG", "*.jpg" .Filters.Add "BMP", "*.bmp" .Filters.Add "Todos os arquivos", "*.*" 'mostra a caixa de dialogo If .Show = True Then 'se alguma imagem tiver sido escolhida 'atribuie o endereço da imagem ao campo link Me.link = .SelectedItems(1) 'exibe a foto me.Imagem.Visible = True 'carrega a foto Me.Imagem.Picture = Me.link End If End WithEnd Sub6º Vá no menu Ferramentas > Referências do Editor Visual basic e Marque a bibliotecaMicrosoft Office 11.0 Object Library. Isso é imprescendível para o funcionamento da rotina.Eu estou usando o Office 2003, de acordo com a sua versão pode ser outra, mas com o nome muito próximo a essa.7º Volte ao seu formulário. Nas propriedades dele vá no envento No Atual e digite o código abaixo:Private Sub Form_Current()If Me.link <> nil Then Me.Imagem.Visible = True Me.Imagem.Picture = Me.linkElse Me.Imagem.Visible = FalseEnd IfEnd SubPronto!! você já tem o seu pequeno álbum digital! Faça os ajustes que desejar na propriedade do controle imagem, como por exemplo no Modo tamanho, que permite que você veja a foto inteira (zoom).Peço que postem ai para dizer se funcionou ou para tirar qualquer dúvida, ok ?!Um abraço.

[tiagotdi 0]

Valeu pelas dicas, so nao entendi onde coloca a segunda parte do codigo:---Private Sub Form_Current()If Me.link <> nil ThenMe.Imagem.Visible = TrueMe.Imagem.Picture = Me.linkElseMe.Imagem.Visible = FalseEnd IfEnd Sub....AbraçosTiago

[Giankarlo 0]

Ed,

Você saberia como posso fazer para capturar a imagem diretamente de uma WabCam? estou fazendo um sisteminha para recepção, onde todos os visitantes serão cadastrados com foto e dados pessoais simples, queria mesmo só clicar em um botão e este botão realizar o trabalho de fotografar e armazenar a foto no meu form. Tem como fazer esta tarefa usando o Access? http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[jeffer.sp 0]

Beleza Pessoal,Eu consegui criar um link para inserir as fotos, conforme explica o POST, porém quando eu clico no botão para localizar a foto, da um "erro" ERRO DE COMPILAÇÃO - O TIPO DEFINIDO PELO USUÁRIO NÃO FOI DEFINIDO.E aparece a linha Dim CxDialog As Office.FileDialog selecionada em amarelo.O que fazer??Estou precisando mto resolver isso!!!Se alguem puder me dizer aonde está o erro...

Ed,Você saberia como posso fazer para capturar a imagem diretamente de uma WabCam? estou fazendo um sisteminha para recepção, onde todos os visitantes serão cadastrados com foto e dados pessoais simples, queria mesmo só clicar em um botão e este botão realizar o trabalho de fotografar e armazenar a foto no meu form. Tem como fazer esta tarefa usando o Access? http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[jones.s.duarte 0]

Ed,Aproveitando sua bondade cara!!!!!Como faço para que em meus menus personalizados, quando eu executar a função de imprimir ele me exiba a janela de Imprimir.Para que eu possa selecionar a impressora em que desejo fazer a impressão, as preferencias de impressão e etc....Vlw grande... aguardo retorno.

[jeffer.sp 0]

beleza Kra!Olha, ainda não sei como fazer isso direto, o que eu faço no meu BD é:Criar uma opção para Visualização de relatorio, de depois vou em ARQUIVO, IMPRIMIR, e seleciono a Impressora e qtde de copias..Vou ver se consigo algo e te passoo..

Ed,Aproveitando sua bondade cara!!!!!Como faço para que em meus menus personalizados, quando eu executar a função de imprimir ele me exiba a janela de Imprimir.Para que eu possa selecionar a impressora em que desejo fazer a impressão, as preferencias de impressão e etc....Vlw grande... aguardo retorno.

[jones.s.duarte 0]

Hey meu qrido... eu consegui resolver este problema de forma simples!!!Para tanto basta selecionar o menu personalizar na barra de ferramentas com o botão direito do mouse.Entaum localize a opção imprimir no menu arquivo da propria barra de menus,E arrasta-la para sua barra de menus personalizados.Qlqr duvida basta postarUm forte AbraçoJhooow

[Maibaby 0]

Olá,Fiz conforme indicado porem está dando erro de Objeto Requerido na seguinte linha:Set CxDialog = Application.FileDialog(msoFileDialogFilePicker) Alguem pode me ajudar?!

[Psycodelic 0]

Resolveu meu problema cara!! muito obrigado!! o tópico está impecável e de parabéns!!! nota 10!!!

[Mike Scofield 0]

E ai ed cardoso beleza...?

 

Usei seu tuto pra resolver meu problema com imagens....

porem as imagens nao aparecer, elas sáo carregadas na tabela

mas a imagem no formulario nao aparece...

Saberia me dizer oq e?

 

Desde ja agradeco!!!

[schuby 0]

Caro amigo edkardoso ...

 

Achei muito interessante o seu trabalho, e acredito que muita gente neste fórum compartilha da minha opinião, só não teve tempo de se expressar. Estou tendo o mesmo problema que muitos no fórum estão tendo. Vou tentar utilizar o seu trabalho, e irei lhe postar caso tenha alguma dúvida. Sem dúvida alguma a idéia do amigo de apenas clicar num botão e apenas esparar o resultado é genial. Edkardoso, se você estiver trabalhando nisto, ponha por gentileza um post avisando que está tentando, pois, muita gente está na espectativa e torcendo para que você tenha sucesso. Aguardo seu retorno. Muito obrigado.

[CJS 0]

Está acusando um erro em "NIL" no código abaixo, você poderia me ajudar?

 

Private Sub Form_Current()

 

If Me.Link <> nil Then

Me.Imagem.Visible = True

Me.Imagem.Picture = Me.Link

Else

Me.Imagem.Visible = False

End If

 

End Sub

 

Obrigado,

Célio

 

 

 

 

Salve galera!

Tenho visto mt gente com dúvidas de como carregar uma imagem por um endereço. Dai resolvi postar esse simples tuto. Até pq já penei bastante com isso tb e teve mt gente boa que me ajudou.

A grande vantagem da gente guardar apenas o endereço da imagem é sem dúvida o tamanho do arquivo.

 

Então Vamos lá:

 

1º Crie uma tabela com o seguintes campos, dê o nome que desejar:

 

---------------------------------

Foto, Numeração Automática

Descricao, Texto, 50

Link, Texto, 255

---------------------------------

 

2º Crie um formulário baseado nessa tabela

 

3º Insira um controle Imagem nesse formulário (selecione uma foto qualquer) e defina seu nome como imagem.

 

4º Insira um botão ao lado da caixa de texto Link

 

5º Acione a caixa de propriedades (F4) do seu botão e no procedimento do evento Ao clicar insira o código abaixo:

 

Private Sub MeuBotao_Click()

'É necessário fazer referência a Microsoft Office 11.0 Object Library

'em Ferramentas > Referências no Editor do Visual Basic

 

Dim CxDialog As Office.FileDialog

 

Set CxDialog = Application.FileDialog(msoFileDialogFilePicker)

With CxDialog

 

'define como seleção simples

.AllowMultiSelect = False

 

' Define o titulo da caixa de diálogo

.Title = "Selecione uma imagem"

 

' limpa os filtros

.Filters.Clear

 

'adiciona novos filtros

.Filters.Add "JPG", "*.jpg"

.Filters.Add "BMP", "*.bmp"

.Filters.Add "Todos os arquivos", "*.*"

 

'mostra a caixa de dialogo

If .Show = True Then 'se alguma imagem tiver sido escolhida

'atribuie o endereço da imagem ao campo link

Me.link = .SelectedItems(1)

 

'exibe a foto

me.Imagem.Visible = True

 

'carrega a foto

Me.Imagem.Picture = Me.link

 

End If

End With

End Sub

 

6º Vá no menu Ferramentas > Referências do Editor Visual basic e Marque a biblioteca

Microsoft Office 11.0 Object Library. Isso é imprescendível para o funcionamento da rotina.

Eu estou usando o Office 2003, de acordo com a sua versão pode ser outra, mas com o nome muito próximo a essa.

 

7º Volte ao seu formulário. Nas propriedades dele vá no envento No Atual e digite o código abaixo:

Private Sub Form_Current()

 

If Me.link <> nil Then

Me.Imagem.Visible = True

Me.Imagem.Picture = Me.link

Else

Me.Imagem.Visible = False

End If

End Sub

 

 

Pronto!! você já tem o seu pequeno álbum digital! Faça os ajustes que desejar na propriedade do controle imagem, como por exemplo no Modo tamanho, que permite que você veja a foto inteira (zoom).

Peço que postem ai para dizer se funcionou ou para tirar qualquer dúvida, ok ?!

Um abraço.

[Motar 0]

Olá Colega

Bastante interessante este seu tópico, obrigado por pratilha-lo.

Será que este exemplo tambem dá para inserir directamente a foto no campo de uma tabela?

Já experimentei e está dando erro.

 

Um Abraço

[quintelab 91]

Motar, de uma olhada na data do tópico, se tive dúvida crie seu próprio tópico.

 

Abraços...