TEXTBOX NAO MOSTRA TODOS REGISTROS
Ola
Estou engatinhando no vb , criei um code que le um arquivo txt com umas 3000 linhas , dimencionei uma variavel dim(5000) , as linhas vão para a viriavel , mas no textbox só mostra + ou menos 700 linhas.
O que posso estar fazendo errado ?
Obrigado
Estou engatinhando no vb , criei um code que le um arquivo txt com umas 3000 linhas , dimencionei uma variavel dim(5000) , as linhas vão para a viriavel , mas no textbox só mostra + ou menos 700 linhas.
O que posso estar fazendo errado ?
Obrigado
pode estar usando o objeto errado, tente ao inves de usar um textbox, use um listbox, ou melhor um richtextbox, e acredito que se resolverá.
olha só mais uma pergunta, vc pega cada linha do arquivo texto, joga em uma matriz, pra depois jogar no textbox?
se for vc está criando um monstro, poste seu código para ajudarmos vc a desenvolver algo mais dinâmico.
olha só mais uma pergunta, vc pega cada linha do arquivo texto, joga em uma matriz, pra depois jogar no textbox?
se for vc está criando um monstro, poste seu código para ajudarmos vc a desenvolver algo mais dinâmico.
Ola marcelo
Ai esta o code
Private Sub BNT1_Click()
Dim A As Integer
Dim NUM_L As Integer
Dim LINHA(5000) As String
Dim lstrArquivo As String
Dim lstrLinha As String
lstrArquivo = [Ô]D:\QUINA.txt[Ô]
NUM_L = 1
Open lstrArquivo For Input As #1
Do While Not EOF(1)
Line Input #1, LINHA(NUM_L)
Text1.Text = Text1.Text & LINHA(NUM_L) & Chr$(13) & Chr$(10)
Text2.Text = NUM_L & [Ô] ### [Ô] & LINHA(1000)
NUM_L = NUM_L + 1
Loop
Close #1
End Sub
deve ter muita coisa errada , a mais de 20 anos que programo em assembler do z80 e hoje microcontroladore estou iniciando com o vb.
Abraço
Ai esta o code
Private Sub BNT1_Click()
Dim A As Integer
Dim NUM_L As Integer
Dim LINHA(5000) As String
Dim lstrArquivo As String
Dim lstrLinha As String
lstrArquivo = [Ô]D:\QUINA.txt[Ô]
NUM_L = 1
Open lstrArquivo For Input As #1
Do While Not EOF(1)
Line Input #1, LINHA(NUM_L)
Text1.Text = Text1.Text & LINHA(NUM_L) & Chr$(13) & Chr$(10)
Text2.Text = NUM_L & [Ô] ### [Ô] & LINHA(1000)
NUM_L = NUM_L + 1
Loop
Close #1
End Sub
deve ter muita coisa errada , a mais de 20 anos que programo em assembler do z80 e hoje microcontroladore estou iniciando com o vb.
Abraço
é como o Marcelo disse, use o RichTextBox que é muito melhor para esse tipo de ocasião.
Até mais.
Até mais.
RichTextBox ?
Onde esta o RichTextBox , uso o VB6
Obrigado
Onde esta o RichTextBox , uso o VB6
Obrigado
vá em Project / Components... e selecione[txt-color=#0000f0] Microsoft RichTextBox Control 6.0[/txt-color]
irá aparecer o icone do richtextbox na barra lateral esquerda insira o mesmo no form
depois faça apenas isso no load do form
veja se ele exibe o resultado desejado
irá aparecer o icone do richtextbox na barra lateral esquerda insira o mesmo no form
depois faça apenas isso no load do form
Private Sub Form_Load()
RichTextBox1.FileName = [Ô]D:\QUINA.txt[Ô]
End Subveja se ele exibe o resultado desejado
Marcelo
Obrigado carregou todas as linhas no richtextbox1 , mas como posso manipular cada uma destas linhas ou seja carregar qualquer linha em uma variavel ou mesmo edita-la ?
Abraço
Obrigado carregou todas as linhas no richtextbox1 , mas como posso manipular cada uma destas linhas ou seja carregar qualquer linha em uma variavel ou mesmo edita-la ?
Abraço
Se o texto está alocado no controle RICHTEXTBOX, já é possÃvel editar as linhas.
Não é isso que precisa?
Não é isso que precisa?
Tecla
Eu quero manipular linhas , ou seja , carregar uma linha em uma variavel para com a instrução mid poder manipular a string , acho que tenho que ter um banco de dados talves.
Abraço
Eu quero manipular linhas , ou seja , carregar uma linha em uma variavel para com a instrução mid poder manipular a string , acho que tenho que ter um banco de dados talves.
Abraço
vc deseja fazer isto antes de carregar no richtextbox?
pois agora basta vc editar as linhas que deseja no proprio richtextbox.
pois agora basta vc editar as linhas que deseja no proprio richtextbox.
Marcelo
Eu ja tenho o meu txt aberto no richtextbox1 ok , agora quero carregar a linha 5 por ex. em uma variavel para poder com o comando mid selecionar parte desta string e depois recarrega-la no richtextbox , ou sera que da para modificar uma certa linha do richtextbox , por ex. quero apagar os primeiros 5 carecteres de cada linha por uma instrução for next.
Obrigado
Eu ja tenho o meu txt aberto no richtextbox1 ok , agora quero carregar a linha 5 por ex. em uma variavel para poder com o comando mid selecionar parte desta string e depois recarrega-la no richtextbox , ou sera que da para modificar uma certa linha do richtextbox , por ex. quero apagar os primeiros 5 carecteres de cada linha por uma instrução for next.
Obrigado
Tópico encerrado , respostas não são mais permitidas