Discussion :

[djdjo59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[azstar]

bonjour,

tu peut utilise un hashtable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djdjo59]

heyyy merci 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..

[azstar]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

[azstar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 lien

[djdjo59]

hey, merci ! mais ça me donne


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

je ne comprend pas l'erreur ...

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