Texto Deslizante en VB6
Hola a todos.
Lo que quiero hacer es con un InputBox introducir un texto, y ese texto hacerlo deslizante (tipo el de marquesina del Frontpage, por ejemplo)
Mi duda es en que objeto lo pongo, y si se puede hacer, que imagino que si.
Saludos!
Lo que quiero hacer es con un InputBox introducir un texto, y ese texto hacerlo deslizante (tipo el de marquesina del Frontpage, por ejemplo)
Mi duda es en que objeto lo pongo, y si se puede hacer, que imagino que si.
Saludos!
1 respuesta
Respuesta de orande
1
Esto lo he encontrado por ahí, es con un Timer (intervalo 50) y un PictureBox:
Private Sub Timer1_Timer()
Const MENSAJE = "Esto es un ejemplo de marquesina"
Static hecho_antes As Boolean
Static msg_width As Single
Static X As Single
If Not hecho_antes Then
msg_width = Picture1.TextWidth(MENSAJE)
hecho_antes = True
X = Picture1.ScaleWidth
End If
Picture1.Cls
Picture1.CurrentX = X
Picture1.CurrentY = 0
Picture1.FontName = "Arial" ' o lo que quieras
Picture1.FontBold = True ' opcional, claro
Picture1.Print MENSAJE
X = X - 30
If X < -msg_width Then X = Picture1.ScaleWidth
End Sub
Creo que es lo que buscas...
Private Sub Timer1_Timer()
Const MENSAJE = "Esto es un ejemplo de marquesina"
Static hecho_antes As Boolean
Static msg_width As Single
Static X As Single
If Not hecho_antes Then
msg_width = Picture1.TextWidth(MENSAJE)
hecho_antes = True
X = Picture1.ScaleWidth
End If
Picture1.Cls
Picture1.CurrentX = X
Picture1.CurrentY = 0
Picture1.FontName = "Arial" ' o lo que quieras
Picture1.FontBold = True ' opcional, claro
Picture1.Print MENSAJE
X = X - 30
If X < -msg_width Then X = Picture1.ScaleWidth
End Sub
Creo que es lo que buscas...
Gracias por el dato, ayer hice algo medio parecido pero con un label,
Aquí va el código si a alguien le interesa:
Option Explicit
Dim info As String
Dim Ancho As Integer
Private Sub cmdIntroducirinfo_Click()
info = InputBox("Intoduzca Información")
lblTexto.Left = 6960
lblTexto.Caption = info
Ancho = lblTexto.Width
tmrDeslizar.Interval = hsbVelocidad
End Sub
Private Sub tmrDeslizar_Timer()
tmrDeslizar.Interval = hsbVelocidad
If lblTexto.Left <= 0 - Ancho - 3000 Then
lblTexto.Left = 6960
End If
lblTexto.Left = lblTexto.Left - 70
End Sub
Saludos
Aquí va el código si a alguien le interesa:
Option Explicit
Dim info As String
Dim Ancho As Integer
Private Sub cmdIntroducirinfo_Click()
info = InputBox("Intoduzca Información")
lblTexto.Left = 6960
lblTexto.Caption = info
Ancho = lblTexto.Width
tmrDeslizar.Interval = hsbVelocidad
End Sub
Private Sub tmrDeslizar_Timer()
tmrDeslizar.Interval = hsbVelocidad
If lblTexto.Left <= 0 - Ancho - 3000 Then
lblTexto.Left = 6960
End If
lblTexto.Left = lblTexto.Left - 70
End Sub
Saludos
