sexta-feira, 20 de outubro de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #45
Função para cálculo de financiamento
Publicado: 29/05/2005

Dicas

Barra de Título Passo-A-Passo
Autor:  Maylson Lívio (maylson_livio@yahoo.com.br)
Publicado:  31/12/1969
Visitas: 6397
 
De: Maylson Enviado: Tue May 3 21:13

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.

Desde já agradeço e fico aguardando retorno ok?

Maylson Lívio
===============================================================

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.

strTexto = "Seu Texto Animado Aqui"
strEspacos = ""
Me.TimerInterval = 500

7) Ao fim do passo 6, deve ficar assim:

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

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco