Calcolo dell'IPT

di
oscar
il
1 risposte
O
oscar
Pochi posts
Iscritto da
feb, 2007
Messaggi:
16

Calcolo dell'IPT

Ho un problema per me insormontabile, vi prego di aiutarmi:
Ho progettato per motivi di lavoro un programma per il calcolo
della tassa di proprietà \"IPT\".Nell'oggetto ComboBox
\"cboImpostaDiBollo\" ho caricato tutti i valori in euro con
il seguente codice \"AddItem\":

Private Sub Form_Load()

' Imposta di Bollo
'
cboImpostadDiBollo.AddItem \"43,86\"
cboImpostadDiBollo.AddItem \"29,24\"
cboImpostadDiBollo.AddItem \"14,62\"
cboImpostadDiBollo.AddItem \"7,31\"
cboImpostadDiBollo.AddItem \"4,87\"
cboImpostadDiBollo.AddItem \"3,66\"
cboImpostadDiBollo.AddItem \"2,43\"

end sub

Il problema è che questa lista è soggetta a variazioni,
sono costretto ad aprire il programma fare la modifica,
richiuderlo,reistallare il programma e continuare a lavorare
Leggendo il libro vb 6 edito da Mondadori,ho scoperto che
utilizando il \"blocconotes.txt\" che mi permette di fare
le modifiche senza eseguire le manogre descritte, il codice
che ho scoperto (che non mi funsiona)è il seguente:

Private Sub Form_Load()
dim item as Sting
On Error GoTo Error_Handler
Open \"listDox.dan\"For imput As #1
Do Until EOF (1)
Line Input #1,item
List1.AddItem Intem
Loop
Close #1
exit sub
Error_Handler:
MsgBox\"Impossibile caricare i dati nel ListBox\"
End Sub

Vado in eseguzione, il programma non risponde.
Ringrazio anticitatamente del Vostro interessamento.

1 Risposte

  • G
    ghost
    Utente Attivo
    Iscritto da
    mag, 2006
    Messaggi:
    51

    Re: Calcolo dell'IPT

    Ciao ecco il codice funzionante,
    ovviamente se il file non esiste genera un errore
    Combo1 e' il controllo combo
    
Private Sub Form_Load()
    
    Dim strPath As String
    Dim strLine As String
    Dim intFF As Integer
    
    On Error GoTo ErrHandle
    Combo1.Clear
    intFF = FreeFile
    If Right(App.Path, 1) <> \"\\\" Then
        strPath = App.Path & \"\\File.dat\"
    Else
        strPath = App.Path & \"File.dat\"
    End If
    Open strPath For Input As #intFF
        Do While Not (EOF(intFF))
            Line Input #intFF, strLine
            Combo1.AddItem strLine
        Loop
    Close #intFF
    Exit Sub
ErrorHandle:
    MsgBox (\"Il file non esiste\")
    
End Sub
Devi accedere o registrarti per scrivere nel forum
1 risposte