|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Marquee em Visual Basic 6
|
 |
|
|
|
Postada em 1/3/2007 por Edinei
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
|
|
|
|
|
