| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come leggere e scrivere file di testo con Visual Basic 6.0
    Visual Basic 6.0 fornisce un modo semplice per aprire i file di testo e leggere il loro contenuto in una casella di testo sullo schermo , così come scrivere un nuovo testo in un file. Solo undici righe di codice sono necessari per la prima fase , e dieci sarà sufficiente per la seconda operazione . Il processo utilizza le funzioni di ingresso e di uscita in Visual Basic , oltre a una piccola finestra per raccogliere informazioni dall'utente . Cose che ti serviranno
    Visual Basic 6.0
    Mostra più istruzioni
    1

    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 .

    Previous :

    next :
      Articoli Correlati
    ·Come usare una DLL in VB.NET 
    ·Come accedere Macro colonne si riempiono di dati 
    ·Qual è la differenza tra Sub Procedure e procedure Fun…
    ·Come utilizzare i moduli Add Login Dialog in Visual Bas…
    ·Query per visualizzare solo i numeri in Access 
    ·Come aggiungere elementi a una discesa /ComboBox in VB.…
    ·Microsoft VB NET Certificazione 
    ·Come regolare le dimensioni form in Visual Basic 2005 
    ·Come aggiornare un GridView 
    ·Vantaggi di VB.NET 
      Articoli in evidenza
    ·Come chiudere una finestra orfana dopo un record viene …
    ·Come fare oscilloscopio Art 
    ·Come configurare SSL in PHP 
    ·Come utilizzare Zend caricatore automatico 
    ·Strumenti per trovare una perdita di memoria 
    ·Come posso stampare tutti i numeri primi in Java 
    ·Come impostare la registrazione EXE 
    ·Tutorial per Runpy in Python 
    ·Come chiudere una dichiarazione PHP 
    ·Come convertire DirectX stereoscopico Tri Vert 
    Copyright © Conoscenza Informatica http://it.wingwit.com