Visual Basic 6.0 fornece uma maneira simples para abrir arquivos de texto e ler o seu conteúdo em uma caixa de texto na tela , bem como escrever um novo texto para um arquivo. Apenas onze linhas de código são necessários para o primeiro passo , e dez será suficiente para a segunda operação . O processo usa as funções de entrada e saída em Visual Basic , assim como uma pequena janela para coletar informações do usuário. Coisas que você precisa
Visual Basic 6.0
Show Mais instruções
1

Abra o Visual Basic 6.0, clique em Arquivo e escolha Novo projeto . Selecione EXE padrão a partir da lista de modelos. Clique duas vezes no controle TextBox na caixa de ferramentas do lado esquerdo para adicionar este ao formulário. Mude a altura do formulário no painel de propriedades à direita para 5000
2

Faça as seguintes alterações às propriedades caixa de texto: . Altura = 3000Multiline = TrueScrollbars = BothWidth = 3000

3

clique duas vezes no controle Button na Toolbox. Altere a propriedade Caption para ler o arquivo . Repita esta operação para adicionar um segundo controle Button, alterando a propriedade Caption aqui para gravar o arquivo .
4

Dê um duplo clique no botão Ler arquivo para abrir a janela de código. Digite este código na página de visualização de código : ReadFile Function ( ) Dim ReadFileName Como StringReadFile = InputBox ( " Digite o nome do arquivo a ser lido :") Abrir ReadFile Para Input As # 1ReadFile = Input $ ( LOF (1) , 1) Text1 . text = ReadFileClose # 1End FunctionPrivate Sub Command1_Click () ReadFileEnd Sub
5

Dê um duplo clique no botão Gravar arquivo para abrir a janela de código. Digite este código: WriteFile Function ( ) Dim WriteFileName Como StringWriteFileName = InputBox ( " Digite o nome do arquivo " ) Abrir WriteFileName For Output As # 2Print # 2, # Text1.TextClose 1End FunctionPrivate Sub Command2_Click () WriteFileEnd Sub
6

Execute o programa pressionando F5 e clique no comando File Read primeiro. Digite o nome de um arquivo de texto conhecido, incluindo o sufixo txt . . O arquivo deve aparecer na caixa de texto . Se você clicar agora em Write File e fornecer um nome diferente, você irá criar um novo arquivo , mas duplicado . Alternativamente, se você excluir o texto ou apenas clique em Ler arquivo antes de carregar um arquivo e digite algo novo, você pode criar um completamente novo arquivo .