Charger un ComboBox ou une ListBox à partir d'un fichier (et vice versa)


Commenter

Contenu du snippet 

'Exemple d'appel avec un composant buton2 et un openfiledialogue1 : 
'    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'        Dim Reponse As DialogResult = Me.OpenFileDialog1.ShowDialog
'        If Reponse = Windows.Forms.DialogResult.OK Then LoadItemCbx(Me.ComboBox1, _
'        Me.OpenFileDialog1.FileName, True)
'    End Sub
    Private Sub LoadItemCbx(ByVal Cbx As ComboBox, ByVal TheFile As String, ByVal CbClean As Boolean)
        Try
            If CbClean = True Then Cbx.Items.Clear()
            Cbx.Items.AddRange(Split(My.Computer.FileSystem.ReadAllText(TheFile, System.Text.Encoding.Default), vbCrLf))
            If Cbx.Items.Count > 0 Then Cbx.SelectedIndex = 0
        Catch ex As Exception
            MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

Compatibilité : VB 2005

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (PCPT)