[VB6] scrivere listbox in un file (era: Visual basic)

[alex_blow]

Ciao raga sono un programmatore alle prime armi :adhone: ,cmq qualkuno potrtte dirmi come si può salvare un list box in un file .txt ?rispondete il prima possibile ty

[xegallo]

ciao alex_blow mi raccomando dai una letta al regolamento

[Sypher]

Originariamente inviato da alex_blow
Ciao raga sono un programmatore alle prime armi :adhone: ,cmq qualkuno potrtte dirmi come si può salvare un list box in un file .txt ?rispondete il prima possibile ty

cioè salvare tutti i dati scritti in un listbox? se sì:
fai un ciclo e leggi tutti i dati e li scrivi nel file di testo, magari una stringa divisa da un carattere, quando devi ricreare la listbox ti rileggi la stringa, la splitti per questo carattere e riempi di nuovo la listbox...se ti serve questo te posso scrive 2 righe di codice!

[axsw]

Dunque vediamo se posso aiutarti
allora metti 2 list box
una chiamala "lstAdd" l'altra "lstLoad"
e questo è il codice:
Option Explicit

Private Sub cmdAdd_Click()
'-Declare varibles
Dim Add As String
'-Gather information from the user
Add = InputBox("Enter the item to be added", "Add Item...", "Hello")
'-Put the information from Add into the list box
lstAdd.AddItem Add
End Sub

Private Sub cmdLoad_Click()
'-Declare varibles
Dim directory$
Dim MyString$
'-If it messes up
On Error GoTo errhandle
'-Clear the list
lstLoad.Clear
'-Find the fill to open
directory$ = App.Path & "\Saves\Listbox.txt"
'-Load the file
Open directory$ For Input As #1
While Not EOF(1)
Input #1, MyString$
DoEvents
lstLoad.AddItem (MyString$)
Wend
'-Close the file
Close #1
errhandle:
End Sub

Private Sub cmdSave_Click()
'-Declare Varibles
Dim Savelist As Long
Dim directory$
'-If it messes up it will not do anything
On Error Resume Next
'-Place to save
directory$ = App.Path & "\Saves\Listbox.txt"
'-Write File
Open directory$ For Output As #1
For Savelist& = 0 To lstAdd.ListCount - 1
Print #1, (lstAdd.List(Savelist&))
Next Savelist&
'-Close file
Close #1
'-Setup message box
MsgBox ("The list was saved to " & App.Path & "\Saves\Listbox.txt")
End Sub

Private Sub Command1_Click()
'-Unload frmListboxes
Unload Me
'-make frmMain visible
frmMain.Visible = True
End Sub


Private Sub Label1_Click()
'-Setup message box
MsgBox ("Click either list box to clear it.")
End Sub

Private Sub lstAdd_Click()
'-Clear lstAdd
lstAdd.Clear
End Sub

Private Sub lstLoad_Click()
'-Clear lstLoad
lstLoad.Clear
End Sub