Discussion :

[OhMonBato]

Bonjour,

j'essaye de me mettre à VB.Net et j'avoue que venant de VB6, je patauge assez joyeusement. J'avoue ne pas avoir fait beaucoup de recherche su ce forum auparavant car là où je suis en ce moment, j'ai une connexion internet très chaotique qui me permet rarement de rester en ligne plus de 5 ou 10 minutes.
Voilà ce que j'essaye de faire : un usercontrol contenant entre autre une ComboBox.
Je voudrais créer une propriété pour ce usercontrol me permettant de remplir la collection Items de cette ComboBox

Jusqu'ici voilà ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Private _MaListe As New List(Of String)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
	Public Property MaListe As List(Of String)
        Get
            Return _MaListe
        End Get
        Set(ByVal value As List(Of String))
            _MaListe.AddRange(value)
        End Set
    End Property

Mais quand je teste mon controle et que je viens sur la prorpriété "MaListe", si j'essaye d'ajouter un item j'ai aussitôt le message :

Le constructeur sur le type "System.String" est introuvable

Si quelqu'un peut me venir en aide, merci par avance.

[azstar]

ton probleme n'est trop clair.
j'ai compris le besoin mais le probleme non .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
 Private _MaListe As New List(Of String)
	Public Property MaListe As List(Of String)
        Get
            Return _MaListe
        End Get
        Set(ByVal value As List(Of String))
            _Combobox.DataSource=value;
        End Set
    End Property

[OhMonBato]

Merci déjà de t'y intéresser.
J'ai donc un UserControl contenant entre autre une combobox (Plusieurs en fait mais si je résouds le problème pour un..). Je voudrais ajouter une propriété appelée "MaListe" à ce user controle qui me permettrait de remplir ce ComboBox.

Avec ton code, j'ai toujours le même problème. Il manque le constructeur pour le type "System.string"

[rv26t]

Bonjour

Dans la propriété il faut donner un valeur de type List(Of String)

Voici un exemple plus complet avec la possibilité de d'avoir un id su l'élément choisi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    Private _MaListe As New List(Of Personne)
    Public Property MaListe As List(Of Personne)
        Get
            Return _MaListe
        End Get
        Set(ByVal value As List(Of Personne))
            _MaListe = value
            ComboBox1.DisplayMember = "Nom"
            ComboBox1.ValueMember = "Id"
            ComboBox1.DataSource = _MaListe
        End Set
    End Property

Avec la classe personne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Class Personne
    Public Property Id As Integer
    Public Property Nom As String
    Sub New()
    End Sub
    Sub New(ByVal I As Integer, ByVal N As String)
        Id = I
        Nom = N
    End Sub
End Class

Appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private l As New List(Of Personne)
    Private Sub ListBoxsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxsToolStripMenuItem.Click
        Dim f As frmListBox = New frmListBox
        AjouteElement(1, "A")
        AjouteElement(2, "B")
        AjouteElement(3, "C")
        f.MaListe = l
        f.Show()
        '        CreInstance(Of frmListBox).Show()
    End Sub
    Public Sub AjouteElement(ByVal Id As Integer, ByVal Nom As String)
        l.Add(New Personne(Id, Nom))
    End Sub

[OhMonBato]

@Rainui :
Je voudrais pouvoir ajouter des éléments à ma combobox quand l'utilisateur de mon usercontrol est en mode design, plutôt que par code. C'est un élément que j'avais omis de mentionner.

@rv26t :
Ton code me fait avancer, mais je vais finir par avoir franchement honte, ça coince toujours.
Pour essai je suis reparti d'un nouveau usercontrol qui ne contient que ce code (celui que tu m'avais proposé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Public Class UserControl1
    Private _MaListe As New List(Of Personne)
    Public Property MaListe As List(Of Personne)
        Get
            Return _MaListe
        End Get
        Set(ByVal value As List(Of Personne))
            _MaListe = value
            ComboBox1.DisplayMember = "Nom"
            ComboBox1.ValueMember = "Id"
            ComboBox1.DataSource = _MaListe
        End Set
    End Property
End Class
 
Public Class Personne
    Public Property Id As Integer
    Public Property Nom As String
    Sub New()
    End Sub
    Sub New(ByVal I As Integer, ByVal N As String)
        Id = I
        Nom = N
    End Sub
End Class

Si je passe ne mode "test" du usercontrol, ça semble fonctionner, je peux ajouter des éléments. Merci déjà pour ça.

En revanche si je compile et que je tente d'utiliser le usercontrol, dès que j'essaye de le placer sur la feuille j'ai un message d'erreur à rallonge que je mets en pièce jointe.

J'avoue ne pas avoir compris ton 3ème bout de code, c'est bien un exemple sur la manière d'utiliser le usercontrol dans une form ou je suis complètement à côté de la plaque ?

[rv26t]

J'avoue ne pas avoir compris ton 3ème bout de code, c'est bien un exemple sur la manière d'utiliser le usercontrol dans une form ou je suis complètement à côté de la plaque ?

Non c'est sur un form. juste pour l'exemple d'utilisation, mais cela ne devrait pas changer fondemmentalement avec un user contrôle (sauf qu'il n'y as pas besoin de le créer dynamiquement)
Ce qui donnerai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Private l As New List(Of Personne)
        AjouteElement(1, "A")
        AjouteElement(2, "B")
        AjouteElement(3, "C")
        MonuserControle.MaListe = l

[Rainui]

Bonjour,

Dans le code du UserControl :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private _MaListe As List(Of String)
 
Public Property MaListe() As List(Of String)
    Get
        Return _MaListe
    End Get
    Set(ByVal value As List(Of String))
        _MaListe = value
        Me.cboClient.DataSource = _MaListe
    End Set
End Property

Dans le code du formulaire sur l’événement que vous voulez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim lst As New List(Of String)
    With lst
        .Add("Yves")
        .Add("Frédéric")
    End With
    Me.MyUserControl1.MaListe = lst

Mais comme cela, je ne vois pas l’intérêt d'ajouter des propriétés à votre UserControl alors que l'on peut accéder à tout les contrôles et leurs propriétés.
Soit cboClient un ComboBox sur le UserControl, dans le code du formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim lst As New List(Of String)
    With lst
        .Add("Yves")
        .Add("Frédéric")
    End With
    Me.MyUserControl1.cboClient.DataSource=lst

[rv26t]

Voilà ce que j'essaye de faire : un usercontrol contenant entre autre une ComboBox.
Je voudrais créer une propriété pour ce usercontrol me permettant de remplir la collection Items de cette ComboBox.

Je voudrais pouvoir ajouter des éléments à ma combobox quand l'utilisateur de mon usercontrol est en mode design, plutôt que par code.

je suis donc reparti du code, j'ai juste ajouté" <Serializable()> " à la classe personne et ça fonctionne très bien pour moi, aussi bien en mode design qu'en mode exécution. J'ai fait l'essai d'ajouter des membres à la collection dans un projet test, sauvegardé celui ci. Tout est parfaitement sauvegardé.

@OhMonBato : Voici un concept et exemple intéresssant qui pourrai figurer dans la FAQ.