Access - Texto con desplazamiento

 
Vista:

Texto con desplazamiento

Publicado por juan (1 intervención) el 22/08/2002 22:01:00
Por favor me podrías decir si es complicado agregar un texto con desplazamiento a un formulario, y si no lo es como hacerlo? Si podéis os agradeceria que me dijerais como algo llamativo, letras apareciendo y desaparaceciendo, no sé lo que se os ocurra que se puede hacer y no sea excesivamente complicado.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Texto con desplazamiento

Publicado por Javier Ruiz (31 intervenciones) el 23/08/2002 13:47:23
Haz un form con una etiqueta llamada Etiqueta4 y pega esto en el código:
Dim cadena As String
Dim LongitudFrase As Integer
Dim contador As Integer
Dim contador2 As Integer
Option Compare Database

Private Sub Form_Load()
Me.TimerInterval = 200
cadena = "Mira como me muevo"
LongitudFrase = Len(cadena)
contador = 0
contador2 = LongitudFrase
End Sub

Private Sub Form_Timer()
If contador < LongitudFrase Then
Etiqueta4.Caption = Right(cadena, contador)
contador = contador + 1
Else
If contador2 >= 0 Then
Etiqueta4.Caption = Space(LongitudFrase - contador2) & Left(cadena, contador2)
contador2 = contador2 - 1
End If
End If

If contador = LongitudFrase And contador2 = 0 Then
contador = 0
contador2 = LongitudFrase
End If
End Sub

Luego lo apañas a tu gusto.
Saludos,
Javi.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar