Ródapé!

[DuroPt]

Boas pessoal! Estoua pensar em fazer uma informação apassar em rodapé, ou seja, vai passando da esquerda para a direita. Tive a pensar e fiz o seguinte codigo:

Public Class Form1

    Dim A As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Do Until A < 0

            A = A - 1

        Loop

        Label1.Location = New Point(A, 900)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Location = New Point(1200, 900)

    End Sub

End Class

O problema, é que a label vai do lado direito ao laod esquerdo em menos de nada, o que eu acho que impossibilita de todo a leitura do rodapé! LOOL Ensinem-me  afazer um rodape de outra maneira, ou em tao melhorar esta ideia que eu tive XD

Abraços pessoal ;D

[jpaulino]

Depois de:

    A = A - 1

Adiciona um atraso (delay)

  System.Threading.Thread.Sleep(200)

(o valor é em milisegundos)

[DuroPt]

pois a intenção era boa mas acho que não deu XD

[DuroPt]

nao acho tnehoa certeza

Do Until A < 0

            A = A - 1

            System.Threading.Thread.Sleep(200)

        Loop

        Label1.Location = New Point(A, 900)

[jpaulino]

Não:

      Do Until A < 0

            A = A - 1

            Label1.Location = New Point(A, 900)

            System.Threading.Thread.Sleep(200)

        Loop

[DuroPt]

Do Until A < 0

            A = A - 1

            Label1.Location = New Point(A, 900)

            System.Threading.Thread.Sleep(200)

        Loop

continua a não dar :X

[jpaulino]

Desculpa não testei! Aqui vai

        A = 200

        Do Until A < 0

            A = A - 1

            Label1.Location = New Point(A, 900)

            System.Threading.Thread.Sleep(10)

            Application.DoEvents()

        Loop

[DuroPt]

obrigado vou ver se dá então ;D

[DuroPt]

ao que parece a coisa ta emmso dificil de se solucionar, é que nao me esta a dar tbm o gajo amluco sai da direita ta lgo an eskerda XD

[jpaulino]

Nã é nada difícil!

Mostra lá o que tens e tenta com 300 em vez de 900.

[DuroPt]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Do Until A < 0

            A = A - 1

            Label1.Location = New Point(A, 900)

            System.Threading.Thread.Sleep(10)

            Application.DoEvents()

        Loop

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label1.Location = New Point(1200, 900)

[DuroPt]

é isso que tneho :X

[DuroPt]

e vai de um lado ao outro num piscar de olhos

[jpaulino]

Antes do Do Until colocas A = 1200

Eu tinha colocado isso.

[DuroPt]

ahhaha excelente! dame um beijiiiinhuuu! XD é que tme emmso o feito de quem vai a coiso fogo és o amior quero ser como tu! LOOOL

Abraços !

Agora posso fazer outro loop, para quando A=0 ele fazer a memsa cena, ou seja, voltar a passra ainformação do rodapé?

[DuroPt]

como é que eu faxo para ele, dar aquele efeito de .."dar a volta"..vir da direita, desaparecer graudalemnte na eskerda e aparecer novamente na direita!!!!

[DuroPt]

        A = 1200
        Do While A <> 0
            Do Until A < 0
                A = A - 1
                Label1.Location = New Point(A, 900)
                System.Threading.Thread.Sleep(10)
                Application.DoEvents()
            Loop
            A = 1200
        Loop
    End Sub

Fiz assim, e tá mais ou menos 😛

[DuroPt]

o Uncio problema é que quando o incio do texto chega a margem esquerda, desaparece todo o texto, a e aminha dieia era ir desaparecendo, tal equal como no telejornal!

[Ivo Pereira]

o Uncio problema é que quando o incio do texto chega a margem esquerda, desaparece todo o texto, a e aminha dieia era ir desaparecendo, tal equal como no telejornal!

Por acaso ninguém sabe como fazer isto? Queria fazer um efeito parecido.

Abraço

[softklin]

Será isto que pretendem?

https://wiki.portugal-a-programar.pt/dev_net/vb.net/painel_deslizante/#o-exemplo-completo

Não tive oportunidade de testar, mas pelo nome acho que é isto que querem.