Imports System.IO Class Program Sub écritfichier() Using sw As StreamWriter = New StreamWriter(My.settings.chemin) For Each ligne As string In Combobox1.items sw.WriteLine(ligne) Next End Using end sub sub litfichiers Dim line As String = "" Using sr As StreamReader = New StreamReader(my.settings.chemin) Do line = sr.ReadLine() combobox1.items.add(line) Loop Until line Is Nothing End Using End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question