Marquee Banner Dinamico
Publicado por Luis (15 intervenciones) el 14/03/2019 01:00:58
Hola a todos Alguien me puede ayudar quiero hacer un Marquee (Banner) con movimiento dentro de un formulario que contenga la informacion de
Query: Comunicado
Campo: Mensaje
Tipo: Long Text
tengo este codigo pero no le puedo asignar el valor a Messaje
xfa salu2!
Query: Comunicado
Campo: Mensaje
Tipo: Long Text
tengo este codigo pero no le puedo asignar el valor a Messaje
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Public Message As String
Private Sub Form_Open(Cancel As Integer)
Message = "saludos amigous -"
End Sub
Private Sub Form_Timer()
txtMarquee.Caption = Message
Dim firstCharacter As String
firstCharacter = Left(txtMarquee.Caption, 1)
Message = Mid$(Message, 2, Len(Message) - 1)
Message = Message + firstCharacter
End Sub
xfa salu2!
Valora esta pregunta
0
