Newsgroup: it.comp.lang.visual-basic
Titolo: strano problema con file e (forse) listbox

Ciao, sto realizzando un'applicazione di tipo "reminder" dove l'utente
digita una frase in una textbox e all'ora desiderata viene mostrato un form
con la frase desiderata;per fare in modo che l'utente non digiti piu' volte
la stessa frase, ho messo una listbox dove egli puo' aggiungere le frasi
che vengono usate piu' volte, e puo' anche eliminarle. Le frasi
costituiscono le items della listbox e vengono salvate in un file ogni
volta che l'utente vuole aggiungerne altre. Il file viene caricato
all'apertura del form e le frasi disposte nella listbox.
Fino a poco fa
tutto funzionava a perfezione, poi ieri ho fatto qualche cambiamento al
programma, soprattutto ho fatto in modo che venga visualizzata l'icona
della traybar; pero' l'altra faccia della medaglia e' che il file non viene
piu' caricato e quindi la listbox e' vuota e poi quando aggiungo gli items
essi vengono visualizzati nella list, pero' quando riapro il programma la
list torna vuota come pure il file. Aiutatemi vi prego!! 
Ciao
p.s. non
ho postato il codice se no ci si metterebbe 2 ore a scaricare il messaggio.
--------------------------------
Inviato via 
http://usenet.iol.it

 Ciao
l'unica cosa che mi viene in mente che non dai il path giusto....
hai controllato se li salva?
hai controllato se dai tutto il path ?
di solito su queste cose è semrpe il solito errore...
componi il nome del file in questo modo..
dim nomefile as string
nomefile= app.path & "
file.name
"
' forse ci vuole anche la "\" controlla
'nomefile= app.path & "\
file.name
"
ciao

hai controllato se dai tutto il path ?
l'ho fatto, fino a poco tempo fa
funzionava tutto, e invece da quando mi sono deciso a voler mettere l'icona
nella traybar, non me li carica + ... nel frattempo io non ho neanche
toccato il codice che carica gli items. Te lo posto:
Private Sub
Form_Load()
'vengono caricati gli items e disposti nella listbox
Dim sAdr
As String, fnum As Long
    fsetname = App.Path & "\bookm.dat"
If Dir(fsetname) <> "" Then             
        fnum = FreeFile
Open fsetname For Input As #fnum    
        While Not EOF(fnum)
Line Input #fnum, sAdr         
            lstBookmarks.AddItem sAdr
Wend
        Close #fnum                         
    End If
lstBookmarks = lstBookmarks.List(0)
    bShown = True  'questa non
c'entra nulla con la listbox ma l'ho messa lo stesso
End Sub
'vengono
salvati gli items
Public Sub SaveList()
Dim fnum As Long
Dim j As Long
fsetname = App.Path & "\bookm.dat"             
 fnum = FreeFile
Open fsetname For Output As #fnum              
  For j = 0 To
frmMain.lstBookmarks.ListCount          
   Print #fnum,
frmMain.lstBookmarks.List(j)            
  Next j
 Close #fnum
End Sub
Prova ma non credo che riuscirai a trovare errori....
Ciao



ma non dici se li salva..
hai provato ad aprire il file??

hai provato ad aprire il file??
Si', il file contiene gli items della
list ma quando chiudo e riavvio il programma, aggiungo nuovi items, questi
sostituiscono quelli già presenti e non vengono accodati...
Sto provando a
ricostruire il programma eliminando il codice e i controlli non
"coinvolti", e ho recuperato il codice che mi aveva dato qualcuno in ng per
il salvataggio e il caricamento degli items. Quando ho finito ti informo...
Ciao,
Andrea


 sostituiscono quelli già presenti e non vengono accodati...
se vuoi accodarli però devi usare append (nell'istruzione open)
ma non ho cpaito molto di quello ceh vuoi fare:))
ciao

 ha scritto: 


Andava anche senza mettere Append. Cmq ho fatto quello che ti
dicevo, ho ricostruito il programma riducendo il superfluo, e alla fine il
codice funzionava... faccio il copia incolla nel codice dell'applicazione
"vera" e cosa succede? non funziona!! :-(  secondo me c'è qualche
contrasto, non so con cosa ma errori nel codice non ce ne sono...
Ciao
Andrea
p.s. che velocità! sembra di essere in chat!


>p.s. che velocità! sembra di essere in chat!
ehm, forse ho un po'
esagerato...


Ho risolto il problema: avevo messo list1.clear in form_activate . Dovevo
essere ubriaco
Scusa per il tempo che ti ho fatto perdere.
Ciao
