Sujet Précédent Sujet Suivant

[VB] Récupérer les données d'une combobox?

Fermé
nf25 - 27 juil. 2010 à 19:14
coconuts_n Messages postés 16 Date d'inscription vendredi 2 juillet 2010 Statut Membre Dernière intervention 12 novembre 2010 - 28 juil. 2010 à 14:12
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.

A voir également:

3 réponses

Réponse 1 / 3
coconuts_n Messages postés 16 Date d'inscription vendredi 2 juillet 2010 Statut Membre Dernière intervention 12 novembre 2010 1
28 juil. 2010 à 10:19
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
0
Réponse 2 / 3
nf25
28 juil. 2010 à 13:42
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'...
0
Réponse 3 / 3
coconuts_n Messages postés 16 Date d'inscription vendredi 2 juillet 2010 Statut Membre Dernière intervention 12 novembre 2010 1
28 juil. 2010 à 14:12
AH mince, ma réponse ne valait que pour VBA
Fouille dans l'aide de VB

Désolé

Coco
0