Aprire un nuovo progetto EXE standard in VB6 . Selezionare " progetto", "Componenti " dal menu e fare clic sulla casella di controllo accanto a "Microsoft Rich TextBox Control 6.0 ( SP6 ) " . Fare clic sul pulsante "OK " per salvare e chiudere la schermata . Avrete bisogno di scrivere un wrapper per accedere alla classe . NET " FileStream " . L' involucro deve avere una riga simile a questa: " Ritorno New Stream ( StreamParameters ) . "
2
Seleziona il Rich Text Box di controllo dalla barra degli strumenti e fare clic sul form per aggiungere un nuovo Rich Text controllo casella denominata " RichTextBox1 " per impostazione predefinita . Rinominarlo in qualcosa di significativo , come " rtbNotePad . "
3
definire una variabile per contenere un numero di file e il nome del file . La variabile per il numero di file dovrebbe essere un qualcosa di intero e di nome come " iFileNum " e la variabile per il nome del file dovrebbe essere una stringa e un nome simile a " sMyFile . " Ottenere un numero di file libero dalla codifica
4
Aprire il file di blocco note e visualizzare il contenuto del Rich Text Box " iFileNum = FreeFile . " :
Aperto sMyFile Ad ingresso come iFileNum
I contenuti della " sMyFile " può essere letto byte per byte o tutti in una volta . Per leggere a poco a poco , il codice di questa linea " rtbNotepad.text = Input ( 10 , iFileNum ) . " Per leggere l' intero file , il codice di questa linea " rtbNotepad.text = Input ( LOF ( iFileNum ) , iFileNum ) . " " LOF " è la " lunghezza del file" funzione .
5
Aggiungere un pulsante al form e denominarlo " cmdSave " e impostare la didascalia "Salva". Aggiungere , rimuovere o modificare il contenuto di " rtbNotePad " e fare clic sul pulsante "Salva " quando hai finito. Per salvare il contenuto del testo ricco di controllo , codice di questa linea " Write iFileNum , rtbNotepad.text ".
Programmazione © www.354353.com