combobox et valeur de texte

Version imprimable

Bonjour

voilà j'ai un ComboBox qui utilise une base de données Access pour afficher les textes (peut etre pas le meilleur moyen je me doute...)
ce que je voudrais c'est qu'enfaite chaque texte possède une image, par exemple j'ai les mot: chien, chat, lapin
je voudrais que le mot chien est une image derrière, etc, que lorsque l'utilisateur click sur le mot, l'image apparaisse dans une PictureBox
faire apparaitre l'image j'y arrive, ce que je n'arrive pas c'est associer un mot à une image

voici mon code pour afficher dans la picturebox
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim selectedItem As String selectedItem = ComboBox1.Text Try PictureBox1.Image = Image.FromFile(ComboBox1.SelectedItem.ToString) Catch ex As Exception ' Handle exception End Try
j'avais essayé ceci au départ dans al combobox
Code:

1 2 3 4 ComboBox1.Items.Clear() ComboBox1.Items.Add("D:\Download\Image1.jpg") ComboBox1.Items.Add("D:\Download\Image2.jpg")
mais ça m'affiche le lien des images dans ma combo..

merci de votre aide !

bonjour,

tu peut utilise un hashtable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Class Form1
    Dim az As Hashtable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        az = New Hashtable()
        az.Add("chat", "C:\Urlaubsblatt.JPG")
        az.Add("chien", "C:\untitled.bmp")
        ComboBox1.Items.Add("chien")
        ComboBox1.Items.Add("chat")
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Try
            PictureBox1.Image = Image.FromFile(az(ComboBox1.SelectedItem.ToString).ToString)
 
        Catch ex As Exception
            ' Handle exception
        End Try
    End Sub
End Class

bon courage

30/10/2009, 15h43
djdjo59

heyyy merci :D saurais-tu comment faire pour que lorsque la souris passe sur l'un des noms, la photo change toute seule ? sans que j'ai à cliquer ..
j'hésite a un mousesomething..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Exemple: La souris survole ListBox2 , on a e.X et e.Y, coordonnées de l'écran, comment obtenir l'index.
 
On va d'abord transformer e.X et e.Y en coordonnées client (par rapport à la listBox)
 
ListBox2.PointToClient(New Point(e.X, e.Y)
 
Puis ListBox2.IndexFromPoint() va retourner l'index survolé.
 
 
Private Sub ListBox2_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) 
_Handles ListBox2.DragOver
 
IndexdInsertion = ListBox2.IndexFromPoint(ListBox2.PointToClient(New Point(e.X, e.Y)))
 
End Sub

voir le cours de vb.net

30/10/2009, 16h17
djdjo59

j'ai essayé, il me dit que IndexedInsertion n'est pas déclaré et que pour ComboRace.IndexFromPoint le IndexFromPoint n'est pas un membre de System.Windows.Form.ComboBox

je suis obligé d'avoir 5 contrôles différents, et je veux utiliser une combobox donc est-ce possible avec ce que je souhaite faire?

desolé pour le retard.

pour le combobox je pense que il 'est possible car c'est la listbox qui admit les deux dimention x,y .

tu peut essai de inclure les image dans ta combobox

si vous êtes intéresser voila un exemple ( ce n'est pas mon code j'ai l trouve sur google )

dans le load ou lors de la remplissage de votre combobox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Dim items(Me.ImageList1.Images.Count - 1) As String
 
        For i As Int32 = 0 To Me.ImageList1.Images.Count - 1
 
            items(i) = "Item " & i.ToString
 
        Next
 
        Me.ComboBox1.Items.AddRange(items)
 
        Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
 
        Me.ComboBox1.DrawMode = DrawMode.OwnerDrawVariable
 
        Me.ComboBox1.ItemHeight = Me.ImageList1.ImageSize.Height
 
        Me.ComboBox1.Width = Me.ImageList1.ImageSize.Width + 18
 
        Me.ComboBox1.MaxDropDownItems = Me.ImageList1.Images.Count

dans l'evenement de combobox1_draw

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
 
 
 
 
        If e.Index <> -1 Then
 
            If e.Index <> -1 Then
 
                e.Graphics.DrawImage(Me.ImageList1.Images(e.Index), e.Bounds.Left, e.Bounds.Top)
 
            End If
 
        End If
    End Sub

dans l'evenement ComboBox1_MeasureItem

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
 Private Sub ComboBox1_MeasureItem(ByVal sender As Object, ByVal e As System.Windows.Forms.MeasureItemEventArgs) Handles ComboBox1.MeasureItem
 
 
 
 
        e.ItemHeight = Me.ImageList1.ImageSize.Height
 
        e.ItemWidth = Me.ImageList1.ImageSize.Width
 
 
    End Sub

j'aspire que c que vous attendez :oops: lien

08/11/2009, 15h17
djdjo59

hey, merci ! mais ça me donne
http://img10.imageshack.us/img10/853...titretz.th.jpg

et le code du lien ne fonctionne pas, mais le tiens si ..

je ne comprend pas l'erreur ...
11/11/2009, 15h25
azstar

j n'est pas essaie trop de test le code.

essai de comprend a quoi sert chaque fonction !!

NB: que il y 'a plusieurs méthode de faire ça.