✔ Programação GLOBAL®: bar

Sim, alterar a mensagem que é mostrada na Barra de Status da sua aplicação MS Access pode ser algo que desejará um dia. Como? Segue código abaixo.

Function ChageStatusBar

Dim nStatus As Variant
Dim nMess As String

Let nMess = "Copyright 2012 - A&A - In Any Place"

' Mostra a mensagem.
Let nStatus = SysCmd(acSysCmdSetStatus, nMess)

' Limpa a mensagem.
Let nStatus = SysCmd(acSysCmdClearStatus)

Tags: VBA. Access, Bar, StatusBar, message, mensagem, barra de status,

VBA Access - Usando o Sistema de Cores do Windows(R) nas suas aplicações.

| Blog Office VBA | Blog Excel | Blog Access |

Quando estamos desenvolvendo aplicações que serão utilizadas num departamento ou mesmo na empresa com o um todo, sempre nos deparamos com os 'gostos' personalizáveis dos usuários e, apesar de desejarmos ignorá-los, devemos tê-los em consideração.

Também pode ser possível que o nosso cliente utilize a nossa aplicação em diversos locais diferentes e nestes casos o gosto das inúmeras pessoas que utilizarão nossa aplicação serão multiplicados ao excesso.

Nos casos acima e ainda em outros pode ser interessante permitir que a interface da aplicação possa adequar-se ao conjunto de cores padrão do Windows® que estiver configurado na máquina do usuário que a rodará.

Esse aparente detalhe pode ser a diferença entre fazer sua aplicação ser melhor aceita pelos usuários ou ser prontamente rejeitada por ter uma cor que não se harmoniza com o gosto geral.

Abaixo transcrevo uma solução muito interessante de Peter´s Software, sei que gostará, pelo menos como fonte de estudos e inspiração.

Abaixo segue o sistema de cores:

ID da Cor Descrição da Cor

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

-2147483648 Scroll bar

-2147483647 Desktop

-2147483646 Active window title bar

-2147483645 Inactive window title bar

-2147483644 Menu bar

-2147483643 Window

-2147483642 Window frame

-2147483641 Menu Text

-2147483640 Window Text (*)

-2147483639 Title bar text

-2147483638 Active window border

-2147483637 Inactive window border

-2147483636 Application background

-2147483635 Highlight

-2147483634 Highlight Text

-2147483633 3-D face (**)

-2147483632 3-D shadow

-2147483631 Dimmed (disabled) text

-2147483630 Button Text

-2147483629 Inactive window title bar text

-2147483628 3-D highlight (***)

-2147483627 3-D dark shadow

-2147483626 3-D light

-2147483625 ToolTip Text

-2147483624 ToolTip background

-2147483621 Active window title bar color2

* - Cor das fontes.

** - Detalhes no backcolor do FORM, desabilitando a caixa de texto.

*** - Texto do Label.

Ei, talvez queira a aplicação pronta. Para importar este FORM na sua aplicação e beneficiar-se da interface acima, baixe-a aqui.

Para manter as cores de todos os FORMs da sua aplicação identificados com a mesma cor do esquema de cores do Windows®, o usuário poderá ir ao Painel de Controle > Vídeo > Aparência.

Aplicável em: MS Access 97, MS Access 2000, MS Access 2002, MS Access XP, MS Access 2007, MS Access 2010

Fonte: Peter´s Software

Tags: Bernardes, VBA, Office, Access, Windows, automation, color, colors, background, text, bar, cor

VBA Excel - Retirando os menus

| Blog Office VBA | Blog Excel | Blog Access |

Hello Folks!

Para tornar as nossas aplicações mais profissionais e até mesmo impedir que os nossos "queridos usuários" utilizem algumas funcionalidades que não desejamos, costumamos tornar os menus principais das nossas aplicações indisponíveis.

Fazendo isso podemos "protegê-los" (e a nós mesmos) de alguns erros inoportunos.

Dica compartilhada pelo amigo Denis Ostorero (10 Ago 2009)

VERSÃO 2003

For Each Barras In Application.CommandBars

Barras.Visible = True ' Desabilita todas as barras do MS Excel.

Next

Restaurando...

For Each Barras In Application.CommandBars

Barras.Visible = True ' Re-habilita todos os Menus do MS Excel.Next

VERSÃO 2007

With Application

.DisplayFormulaBar = False ' Desabilita o Menu de fórmula.

.DisplayStatusBar = False ' Desabilita o Menu de Status.

.DisplayFullScreen = True

.CommandBars("Full Screen").Visible = False

.CommandBars("Worksheet Menu Bar").Enabled = False

End With

Restaurando...

With Application

.DisplayFormulaBar = True ' Re-habilita o Menu de fórmulas.

.DisplayStatusBar = True ' Re-habilita o Menu de Status.

.DisplayFullScreen = False

.CommandBars("Worksheet Menu Bar").Enabled = True

End With

Referências: Denis Ostero

Tags: VBA, Excel, Menu, Bar, Barra,