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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Marquee em Visual Basic 6
Postada em 1/3/2007 por Edinei      Clique aqui para enviar email para o autor  neisjb@hotmail.com
'é tudo no form

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, " ") & _
                  "Layana"
          iLargT = TextWidth(Texto)
          iLarg = ScaleWidth - 1110
          If iLargT >= iLarg Then
            iNum = iNum - 2
            bDiminui = True
            Texto = String(iNum, " ") & _
                    "Linda"
          End If
        Case Else
          iNum = iNum - 1
          If iNum < 1 Then
            iNum = 1
            Texto = "Mens"
            bDiminui = False
          Else
            Texto = String(iNum, " ") & _
                    "Linda ,,,, Linda,,,,Linda"
          End If
      End Select
      Caption = Texto
    End If
    DoEvents
  Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
   bFechado = True
End Sub

'minha filha lay de 1 aninho
 


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