Remplissage comboboxRésolu

Question

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

SeigneurARES · Accepted Answer

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

mortalino · Answer

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

SeigneurARES · Answer

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

Remplissage combobox

3 réponses

Votre réponse

Discussions similaires