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?