Texto Rolando

[mcelmo]

alo pessoal ,

Gostaria de saber como faço para um determinado texto ficar rolando no meu formulario da direita para a esquerda por um determinado tempo.

detalhe uso VS2003. No mais agradeço desde já. Caso alguém tenha algum exemplo, sera bem vindo.

[Graymalkin]

Declare isso dentro da sua classe:

  Label l = new Label();
  
  void eventoTick(object sender, System.EventArgs e) {
  	if ((l.Left+l.Width)<this.Width)
    l.Left += 10;
  }

Depois, coloque isso no evento onde você quer que o movimento se dê início (um click de um botão, por exemplo):

  	Timer t = new Timer();
  	
  	l.Text = "teste";
  	this.Controls.Add(l);
  	t.Interval = 100;
  	t.Tick += new System.EventHandler(this.eventoTick);
  	t.Start();

Certo?

Graymalkin

[mcelmo]

Graymalkin, muito obrigado pela ajuda, mas estou trabalhando em vb.net e desta forma me deu alguns erros, mas mesmo assim estou tentando adaptar para o que preciso. Muito Obrigado mesmo.

[mcelmo]

Graymalkin, Me desculpe mas estou tentando fazer este codigo no VB.NET e não consegui, você poderia me dar algumas instruções ???.

Valeu. Mcelmo

[Graymalkin]

O código é quase todo igual, exceto a parte da definição do evento (em C# é pela sobrecarga de += e em VB.NET é pela instrução AddHandler). Aquela primeira parte:

  Dim l As New Label()

  Private Sub eventoTick(sender As Object, e As System.EventArgs)
  	If l.Left+l.Width<Me.Width Then
    l.Left += 10
  	End If
  End Sub

E, a segunda parte, no evento que deverá dar início ao movimento:

  	Dim t As New Timer()

  	l.Text = "teste"
  	Me.Controls.Add(l)
  	t.Interval = 100
  	AddHandler t.Tick, AddressOf Me.eventoTick
  	t.Start()

Certo?

Graymalkin

[mcelmo]

Funcionou !. Mas o texto esta ficando parado no canto superior a direita, como faço para o mesmo ficar passando na tela como um loop até que uma condição fosse estabelecida?.

[Graymalkin]

Funcionou !. Mas o texto esta ficando parado no canto superior a direita, como faço para o mesmo ficar passando na tela como um loop até que uma condição fosse estabelecida?.

Aquele If em eventoTick serve justamente para esse propósito. Basta trocar aquele condição lá pelo que você quiser (e também zerar a posição quando chegar no final da tela, é claro).

Abraços,

Graymalkin

[mcelmo]

Graymalkin.

Me desculpe pela insistencia, é que sou novato no vb.net

mas você poderia por favor me descrever esta linha de comando. pois não consegui colocar o texto passando pela tela, e como controlar a ALTURA (quero dizer posicionamento) do Texto no video.

Dim l As New Label()

Private Sub eventoTick(sender As Object, e As System.EventArgs)

--> If l.Left+l.Width<Me.Width Then

l.Left += 10

End If

End Sub

mcelmo.

[§uiciDa£]

hehe, num so o graymalkin, maix axo q sirvo ...

Dim l As New Label()        '<------ Cria uma nova label instanciada de l

Private Sub eventoTick(sender As Object, e As System.EventArgs)

if left+l.Width<Me.Width Then         '<------ SE L.LEFT(posiçao) + L.WIDTH(largura) for menor q a largura do formulario (me.width) faz a seguinte instruçao

l.Left += 10       ' <------ a label 'l' mexe 10pixels para esquerda

End If

End Sub

e para mexer pra cima e pra baxo você muda:

width(largura) para hight(altura)

left(posiçao na horizontal) patra top(posiçao na vertical)

t++

[mcelmo]

OK. muito obrigado Funcionou !!!! valeu meu camarada.

brigadão.

[Graymalkin]

hehe, num so o graymalkin, maix axo q sirvo ...

Claro que serve! Foi mais rápido que eu... hehehehe.

Abraços,

Graymalkin