Usando Access

Vídeo - Criando Ribbons parte 4 - Imagens Externas

Podemos inserir imagens externas em todos os controles da ribbon que permitem o uso dos atributos image e getImage.   Fazemos uso do getImage apenas quando necessitamos selecionar as imagens em tempo de execução, do contrário, usamos o atributo image.

O MontaRibbons possui uma pasta de nome imagens é lá você terá como exemplo dois arquivos:  avel.gif e feed.png que são usados na ribbon de exemplo rbImagens. 

Quando você estiver criando sua ribbon, copie suas imagens para a pasta imagens do MontaRibbons.   Deverá posteriormente copiá-las para a pasta imagens do seu projeto. 

Criar a pasta de nome imagens, no mesmo local do aplicativo, facilita muito a programação e nos permite usar o caminho relativo com a propriedade path.   Veja mais detalhes aqui neste artigo.

Para o atributo image funcionar é necessário usar o atributo loadImage da tag customUI , que chama pela função de carregamento de imagens fncLoadImage.  

Observe abaixo, o atributo loadImage na tag customUI:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="fncRibbon" loadImage="fncLoadImage">

...
<button
id = "bt1"                         
label = "Feed"
image="feed.png"
size="large"
onAction = "fncOnAction"
/>
...

</customUI>

Toda vez que o atributo image for utilizado, ele fará uso da função fncLoadImage.

Veja a função fncLoadImage:

Public Sub fncLoadImage(imageId As String, ByRef Image)
On Error GoTo trataerro
Dim caminho As String
caminho = CurrentProject.Path & "\imagens\"
    If InStr(imageId, ".png") > 0 Or InStr(imageId, ".ico") > 0 Then
        Set Image = LoadImage(caminho & imageId)
    Else
        Set Image = LoadPicture(caminho & imageId)
    End If
sair:
    Exit Sub
trataerro:
    Select Case Err.Number
        Case 2220
            MsgBox "Imagem " & imageId & _

            " não encontrada no caminho indicado...", vbInformation, "Aviso"
        Case Else
            MsgBox "Erro: " & Err.Number & _

            vbCrLf & Err.Description, vbCritical, "Aviso", _
            Err.HelpFile, Err.HelpContext
    End Select
    Resume sair:
End Sub

O argumento imageId  da função, traz o nome da imagem dada no atributo image de um controle.  Este nome deve coincidir com o nome da imagem armazenada na pasta imagens.   O argumento image da função carrega então a imagem da pasta, no controle da ribbon.

Imagens GIF, JPEG e BMP são aceitas diretamente nos controles (button, gallery,...) da ribbon, utilizando o método LoadPicture do Access.  Já as imagens PNG e ICO precisam ser transformadas em BMP para então ser possível o seu carregamento.  Isto é feito através de uma função chamada LoadImage, que usa APIs do Windows para realizar essa transformação.  O MontaRibbons exporta para o seu projeto estas APIs num módulo chamado mod_picture.

Observe o código XML completo de uma ribbon, usando dois botões que carregam as imagens da pasta imagens do MontaRibbons:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="fncRibbon" loadImage="fncLoadImage">

<ribbon startFromScratch="true">

<tabs>
<tab id = "gui1" label = "Guia 1" >
<group id = "gr1" label = "Botões com imagens externas">
<!-- para carregar arquivo PNG é usada a função LoadImage -->
<button
id = "bt1"
label = "Feed"
image="feed.png"
size="large"
onAction = "fncOnAction"
/>
<!-- para carregar arquivo GIF é usado o método LoadPicture do Access -->
<button
id = "bt2"
label = "Avelino"

image="avel.gif"
size="large"
onAction = "fncOnAction"
/>

</group>
</tab>

</tabs>
</ribbon>
</customUI>

Como resultado temos a ribbon :

Como havia dito, podemos carregar nossas imagens utilizando o atributo getImage.  Esta opção é usada para uma necessidade da troca de imagens em tempo de execução.  Usaremos como exemplo a mesma XML acima, trocando apenas o atributo image pelo atributo getImage.  O atributo getImage não depende do atributo loadImage da tag customUI.

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"
onLoad="fncRibbon">

<ribbon startFromScratch="true">

<tabs>
<tab id = "gui1" label = "Guia 1" >
<group id = "gr1" label = "Botões com imagens externas">
<!-- As imagens são definidas na função fncGetImage -->
<button
id = "bt1"
label = "Feed"

getImage="fncGetImage"
size="large"
onAction = "fncOnAction"
/>

<button
id = "bt2"
label = "Avelino"

getImage="fncGetImage"
size="large"
onAction = "fncOnAction"
/>

</group>
</tab>

</tabs>
</ribbon>
</customUI>

Com isso, a imagem é definida na função fncGetImage.  Veja a função abaixo:

Public Sub fncGetImage(control As IRibbonControl, ByRef Image)
On Error GoTo trataerro
Dim caminho As String
Dim strNomeImagem As String
caminho = CurrentProject.Path & "\imagens\"
Select Case control.Id
  Case "bt1"

     strNomeImagem = "feed.png"
  Case "bt2"

     strNomeImagem = "avel.gif"
End Select

If InStr(strNomeImagem, ".png") > 0 Or InStr(strNomeImagem, ".ico") > 0 Then
  Set Image = LoadImage(caminho & strNomeImagem)
Else
  Set Image = LoadPicture(caminho & strNomeImagem)
End If

sair:
  Exit Sub
trataerro:
  Select Case Err.Number
    Case 2220
      MsgBox "Imagem do botão " & control.Id & _

      " não encontrada no caminho indicado...", vbInformation, "Aviso"
    Case Else
      MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, _

      vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
  End Select
  Resume sair:
End Sub

Montei um arquivo exemplo que faz a troca de imagens em tempo de execução de um controle gallery para você ficar com uma noção melhor do que é possível ser feito.

Download

Veja o arquivo exemplo:

Vídeo-aula

Nesta vídeo-aula você terá uma breve apresentação do uso de imagens externas e irá acompanhar uma apresentação do arquivo exemplo que usa o controle gallery, em tempo de execução.

Como EXIBIR a vídeo-aula em tela cheia?

1. clique na seta executar da tela abaixo para iniciar a exibição do vídeo;

2. dê dois cliques rápidos na tela, quando o vídeo começar a ser exibido.

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |