Contente

• Instruções

Adicione um letreiro usando um controle de caixa de texto para capturar a atenção do usuário facilmente quando estiver usando o Microsoft Access. Nele é possível usar o Visual Basic for Applications (VBA) para automatizar o processo de rolagem de textos em um controlador. O VBA é uma linguagem de programação usada para ampliar as aplicações do Microsoft Office. Use o evento "Form.Timer" (tempo do formulário) para executar um subprocedimento que atualizará, continuamente, o conteúdo da caixa de texto.

Instruções

Use o VBA no Access para atualizar um controle (Comstock/Comstock/Getty Images)

1. Clique na aba "Criar" e depois em "Projeto de formulário" para ciar um novo formulário. Pressione "Caixa de texto" no painel "Controles" e, depois, no formulário para adicionar um novo controle de caixa de texto. Clique com o botão direito na aba "Formato" e defina a propriedade "Alinhamento do texto" para "Direita". Pressione a aba "Outros" e digite "txtMarquee" em "Nome".

2. Clique com o botão direito no formulário, depois em "Construir evento" e dê um duplo clique em "Construtor de código" para executar a janela do editor VBA. Pressione "Ctrl" e "A" para selecionar todo o código padrão e, depois, pressione "Delete" para remover o código.

   
   

3. Copie e cole o código a seguir para adicionar variáveis globais que usará no código:

   Dim textStr As String Dim padstr As String Dim txtScroll As String Dim txtLength As Integer Dim iLength As Integer Dim iPos As Integer Dim iView As Integer Dim iRem As Integer

4. Adicione o código a seguir para definir o texto que percorrerá o controle da caixa de texto:

   Private Sub Form_Load() txtMarqee.SetFocus txtMarqee.Text = "" textStr = "Como adicionar uma caixa de texto tipo letreiro ao Microsoft Access" padstr = " " txtScroll = textStr & padstr txtLength = Len(txtScroll) iLength = Len(padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

5. Crie um subprocedimento que chamará o "moveText":

   Private Sub Form_Timer() moveText End Sub

6. Crie o subprocedimento "moveText" que, realmente, rolará o texto mostrado no controle da caixa de texto:

   
   

   Private Sub moveText()

   txtMarqee.SetFocus txtMarqee.Text = Mid(txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   If (iPos - 1) < (txtLength - iLength) Then If iView < 20 And iView < iRem Then iView = iView + 1 End If

   If iPos < txtLength And iView >= 20 Then iPos = iPos + 1 End If Else txtMarqee.Text = "" iPos = 1 iView = 1 End If End Sub

7. Volte para o Microsoft Access e clique no ícone "Visualizar" para executar o programa. O texto definido no Passo 4 rolará através da caixa de texto.