Criar um aplicativo Visual Basic.NET que o texto rola auto em um controle TextBox pode ser facilmente realizado utilizando matrizes de corda e um temporizador. Um controle timer em VB.NET irá executar código de forma contínua até que o programa termina. Use uma matriz de String para preenchê-lo com o texto que você deseja rolar e exibir diferentes elementos da matriz na caixa de texto usando o timer para mostrar o efeito de rolagem. Instruções
1
Abra o Microsoft Visual Studio , clique em " New Project" no painel esquerdo da tela do computador e expandir " Visual Basic" abaixo " modelos instalados". Clique em " Windows" e clique duas vezes no centro da janela de diálogo para criar um novo projeto " Windows Forms Application " .
2
duplo clique em " timer " para adicionar um a sua forma . Clique duas vezes em " TextBox " para adicionar uma nova caixa de texto ao seu formulário. Clique duas vezes no formulário para criar um evento de carregamento de forma
3
Adicione o seguinte código acima o evento de carregamento de formulário para criar três variáveis globais, incluindo a que irá realizar o seu texto de rolagem . :
Dim scrollingText As String = " Este é o meu texto de rolagem "
Dim txtStr ( scrollingText.Length - 1) As String Dim
txtPos As Integer = -1 < br >
4
Adicione o seguinte código dentro do evento de carregamento do formulário para percorrer o texto de rolagem e iniciar o temporizador :
Para idx as Integer = 0 To UBound ( txtStr )
Dim workedString As String = ""
workedString = scrollingText.Substring ( idx ) & "" & scrollingText.Substring ( 0, idx )
txtStr ( idx ) = workedString
Em seguida
Timer1.Interval = 75
Timer1.Enabled = True
Timer1.Start ()
5
Volte para formar exibição de design e clique duas vezes " Timer1 " para criar um evento de escala para o temporizador. Adicione o seguinte código dentro do evento :
txtPos + = 1
Dim timerStr As String
timerStr = txtStr ( txtPos )
Label1.Text = timerStr
Se txtPos = UBound ( txtStr ) Então txtPos = -1
6
Pressione " F5" para executar o programa e exibir texto de rolagem usando a caixa de texto.