Remplissage combobox

Résolu
Signaler
Messages postés
22
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
15 juillet 2008
-
Messages postés
22
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
15 juillet 2008
-
Bonjour,

Avant en VB6 j'utilisait ce code pour remplir une combobox a partir d'un fichier texte,

#
Private Sub ComboDepartement_Change()
        iSenseChange(ComboDepartement)
    End Sub

    Private Sub ComboDepartement_KeyPress(ByVal KeyAscii As Integer)
        iSenseKeyPress(ComboDepartement, KeyAscii)
    End Sub

    Private Sub Form_Load()
        Call OuvreListeFour(Me.ComboDepartement)
    End Sub

    Private Sub OuvreListeDep(ByVal ListDep As ComboBox)
    Open RepReseau & "\Base_registre\ListFour.ncc" For Input As #1
        Do Until EOF(1)
        Line Input #1, Str1
            ListDep.AddItem(Str1)
        Loop
    Close #1
    End Sub
End Class
#

Je n'arrive pas a en creer un equivalent en VB.NET, quelqu'un peut il m'aider ?

Merci

Bas j'essaye d'apprendre pis c'est pas facile  

3 réponses

Messages postés
22
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
15 juillet 2008

C'est bon j'ai trouver, voila le code pour ceux que ca interesse:

#
FileOpen(2, MonFichierTexte.txt ", OpenMode.Input)
        Do While Not EOF(2)
            TextCombo = LineInput(2)
            ComboPays.Items.Add(TextCombo)
        Loop
FileClose(2)
#

Salutations

Bas j'essaye d'apprendre pis c'est pas facile  
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

pas la peine de poser ta question plusieurs fois dans la journée. La patience est une force

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
Messages postés
22
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
15 juillet 2008

Oui je sais mais je m'ettait tromper de topic celui d'vant je l'avais mit dans VB6

Bas j'essaye d'apprendre pis c'est pas facile