Pregunta: | 2891 - COMPONENTE PARA PASAR LAS FRASES COMO UNA MARQUESINA |
Autor: | José Juan González González |
Qusiera saber si existe algún componente como una caja de texto o etiqueta en la cual pudiera pasar un mensaje como si fuera una marquesina |
Respuesta: | Mariano Laguzzi |
´Marquecina que muestra información de apoyo. Dim Mensaje As String * 65 Static hecho_antes As Boolean Static msg_width As Single Static X As Single Mensaje = "Bienvenido/a a Distribuidora Santa Ana S.A." If Not hecho_antes Then msg_width = F.Picture1.TextWidth(Mensaje) hecho_antes = True X = F.Picture1.ScaleWidth End If With F.Picture1 .Cls .CurrentX = X .CurrentY = 0 .FontSize = 9 .FontName = "Courier New" .FontBold = True .FontItalic = True F.Picture1.Print Mensaje X = X - 30 If X < -msg_width Then X = .ScaleWidth End If End With End Sub Donde F es nombre del un formulario, necesitas un picture, y un coltrol timer1. Espero que te sirva....... |
Respuesta: | Luis Miguel Caballero |
Existe el Marquee.OCX que me parece es de Sheridan. Sugiero que visites www.winfiles.com y busques bajo la sección programación/visual basic components |
Respuesta: | Antonio Loyola |
Otra alternativa es que uses un control text o label común y uses el evento timer para ir simulando la marquesina. |