Para: ativoaccess@ativoaccess.com.br Prioridade: Normal
Assunto: Dica: Como Criar Uma Barra de Título Passo-A-Passo Tipo: Attachments
Olá Editores do AtivoAccess!
Meu Nome é Maylson Lívio e tenho 16 anos e sou de Belém do Pará.
Gostaria de entrar para a lista de colaboradores por meio desta dica que ensina como criar uma barra de título animada.
Obs.: Fiz e testei este código usando a versão 2003 do access. E quero deixar claro que este mesmo código pode sofrer "n" alterações, porém, ficaria muito grato caso um email me fosse passado com o novo código.
Autor: Maylson Lívio
Email: maylson_livio@yahoo.com.br
Assunto: Criando uma Barra de Título Animada Passo-A-Passo
Esta pequena dica tem como intuito ajudar você à fazer uma “Barra de Título Animada”, coisa que é muito procurada nos fóruns.
1) Crie um Formulário ou abra o formulário que você deseja ter a Barra de Título Animada.
2) Vá no “Editor de Código” do seu formulário.
3) Logo abaixo de: “Option Compare Database”, Ponha:
Dim strTexto As String
Dim strEspacos As String
Dim strCaption As String
Dim intTexto As Integer
Dim intEspacos As Integer
Dim intCaption As Integer
4) Salve e Feche o Editor de Código.
5) Abra as propriedades do seu formulário, e na aba “Eventos”, localize o evento “Ao Abrir”, clique no botão que fica ao lado (…) e escolha a opção “Construtor de Código”.
Vai aparecer assim:
Private Sub Form_Open(Cancel As Integer)
End Sub
6) Copie e cole o seguinte código para dentro do procedimento.
Private Sub Form_Open(Cancel As Integer)
strTexto = "Seu Texto Animado Aqui"
strEspacos = ""
Me.TimerInterval = 500
End Sub
8) Feche o Editor de Código. Abra as propriedades do seu formulário, e na aba “Eventos”, localize o evento “No Timer”, clique no botão que fica ao lado (…) e escolha a opção “Construtor de Código”.
Vai aparecer assim:
Private Sub Form_Timer()
End Sub
8) Copie e cole o seguinte código para dentro do procedimento.
strEspacos = strEspacos + " "
strCaption = strEspacos + strTexto
intEspacos = Len(strEspacos)
intTexto = Len(strTexto)
Me.Form.Caption = strCaption
intCaption = intEspacos + intTexto
If intCaption = 50 Then
strEspacos = ""
End If
Me.Form.Repaint
9) Ao fim do passo 8, deve ficar assim:
Private Sub Form_Timer()
strEspacos = strEspacos + " "
strCaption = strEspacos + strTexto
intEspacos = Len(strEspacos)
intTexto = Len(strTexto)
Me.Form.Caption = strCaption
intCaption = intEspacos + intTexto
If intCaption = 50 Then
strEspacos = ""
End If
Me.Form.Repaint
End Sub
10) Pronto! Agora é só abrir o seu formulário e ver como ficou! Veja abaixo como vai ficar o código completo:
Option Compare Database
Dim strTexto As String
Dim strEspacos As String
Dim strCaption As String
Dim intTexto As Integer
Dim intEspacos As Integer
Dim intCaption As Integer
Private Sub Form_Open(Cancel As Integer)
strTexto = "Seu Texto Animado Aqui"
strEspacos = ""
Me.TimerInterval = 500
End Sub
Private Sub Form_Timer()
strEspacos = strEspacos + " "
strCaption = strEspacos + strTexto
intEspacos = Len(strEspacos)
intTexto = Len(strTexto)
Me.Form.Caption = strCaption
intCaption = intEspacos + intTexto
If intCaption = 50 Then
strEspacos = ""
End If
Me.Form.Repaint
End Sub
segunda-feira, 26 de junho de 2017
