Adicionar um letreiro usando um controle de caixa de texto para pegar rapidamente a atenção do usuário durante o uso do aplicativo Microsoft Access. No Access , você pode usar o Visual Basic for Applications (VBA) para automatizar o processo de rolagem de texto em um controle. VBA é uma linguagem de programação de computadores usados para estender os aplicativos do Microsoft Office. Use o evento " Form.Timer " para executar um procedimento sub que irá atualizar continuamente o conteúdo na caixa de texto. Instruções
1
Clique na aba " Criar" e clique em " Form Design" para criar um novo formulário. Clique em " Caixa de texto " no painel " Controles " , e clique no formulário para adicionar um novo controle de caixa de texto. Botão direito do mouse na caixa de texto e clique em "Propriedades" para exibir a " Folha de Propriedades . " Clique na aba " Format" , e defina a propriedade "Texto Align " para " Certo". Clique na aba " Outros" , e digite " txtMarqee " ao lado de " Nome".
2
botão direito do mouse no formulário, clique em " Criar Evento " e clique duas vezes em " Construtor de código " para lançamento janela do editor VBA. Pressione " Ctrl" e "A" para selecionar todo o código padrão e pressione "Delete" para remover o código .
3
Copie e cole o seguinte código para adicionar variáveis globais que você vai usar em seu 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 seguinte código para definir o texto que irá percorrer o controle de caixa de texto :
Private Sub Form_Load ()
txtMarqee.SetFocus
txtMarqee.Text = ""
textStr = " Como adicionar uma caixa de texto Scrolling Marquee para o Microsoft Access "
padstr = ""
txtScroll = textStr & padstr
txtLength = Len ( txtScroll )
iLength = Len ( padstr )
Me.TimerInterval = 500
iPos = 1
iView = 1
End Sub
5
Criar um procedimento sub que vai chamar o " moveText " sub procedimento :
Private Sub Form_Timer ()
moveText
End Sub
6
Crie o " moveText " sub procedimento que realmente vai rolar o texto exibido no controle de caixa de texto:
sub moveText privado ( )
txtMarqee.SetFocus
txtMarqee.Text = Mid ( txtScroll , iPos , iView )
IREM = txtLength - ( + iPos iView - 1 )
Se (IPOs - 1) <( txtLength - iLength ) Então
Se iView <20 E iView < IREM Então
iView = iView + 1
End If
Se iPos < txtLength E iView > = 20 Então
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 " Ver " para executar o programa. O texto definido na etapa quatro começará a rolar através da caixa de texto.
