Bloco de notas é um editor de texto simples disponível com o sistema operacional Windows. Documentos editados ou criados no bloco de notas podem ser salvas com Unicode , ANSI, UTF-8 ou big-endian codificação Unicode. Outros exemplos de codificação são o código Morse e ASCII. O tipo de codificação selecionado determina como o texto será interpretado pelo computador. Arquivos de texto básicas salvas com o " txt ". Extensão são geralmente Unicode . Bloco de notas também pode ser usado para criação de páginas web , salvando o texto como " . Html " ou " . Xml. " Instruções
1
Abra um novo projeto Standard EXE no VB6. Selecione "Projeto ", "Componentes " no menu e clique na caixa de seleção ao lado de " Microsoft Rich Textbox Control 6.0 (SP6) . " Clique no botão " OK" para salvar e fechar a tela. Você vai precisar para escrever um wrapper para acessar a NET " FileStream " classe. . O invólucro deve ter uma linha parecida com esta : " . Voltar novo fluxo ( StreamParameters ) "
2
Selecione o controle Rich Text Box na barra de ferramentas e clique no formulário para adicionar um novo Rich Text controle de caixa com o nome " RichTextBox1 " por padrão. Mude o nome para algo significativo , como " rtbNotePad ".
3
Definir uma variável para armazenar um número de arquivo eo nome do arquivo. A variável para o número do arquivo deve ser um inteiro e nomeou algo como " iFileNum " ea variável para o nome do arquivo deve ser uma string e nomeou algo como " sMyFile ". " . IFileNum = FreeFile " Obter um número de arquivo livre codificando
4
Abra o arquivo de bloco de notas e exibir o conteúdo do Rich Text Box :
Abrir sMyFile Para entrada como iFileNum
O conteúdo do " sMyFile " pode ser lido byte a byte , ou todos de uma vez. Para ler pouco a pouco, esta linha de código " rtbNotepad.text = Entrada (10, iFileNum ) . " Para ler todo o arquivo , o código esta linha " rtbNotepad.text = Input ( LOF ( iFileNum ) , iFileNum ) . " " LOF " é o "comprimento do arquivo" função.
5
Adicionar um botão ao formulário com o nome " cmdSave " e defina sua legenda para " Salvar". Adicionar, remover ou editar o conteúdo de " rtbNotePad " e clique no botão "Salvar" quando terminar. Para salvar o conteúdo do controle de caixa de rich text , o código esta linha "Write iFileNum , rtbNotepad.text . "
