[Resolvido]Imagem no Formulário

Bom dia,

Gostaria de poder obter ajuda dos amigos neste fórum no seguinte assunto:

Estou retomando a correção sobre a inserção de uma imagem no MDI do access, ou seja quero inserir uma imagem no meu bd na tela principal do access, e me passaram o Fundo um projeto que posso importar para o meu bd. Porém antes de passar para o meu bd estou testando e esta me causando problemas, já depurei alguns mas tem um erro que está tirando os restos dos meus cabelos. Quando clico no botão carregar imagem me gera um erro com a seguinte mensagem:

erro em tempo de execução '429'
O componente ActiveX não poode criar o objeto.

Já adicionei a referencia da dll fondo.


A linha de Cóidigo que acusa o erro está em vermelho;


Option Compare Database

Public Fundo As New FondoAccess.CMDIWindow

Function fncCarregaFundo(NomeImagem As String)
Fundo.DrawMode = 1
Fundo.ImagePath = fncLocalFundo & NomeImagem
Fundo.Hook (Application.hWndAccessApp)
End Function

Public Function fncDescarregaFundo()
Fundo.Unhook
End Function

Public Function fncLocalFundo() As String
fncLocalFundo = CurrentProject.Path & "\imagens\fundo\"
End Function


Atenciosamente,

Adilson Calixto

Você registrou a dll? Se sim, quando fez o registro deu mensagem de sucesso? Depois foi no módulo do aplicativo e marcou a referência à essa dll?

Matou a charada Mestre, foi em cima. Era exatemente isso. Tinha Adicionado a referencia a uma fondo e não a FondoAccess.dll, foi aí que estava o erro. AGora para registrar a dll tem alguns comandos para serem colocados no executar do windows. Você poderia me passar esses comando?

GRato

Adilson

Se a dll estiver na pasta System32, pode abrir o cmd ou prompt do DOS e digitar regsvr32 nomedocomponente.dll e dar Enter. Se ela estiver em outro local, precisa passar o caminho completo:

regsvr32 C:\Caminho\nomedocomponente.dll

No Windows 7 pode ser que seja necessário abrir o cmd como Administrador. Para isso, basta apertar a tecla Windows, digitar cmd e quando aparecer o nome cmd, clicar nele com o botão direito e escolher Executar como administrador.

Beleza Mestre,

Até aqui está indo tudo muito bem, agora aconteceu outro problema na linha de código em vermelho.

Option Compare Database

Private Sub btCarregaImagem_Click()
Me.Idimg = Me.ImgFundo.CurrentAttachment
Me.NomeImg = Me.ImgFundo.FileName
Call fncGravaFundo
Call fncDescarregaFundo
Call fncCarregaFundo(Me.NomeImg)
Me.ImgFundo.SetFocus
End Sub

Private Function fncGravaFundo()
Dim rsfrm As DAO.Recordset2
Dim rsFilho As DAO.Recordset2
Dim fld As Field2

Set rsfrm = Me.Recordset
Set rsFilho = rsfrm.Fields("imgFundo").Value
Set fld = rsFilho.Fields("filedata")
Do While Not rsFilho.EOF
If rsFilho.AbsolutePosition = Idimg Then
If Len(Dir(fncLocalFundo, vbArchive) & "") > 0 Then
Kill fncLocalFundo & "*.gif"
End If
fld.SaveToFile (fncLocalFundo)
End If
rsFilho.MoveNext
Loop
Set fld = Nothing
Set rsFilho = Nothing
Set rsfrm = Nothing
End Function


Será que é por que eu coloquei uma imagem em png e outra em jpeg? Se for eu poderia alterar para aceitar todos os formatos de imagem? E como faria isso?

O Mestre pode me ajudar em mais essa empreitada? Aproveitando para ratificar meus agradecimentos ao brioso trabalho que os Mestres deste fórum fazem.

Atenciosamente,

Adilson

Acredito não ser possível apagar uma imagem png ou jpg se o comando usado para a exclusão tem a extensão gif. Você pode tentar alterar o gif para o png ou jpg.

E não seria possível colocar as extensões para jpg e png ou todos.

Por exemplo já tive oportunidades em que se colocava (no caso em vb 6.0) o pipe e ele aceitava será que aceita em vba?

Kill fncLocalFundo & "*.gif" | & "*.jpg" | & "*.png",

será que funciona


Adilson

Acredito que uma melhor solução seria fncCaminho gravar o caminho completo da imagem, com a extensão.

A questão é que quero deixar em aberto para o usuário acrescentar quando quiser qualquer tipo de imagem e com aquele tipo de extensão ele só vai poder colocar gif, e acrescentando outro formato vai dar erro e dizer para o usuário que só aceitra gif é fogo.

Mas valeu depois penso no que fazer com esse assunto.

Brigadão pela ajuda foi muito útil.

Adilson

Criquio resolvi o problema. Olha só o que fiz de mudança está em vermelho:

Private Function fncGravaFundo()
Dim rsfrm As DAO.Recordset2
Dim rsFilho As DAO.Recordset2
Dim fld As Field2

Set rsfrm = Me.Recordset
Set rsFilho = rsfrm.Fields("ImgFundo").Value
Set fld = rsFilho.Fields("filedata")
Do While Not rsFilho.EOF
If rsFilho.AbsolutePosition = Idimg Then
If Len(Dir(fncLocalFundo, vbArchive) & "") > 0 Then
On Error Resume Next
Kill fncLocalFundo & "*.jpeg"
On Error Resume Next
Kill fncLocalFundo & "*.gif"
On Error Resume Next
Kill fncLocalFundo & "*.jpg"
On Error Resume Next
Kill fncLocalFundo & "*.png"
On Error Resume Next
Kill fncLocalFundo & "*.tiff"
End If
fld.SaveToFile (fncLocalFundo)
End If
rsFilho.MoveNext
Loop
Set fld = Nothing
Set rsFilho = Nothing
Set rsfrm = Nothing
End Function


E coloquei nas opções do access em banco de dados atual para inicializar o frmFoco, não dá mais erro. eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!eh!

AGora vou importar para o meu projeto e no frmInício do meu projeto está como o form que inicia automaticamente quando abro o projeto, no evento ao carregar do frm inicio coloco para carregar o frmFoco. Valeu amigão pela ajuda.


Atenciosamente,

Adilson

Está certo, mas tem que ser ter cuidado com a POG. Vai que em determinado momento você exclui uma imagem ou um arquivo que não podia ser excluído. Por exemplo, você tem duas imagens com mesmo nome e extensão diferente. Você precisa apagar uma mas não pode apagar a outra. Com o código assim, ambas serão excluídas. fncCaminho guarda o caminho e o nome da imagem, portanto, seria mais prático guardar tambem a extensão da imagem em fncCaminho. Dessa forma, seria excluída a imagem correta sem a necessidade de apelar para a POG.

O que vem a ser POG, e essa função fncCaminho como eu poderia fazer ela, poderia me ajudar nisso?

POG = Programação Orientada a Gambiarra.
fncCaminho na verdade é fncLocalFundo, já presente na função.

Gostei da tal da POG eh!eh!eh!eh!eh!eh!eh!eh!

Vou verificar o caminho.


brigadooooooooooooooooooooooooo

Que alteração faria então

Public Function fncLocalFundo() As String
fncLocalFundo = CurrentProject.Path & "\imagens\fundo\"
End Function

Como faria tal alteração nesta função, agora voce me pegou. Não faço a minima idéia de por onde começar.

Outra coisa as minhas imagens colocados no form não aparecem estendidas e sim lado a lado como altero isso?

Criquio conseguir resolver isso

fiz com o caminho relativo

fncLocalFundo = Application.CurrentProject.Path & "\imagens\fundo\"

adicionei o objeto Application à função e já tenho pastas das mesmas imagens com os mesmos nomes e formatos diferentes, em bmp, jpeg, tiff, gif e todos mudam as imagens repetidas e de formatos diferentes, só o formato png que não aparece nada fica tudo marron, porem não fecha o bd nem gera mensagem de erro. O que será?

E a imagem fica em lado-a-lado, o que faço para ela ficar em estender como nas propriedades de video do windows?

grato

Consegui.

Joguei no Corel Draw e exportei como jpg na resolução de 1024 X 768 e no padrão de RGB (24 bits) o padrão CMYK de 32 bits o access não aceitou não apareceu nada.

Agora sim está tudo bem

Grato pela a ajuda.


Brigadooooooooooooooooooooooooooo


Adilson