Sujet Précédent Sujet Suivant

Combobx crée par code

Résolu
Ben871 Messages postés 8 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 20 mai 2008 - 14 mai 2008 à 12:54
Ben871 Messages postés 8 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 20 mai 2008 - 20 mai 2008 à 20:59
Bonjour, je suis un peteit nouveau en programmation visual basic express 2008 et j'ai besoin d'aide s.v.p.

j'en suis a la conception d'un formulaire qui a pour but d'en créer d'autre pour faire des calculs précis, donc j'ai une boite et un bouton qui génère un nombre de combobox  relié a ma table inventaire, et voila que, quand je sélectione dan un de ces combobox un item, tous les autres change aussi pour cet item. Ou est mon erreur ?

Voici le code:

Private Sub GénérerItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GénérerItem.Click
        Dim Item As System.Windows.Forms.ComboBox
        Dim Nbitem As Integer = CInt(NombreItemInventaire.Text)
        Dim positionItemX As Integer = 106
        For i = 1 To Nbitem
            Item = New System.Windows.Forms.ComboBox
            Item.Name = "Item" & CStr(i)
            Item.Location = New Point(positionItemX, positionItemY)
            positionItemX = positionItemX + 105
            Item.Width = 95
            Item.DataSource = Gestion_de_ProjetsDataSet.Tables("Inventaire")
            Item.DisplayMember = "description"
            Me.Controls.Add(Item)
            departement.Add(Item)
        Next

En plus, j'aimerais qu'en double cliquant sur la combobox , je puisse ajouter des item d'inventaire inexistant.

Merci d'avance de votre aide  

1 réponse

Réponse 1 / 1
Ben871 Messages postés 8 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 20 mai 2008
20 mai 2008 à 20:59
J'ai trouvé mon erreur!!!

voicice que ca prenait:

  Dim Nbitem As Integer = CInt(NombreItemInventaire.Text)
        Dim positionItemX As Integer = 106
        Dim Item As Windows.Forms.ComboBox
        Dim Source As Windows.Forms.BindingSource

        For i = 1 To Nbitem
            Item = New System.Windows.Forms.ComboBox
            Source = New System.Windows.Forms.BindingSource
            Item.Name = "Items" & CStr(i)
            Item.Location = New Point(positionItemX, positionItemY)
            positionItemX = positionItemX + 105
            Item.Width = 95
            Me.Controls.Add(Item)
            Source.DataSource = Gestion_de_ProjetsDataSet.Inventaire
            Item.DataSource = Source
            Item.DisplayMember = "description"
            Item.ValueMember = ("No_ Item")

        Next

Merci a ceux qui ont voulu m'aider.
3
Rejoignez-nous