[VB] Récupérer les données d'une combobox?
nf25
-
coconuts_n Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
coconuts_n Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais seulement savoir comment récupérer les données d'une combobox.
Je voudrais par exemple, en sélectionnant un élément de la liste déroulante, changer l'image d'une picturebox.
Merci de vos réponses.
Je souhaiterais seulement savoir comment récupérer les données d'une combobox.
Je voudrais par exemple, en sélectionnant un élément de la liste déroulante, changer l'image d'une picturebox.
Merci de vos réponses.
A voir également:
- [VB] Récupérer les données d'une combobox?
- Fuite données maif - Guide
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Comment recuperer une video sur youtube - Guide
- Supprimer les données de navigation - Guide
- Vb - Télécharger - Langages
3 réponses
Bonjour,
Tu crées une userform et tu la nommes (ici, userform1)
Tu insères une zone pour l'image (ici, image1)
Tu insères une liste (ici, ComboBox1)
Dans la partie déclarations d'une feuille, tu insères
Private Sub UserForm_Initialize()
'Add list entries to combo box. The value of each
'entry matches the corresponding ListIndex value
'in the combo box.
ComboBox1.AddItem "Collines" 'ListIndex = 0
ComboBox1.AddItem "Coucher de soleil" 'ListIndex = 1
ComboBox1.AddItem "Hiver" 'ListIndex = 2
ComboBox1.AddItem "Nénuphars" 'ListIndex = 3
ComboBox1.BoundColumn = 0
ComboBox1.Left = 18 'position du coté gauche
ComboBox1.Top = 36 'position du haut
ComboBox1.Width = 90 'hauteur
ComboBox1.ListWidth = 90 'largeur
Image1.Left = 18
Image1.Top = 60
Image1.Height = 84
Image1.Width = 84
End Sub
Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la première image
Case 1
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la deuxième image
Case 2
Image1.Picture = _
LoadPicture("C:\...")
Case 3
Image1.Picture = _
LoadPicture("C:\...")
End Select
End Sub
Dis moi si ça marche
Coco
Tu crées une userform et tu la nommes (ici, userform1)
Tu insères une zone pour l'image (ici, image1)
Tu insères une liste (ici, ComboBox1)
Dans la partie déclarations d'une feuille, tu insères
Private Sub UserForm_Initialize()
'Add list entries to combo box. The value of each
'entry matches the corresponding ListIndex value
'in the combo box.
ComboBox1.AddItem "Collines" 'ListIndex = 0
ComboBox1.AddItem "Coucher de soleil" 'ListIndex = 1
ComboBox1.AddItem "Hiver" 'ListIndex = 2
ComboBox1.AddItem "Nénuphars" 'ListIndex = 3
ComboBox1.BoundColumn = 0
ComboBox1.Left = 18 'position du coté gauche
ComboBox1.Top = 36 'position du haut
ComboBox1.Width = 90 'hauteur
ComboBox1.ListWidth = 90 'largeur
Image1.Left = 18
Image1.Top = 60
Image1.Height = 84
Image1.Width = 84
End Sub
Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la première image
Case 1
Image1.Picture = _
LoadPicture("C:\...") 'adresse de la deuxième image
Case 2
Image1.Picture = _
LoadPicture("C:\...")
Case 3
Image1.Picture = _
LoadPicture("C:\...")
End Select
End Sub
Dis moi si ça marche
Coco
Merci de ta réponse.
Je viens d'essayer et je pense que le problème que j'ai vient de la version de VB que j'utilise. Je suis sous Microsoft Visual Basic 2008 Express, et j'ai peur que ma difficulté vienne des différences de langage entre les différentes versions.
Quand j'insère ton script, j'obtiens des erreurs. En plaçant ma souris dessus je vois pour la ligne
ComboBox1.AddItem("Collines") 'ListIndex = 0
Pour Combobox1.AddItem il m'affiche le message: 'AddItem' n'est pas un membre de 'System.Windows.Form.ComboBox'
Et j'ai le même message pour chaque ligne d'index.
De la même façon, insérer des images est différent et ne fonctionne pas avec le langage que tu me proposes.
J'ai un message d'erreur car sur ma version, il faut utiliser le script:
Dim Adresse As New Bitmap ("C:\...")
Image1.Image = Adresse
J'espère que j'arriverais à trouver l'équivalence car visiblement il ne comprend pas 'AddItem', ni 'BoundColumn', ni 'ListWidth', ni 'Value'...
Je viens d'essayer et je pense que le problème que j'ai vient de la version de VB que j'utilise. Je suis sous Microsoft Visual Basic 2008 Express, et j'ai peur que ma difficulté vienne des différences de langage entre les différentes versions.
Quand j'insère ton script, j'obtiens des erreurs. En plaçant ma souris dessus je vois pour la ligne
ComboBox1.AddItem("Collines") 'ListIndex = 0
Pour Combobox1.AddItem il m'affiche le message: 'AddItem' n'est pas un membre de 'System.Windows.Form.ComboBox'
Et j'ai le même message pour chaque ligne d'index.
De la même façon, insérer des images est différent et ne fonctionne pas avec le langage que tu me proposes.
J'ai un message d'erreur car sur ma version, il faut utiliser le script:
Dim Adresse As New Bitmap ("C:\...")
Image1.Image = Adresse
J'espère que j'arriverais à trouver l'équivalence car visiblement il ne comprend pas 'AddItem', ni 'BoundColumn', ni 'ListWidth', ni 'Value'...