Compatibilité VB 6 et Visual Studio 2008 [Résolu]

Signaler
Messages postés
128
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
8 avril 2008
-
Messages postés
128
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
8 avril 2008
-
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]

2 réponses

Messages postés
14788
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
1 mai 2021
155
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
Messages postés
128
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
8 avril 2008

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]