Compatibilité VB 6 et Visual Studio 2008Résolu

Question

Bonjour,

Je rencontre un problème de compatibilité entre VB6.0 et visual studio 2008...
J'ai essayé d'adapter mon code pour lire un fichier dans un listbox mais je n'y arrive pas entièrement. Pourriez-vous me dire ce qui ne va pas pour VS 2008 svp?
Voici mon code :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ligne
        ListBox1.ClearSelected()
        OpenFileDialog1.Filter = "EDF|*.edf"
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\CLAVERIE\Bureau"
        OpenFileDialog1.ShowDialog()
        OpenFileDialog Openfiledialog1.FileName For input as #1
        While Not EOF(1)
            LineInput #1, Ligne
            ListBox1.Items.Add(Ligne)
        End While
        Close #1
    End Sub
End Class

Visiblement la ligne : "OpenFileDialog Openfiledialog1.FileName For input as #1" pose problème
ainsi que les "#1"
Merci de votre aide...
MAGICSMACKS[:p]

NHenry · Accepted Answer

Bonjour

Je ne connais pas toutes les spécificités de .NET 3.5 (j'en suis resté au 2).

Regarde du coté des flux : 

Dim lStream as io.Stream=io.File.Open(....)
Et regarde aussi la classe IO.TextStream (il me semble que c'est un nom approchant).

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

magicsmacks · Answer

Merci beaucoup,

Voici le code final qui marche très bien :
Dim Ligne
        TextBox1.Clear()
        OpenFileDialog1.Filter = "EDF|*.edf"
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\CLAVERIE\Bureau"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim sr As New System.IO.StreamReader(OpenFileDialog1.FileName)
            TextBox1.Text = sr.ReadToEnd
            sr.Close()
        End If

Merci

MAGICSMACKS[:p]

Compatibilité VB 6 et Visual Studio 2008

2 réponses

Votre réponse

Discussions similaires