Visual Basic 6 - Visual basic 6 listbox

Forum - Visual Basic 6 - Visual basic 6 listbox

emilianocimino (Normal User)
Newbie

Messaggi: 7
Iscritto: 07/01/2010

Postato alle 23:11
Giovedì, 07/01/2010

Ciao a tutti , sono un nuovo utente nel forum e avrei bisogno di un piccolo aiuto.
Vorrei creare un programma che quando viene letto un file di testo tutte le righe vengano scritte in una listbox riga per riga.
Lo devo creare in visual basic 6 , NON in vb.net

Io in vb.net usavo un codice che mi funzionava perfettamente :

Codice sorgente - presumibilmente Plain Text

TextBox2.Text = OpenFileDialog1.FileName
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim sr As New IO.StreamReader(OpenFileDialog1.FileName)
            While Not sr.EndOfStream
                Me.ListBox1.Items.Add(sr.ReadLine)
            End While
            sr.Close()
            sr.Dispose()
        End If

Qualcuno mi potrebbe per favore dire come sarebbe il codice che ho usato in vb.net in visual basic 6 ?

Ringrazio tutti e attendo risposte

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 0:20
Venerdì, 08/01/2010

Codice sorgente - presumibilmente VB.NET

With CommonDialog1
 
    'quì ci metti le proprietà che vuoi
 
    .FileName = ""
    .ShowOpen
End With
If Err = cdlCancel Then Exit Sub
 
Dim FileScelto As String
Dim txt as string
Dim NF As Integer
 
FileScelto = CommonDialog1.FileName
 
NF = FreeFile
Open FileScelto For Input As #NF
    
Do While Not EOF(NF)
    Input #NF, txt 
    List1.AddItem txt 
Loop
Close #NF

Ultima modifica effettuata da Alfonso il 08/01/2010 alle 0:24

emilianocimino (Normal User)
Newbie

Messaggi: 7
Iscritto: 07/01/2010

Postato alle 12:55
Domenica, 10/01/2010

Grazie ! Ho provato questo codice e funziona benissimo !