Programação  
 
Conhecimento computador >> Programação >> Programação Visual Basics >> 
Como Auto Scroll de texto em uma caixa de texto usando VB.NET
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.


Anterior :

Próximo : No
  Os artigos relacionados
·Como parar um processo, de VB6.0 
·Como melhorar o Microsoft Word VBA Tabela Lentidão 
·Como detectar a tecla TAB em ComboBox no VBA 
·Como melhorar o desempenho do VBA no Word 
·Como usar Vb.Net em HTML dinâmico 
·Como chamar um pacote SSIS De VBScript 
·Como converter Hex para Decimal em VB.NET 
·Como excluir seleções de DataGridViewComboBox 
·O que é programação CLR 
·Como acessar a função SendKeys 
  Artigos em destaque
·Framesets corretos para JavaScript 
·C + + funções que causam buffer overflows 
·Como fazer uma chamada de DLL no LabVIEW 
·Javascript Data Tutorial 
·Como alterar títulos na barra de tarefas com o MFC 
·Como fazer upload de PHP Imagem & Make Miniatura Inserç…
·Como criar uma Lista de uma string em Python 
·Como determinar Mesmo Números a partir de números ím…
·Como executar um script em Lua 
·MySQL Texto Vs . Varchar 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados