Discussion :

[ziggy76]

Bonjour,

En bon débutant que je suis, je recherche le code pour pouvoir lors de l'exécution de mon appli double cliquer sur un élément de ma lisbox.

J'aimerais ouvrir une nouvelle fenêtre lors du double click

Pouvez-vous m'aidez?

Merci

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
22
23
24
25
 
Public Class Accueil
    Dim ListeDeFilms As New List(Of Films)
    Private Sub Accueil_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ListeDeFilms.Add(New Films("Terminator 1", "Action", 1984, "Terminator 1, film d'action de James Cameron"))
        ListeDeFilms.Add(New Films("Terminator 2", "Action", 1995, "Terminator 2, film d'action de James Cameron"))
        ListeDeFilms.Add(New Films("Terminator 3", "Action", 1984, "Terminator 3, film d'action de Michael Ferris"))
 
        For Each Film As Films In ListeDeFilms
            Liste.Items.Add(Film.Affiche)
        Next
 
 
 
    End Sub
 
    Private Sub Liste_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles Liste.MouseDoubleClick
        If Liste.................. Then
            Consultation.Show()
        End If
 
    End Sub
 
End Class

[Pol63]

Code :

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

1
2
 
dim filmDoubleCliqué = DirectCast(ListeDeFilms.SelectedItem, Films)