|
|
- Group:
- ,,,..--::|| AMMINISTRATORE ||::--..,,,
- Posts:
- 1,602
- Location:
- Scheda di rete
- Status:
| |
| la prima cosa da fare č quella di inserire nel vostro form il comando CommonDialog che il programma riconoscerą come CommonDialog1,2,3 ecc...
Infatti la parte del pulsante SALVA attiva il controllo CommonDialog, poi apre una comunicazione con il disco fisso del computer per salvare in modo sequenziale il testo contenuto nel TextBox;quindi il codice da inserire sarą pertanto il seguente:
Case Is = "SALVA"
CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.ShowSave
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Output As #1
Print #1, Text1
Close #1
Mentre la parte del pulsante APRI attiva il controllo CommonDialog, poi apre un canale di comunicazione con il disco fisso del computer per leggere in modo sequenziale un testo salvato in precedenza,
andando a cercarlo solo fra i file salvati con formato di testo (estensione .TXT).
Quindi il codice da inserire sarą pertanto il seguente:
Case Is = "APRI"
CommonDialog1.Filter = "Text files|*.txt"
CommonDialog1.ShowOpen
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1
Form1.Caption = NomeDelTesto
Text1.SelStart = Len(Text1.Text)
Detto questo spero che abbiate capito tutto,ma se tuttavia qualcosa non vi č ancora chiaro non esitate a postare.
|
| | |
