USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Animando a Barra de Título de um Form
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Para criar uma animação na barra de título do Form (tipo Marquee), basta você colocar no Form o código abaixo.

'Será usado p/ parar a animação quando o Form
'for fechado. Coloque no Declarations do Form:
Dim bFechado As Boolean

Private Sub Form_Activate()
  Dim iTempo As Single, bDiminui As Boolean
  Dim iNum As Integer, iLarg As Integer
  Dim iLargT As Integer, Texto As String
  iTempo = Timer
  Do While Not bFechado
    If Timer > iTempo + 0.01 Then
      iTempo = Timer
      Select Case bDiminui
        Case False
          iNum = iNum + 1
          Texto = String(iNum, " ") & _
                  "Mensagem do Marquee"
          iLargT = TextWidth(Texto)
          iLarg = ScaleWidth - 1110
          If iLargT >= iLarg Then
            iNum = iNum - 2
            bDiminui = True
            Texto = String(iNum, " ") & _
                    "Mensagem do Marquee"
          End If
        Case Else
          iNum = iNum - 1
          If iNum < 1 Then
            iNum = 1
            Texto = "Mensagem do Marquee"
            bDiminui = False
          Else
            Texto = String(iNum, " ") & _
                    "Mensagem do Marquee"
          End If
      End Select
      Caption = Texto
    End If
    DoEvents
  Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
   bFechado = True
End Sub
Detalhe, modifique as linhas onde aparece "Mensagem do Marquee" pelo texto que você quizer que apareça.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página