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

Question

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.

Configuration: Windows 7 / Firefox 3.6.8

coconuts_n · Answer

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

nf25 · Answer

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'...

coconuts_n · Answer

AH mince, ma réponse ne valait que pour VBA
Fouille dans l'aide de VB

Désolé

Coco

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

3 réponses

Discussions similaires