Marquesina

Lichi
25 de Marzo del 2004
Quiero insertar en un formulario una marquesina, es decir una especie de etiqueta o textbox en la que el texto se vaya desplazando.
Gracias.

sdemingo
25 de Marzo del 2004
Hola,

tienes que progamarlo a pelo porque no si hay algún ocx por ahí que lo haga.... me propongo el reto de hacerlo yo....

De momento paso el código para hacer la márquesina con un label.

Private Sub Form_Load()

' Cargo la imagen que quiero que se desplace en la marquesina en el control Image1
Image1.Picture = LoadPicture(App.Path & "sdemingo.jpg")

' Le doy al control Timer un Interval de 100
' (cuando mayor sea el valor, más despacio se moverá la imagen
' en la marquesina)
Timer1.Enabled = False
Timer1.Interval = 100
Timer1.Enabled = True

End Sub


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

' Puntero del ratón por defecto (flecha)
Screen.MousePointer = 0

End Sub



Private Sub Timer1_Timer()

' Si llega al principio del formulario y desaparece, la vuelvo a mostrar
' desde la derecha del todo
If (Image1.Left + Image1.Width) <= 0 Then
Image1.Left = Form1.Width
End If

' Cuando se cumple el Interval del control Timer, muevo el control Image
' hacia la izquierda 100 pixels
Image1.Left = Image1.Left - 100

End Sub


salu2
sdemingo
http://boards.melodysoft.com/sdemingo