Aprire Visual Basic 6.0 , fare clic su File e selezionare Nuovo progetto. Selezionare EXE standard dalla lista di modelli . Fare doppio clic sul controllo TextBox nella Casella degli strumenti a sinistra per aggiungere questo al form. Modificare l' altezza del modulo nel riquadro Proprietà sulla destra per 5000
2
apportare le seguenti modifiche alle proprietà TextBox : . Altezza = 3000Multiline = TrueScrollbars = BothWidth = 3000
3 Fare doppio clic sul controllo Button nella Casella degli strumenti . Modificare la proprietà Caption per leggere il file. Ripetere questa operazione per aggiungere un secondo controllo Button , modificando la proprietà Caption qui per scrivere file .
4
Fare doppio clic sul pulsante File Read per aprire la finestra del codice . Inserisci questo codice nella pagina di visualizzazione codice : Function ReadFile ( ) Dim ReadFileName Come StringReadFile = InputBox ( " Inserire il nome del file da leggere : " ) Apri ReadFile Per Input As # 1ReadFile = Input $ ( LOF ( 1 ) , 1) Text1 . text = ReadFileClose # 1End FunctionPrivate Sub Command1_Click ( ) ReadFileEnd Sub
5 Fare doppio clic sul pulsante Write File per aprire la finestra del codice . Inserisci questo codice : WriteFile function () Dim WriteFileName Come StringWriteFileName = InputBox ( " Inserire il nome del file " ) Apri WriteFileName per uscita come # 2Print # 2 , # Text1.TextClose 1End FunctionPrivate Sub Command2_Click ( ) WriteFileEnd Sub
6
Eseguire il programma premendo F5 e fare clic sul comando di leggere il file prima . Inserisci il nome di un file di testo noto , tra l' . Txt suffisso . Il file dovrebbe trovarsi nella TextBox . Se ora si fa clic su Scrivi file e fornire un nome diverso , si creerà una nuova , ma duplicato del file . In alternativa , se si elimina il testo o basta cliccare su Leggi file prima di caricare un file e quindi digitare qualcosa di nuovo , è possibile creare un file completamente nuovo .
Programmazione © www.354353.com