CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Maquesina En Un Texbox

(1/3) > >>

Thanatos-chan:
ejeje suena raro, pero si lo que quiero hacer es un desplazamiento de texto dentro del texbox. cual es el objetivo dar la sensacion de movimiento a otro programa que estoy haciendo. lo que quiero simular es el desplazamiento que hace un radio. no se si me entienden????


--- Código: Text --- Public Class Form1    Dim marquesina As String Private Sub btn_corre_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_corre.Click        marquesina = "esto es una marquesina"        txt_pantalla.Text = marquesina        Dim aux As Integer        Dim x As Integer = 1        For aux = 0 To 100            aux = aux + 1            txt_pantalla.Text = "esto es una marquesina"            txt_pantalla.TextAlign = HorizontalAlignment.Left            txt_pantalla.TextAlign = HorizontalAlignment.Center            txt_pantalla.TextAlign = HorizontalAlignment.Right        Next    End SubEnd Class  
lo que obtengo con eso es que el textbox se desabilite durante es ciclo y cuando termina ya el mensaje esta alineado a las derecha, yo quiero que se vea como se desplaza.

se que suena raro pero lleva mucha logica  :comp:  :P
abierto a sugerencias!!!!!

Cajami:
Hola haber dejame si te entendí, lo que quieres es que el texto se vea como si estuviera corriendo hacia un lado?, bueno si es así porque no utilizas el control Timer ps te explico:

El control timer tiene una propiedad que es Tag (creo :D) bueno allí escribe algún texto, por ejemplo Visual Basic, ahora dale doble clic al timer y codifica esto:

Timer1.Tag = Mid(Timer1.Tag,2) & Microsoft.VisualBasic.Left(Timer1.Tag,1)
TextBox1.Text = Timer1.Tag

Ponle al timer su intervalo para que vaya mas rapido o mas lento. No vemos  :hola:

Tumbes - Perú

Thanatos-chan:
ehy muchas gracias por la mano, funciona nitido,

ahora dos preguntas, yo quiero cambiar el tag para poder simular que estan corriendo los track de un cd y estoy usando


--- Código: Text --- track1="lo que yo quiero poner"Timer1.Tag = track1  y entonces activo el timer, pero la propidad tag comienza a deslpegar segun el tamaño de la palabra, asi que he tenido que hacer truco de camara para aparentar que esta saliendo de la otra esquina del texbox asi

--- Código: Text --- track1=lo que yo quiero poner                                              "   :P  no habra otra manera de hacer eso????

tambien

--- Código: Text ---  Timer1.Tag = Mid(Timer1.Tag, 2) & Microsoft.VisualBasic.Left(Timer1.Tag, 1)        txt_pantalla.Text = Timer1.Tag  
la parte de microft.visalbasic.left es similar a esto
--- Código: Text --- "txt_pantalla.TextAlign = HorizontalAlignment.Left" 

Cajami:
puedes especificar mejor tu pregunta porque no la entiendo  :hola:

Tumbes - Perú

senzao18:

--- Citar ---tambien

CODE 

Timer1.Tag = Mid(Timer1.Tag, 2) & Microsoft.VisualBasic.Left(Timer1.Tag, 1)
       txt_pantalla.Text = Timer1.Tag
 



la parte de microft.visalbasic.left es similar a esto
CODE 
"txt_pantalla.TextAlign = HorizontalAlignment.Left"

--- Fin de la cita ---

Son cosas diferentes.....

HorizontalAlignment.Left<--- Alinea a la izquierda.

en cambio Left devuelve una cadena que contiene un número especificado de caracteres desde el lado izquierdo de una cadena.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente