Ciao, grazie innanzitutto, ho un programmino in visual basic per il calcolo di pannelli fotovoltaici. Devo creare due pulsanti che, sotto commondialog, per quanto riguarda save, salva i campi delle label, combo e text compilate (dati cliente, se è possibile anche altre estensioni, tipo xls di excel, doc di word), mentre per open, aprire il file e inserire nuovamente, nei campi, i dati salvati precedentemente (dati del cliente), così da effettuare nuovamente il calcolo senza andare a rifare il lavoro.
ciao
Pulsante open file
Private Sub Command3_Click()
Me.CommonDialog1.CancelError = True
Me.CommonDialog1.DialogTitle = "Apri Progetto Salvato"
CommonDialog1.Filter = xls
On Error GoTo ANNULLA
CommonDialog1.ShowOpen
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Input As #1
Line Input #1, riga
Text1.Text = riga
Line Input #1, riga
Text2.Text = riga
Line Input #1, riga
Text3.Text = riga
Close #1
Form1.Caption = NomeDelTesto
Text1.SelStart = Len(Text1.Text)
ANNULLA:
On Error GoTo ANNULLA
End Sub
Pulsante save file
Private Sub Command4_Click()
Me.CommonDialog1.CancelError = True
Me.CommonDialog1.DialogTitle = "Salva progetto"
CommonDialog1.Filter = "Text Files|*.txt"
On Error GoTo ANNULLA
CommonDialog1.ShowSave
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Output As #1
Print #1, "SunRise"
Print #1, Labe1
Print #1, Text1
Print #1, Text2
Print #1, Text3
Print #1, Combo3
Print #1, Label13
Print #1, Text4
Print #1, Label14
Print #1, Label42
Print #1, Label15
Print #1, Text6
Print #1, Label45
Print #1, Text8
Print #1, Combo1
Print #1, Combo2
Print #1, Label43
Print #1, Label44
Close #1
ANNULLA:
On Error GoTo ANNULLA
Dim sNomeFile As String
Dim nRes As Integer
sNomeFile = "txt" 'Può essere incluso anche il percorso
'Verifica se il file esiste
If Dir(sNomeFile) <> "txt" Then
' Il file esiste, chiediamo conferma
nRes = MsgBox("Sovrascrivere il file " + sNomeFile, vbYesNo + vbQuestion, "File già esistente")
If nRes = vbNo Then
'
' L'utente ha scelto di NON sovrascrivere il file.
' Dovremo prevedere l'uscita dalla routine.
'
End If
End If
End Sub