Option Explicit
Private Sub cmdIndietro_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
On Error GoTo errore
Select Case cboMese.ListIndex
Case Is = 0
Open App.Path & "\1-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 1
Open App.Path & "\2-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 2
Open App.Path & "\3-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 3
Open App.Path & "\4-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 4
Open App.Path & "\5-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 5
Open App.Path & "\6-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 6
Open App.Path & "\7-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 7
Open App.Path & "\8-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 8
Open App.Path & "\9-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 9
Open App.Path & "\10-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 10
Open App.Path & "\11-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
Case Is = 11
Open App.Path & "\12-" & CInt(txtAnno.Text) & ".dat" For Random As #1
Riepilogo
End Select
Unload Me
Exit Sub
errore:
MsgBox Err.Description, vbExclamation, "ERRORE!"
End Sub
Private Sub Riepilogo()
Dim Testo As String
Dim a() As String
Dim i As Integer
Get #1, 1, Testo
a = Split(Testo, ":")
'RIMETTO A POSTO TUTTI I DATI PRECEDENTEMENTE SALVATI
For i = LBound(a) To UBound(a)
frmMain.txtGas.Text = a(0)
frmMain.txtTelefono.Text = a(1)
frmMain.txtAcqua.Text = a(2)
frmMain.txtSpazzatura.Text = a(3)
frmMain.txtEnel.Text = a(4)
frmMain.txtSKY.Text = a(5)
frmMain.txtGiornali.Text = a(6)
frmMain.txtAssicurazione.Text = a(7)
frmMain.txtCondominio.Text = a(8)
frmMain.txtMutuo.Text = a(9)
frmMain.txtFinanziamento.Text = a(10)
frmMain.txtPensione.Text = a(11)
frmMain.txtMacchina.Text = a(12)
frmMain.txtBenzina.Text = a(13)
frmMain.txtADSL.Text = a(14)
frmMain.txtRicariche.Text = a(15)
frmMain.txtExtraUscite.Text = a(16)
frmMain.txtAlimenti.Text = a(17)
frmMain.txtVestiario.Text = a(18)
frmMain.txtBeni.Text = a(19)
frmMain.txtRegali.Text = a(20)
frmMain.txtMedicine.Text = a(21)
frmMain.txtCasa.Text = a(22)
frmMain.txtMeccanico.Text = a(23)
frmMain.txtViaggi.Text = a(24)
frmMain.txtScuola.Text = a(25)
frmMain.txtUniversita.Text = a(26)
frmMain.txtRAI.Text = a(27)
frmMain.txtExtraUsciteVariabili.Text = a(28)
frmMain.txtExtraUscite.Text = a(28)
frmMain.txtStipendioMarito.Text = a(29)
frmMain.txtStipendioMoglie.Text = a(30)
frmMain.txtFondi.Text = a(31)
frmMain.txtExtra.Text = a(32)
Next
frmMain.mnuModificaValori.Enabled = True
frmMain.mnuModificaAzzera.Enabled = True
frmMain.lblRiepilogo.Visible = True
Close #1
End Sub
Private Sub Form_Load()
cboMese.AddItem "Gennaio", 0
cboMese.AddItem "Febbraio", 1
cboMese.AddItem "Marzo", 2
cboMese.AddItem "Aprile", 3
cboMese.AddItem "Maggio", 4
cboMese.AddItem "Giugno", 5
cboMese.AddItem "Luglio", 6
cboMese.AddItem "Agosto", 7
cboMese.AddItem "Settembre", 8
cboMese.AddItem "Ottobre", 9
cboMese.AddItem "Novembre", 10
cboMese.AddItem "Dicembre", 11
End Sub