[VB.NET] Double cliquer sur élément listbox [VB.NET]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB.NET] Double cliquer sur élément listbox [VB.NET]

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 :

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

Publicité

Lilleman

Dans un premier temps, on peut remplacer le "sender as Object" par "sender as Listbox" (ou le type du controle utilisé),
ça permettra à Visual Studio de t'afficher les bonnes infos sur ton objet

Code :

Private Sub Liste_MouseDoubleClick(sender As ListBox, e As MouseEventArgs) Handles Liste.MouseDoubleClick
'sender représente donc ta listbox, on peut la tester directement plutot que d'appeler "Liste"
'ensuite, il faut tester si un objet est bien sélectionné dans cette liste, si aucun objet n'est sélectionné, sender.selectedIndex (ou "Liste.selectedIndex" ) vaut -1
if sender.selectedIndex>=0 then
'enfin plutot que d'appeler directement la fonction "show", on peut appeler une autre fonction avec un argument (le film). Ici, je vais l'appeler "ShowWithArguments"
Consultation.ShowWithArguments(ListeDeFilms(sender.selectedIndex))
end if
end sub

Du coup, il faut ajouter une fonction dans ta classe "Consultation":

Code :

Public Sub ShowWithArguments(ByRef film as Films)
'on appelle la fonction show, histoire que le formulaire s'affiche
Show()
'et avec l'objet "film" en argument tu peux récupérer les infos directement
'(ton code de récupération de données ici)
End Sub

Message édité par Lilleman le 24-02-2014 à 11:52:59

ziggy76

Merci celà m'a beaucoup aidé.
Cependant la récupération des informations du film ne marche pas dans consultation j'ai essyé autre chose mais j'ai le même résultat. Je posterais le code

ziggy76

Merci celà m'a beaucoup aidé.
Puisque je t'ai sous la main et au lieu de créer un nouveau sujet, j'aimerais une suggestion de ta part sur un problème que j'ai rencontré tout au long de mon programme.

En fait j'aimerais lors d'un clic sur un bouton supprimer un film dans laitbox et dans la collection par la même occasion. Le code que j'ai tapé marche partiellement mais à la fin l'appli plante et j'ai une erreur (InvalidOperationException).
Saurais tu ce qui ne va pas?

Code :

Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
For Each Film As Films In ListeDeFilms
Dim Rep As Integer
If Liste.SelectedItem = Film.Name Then
Rep = MsgBox("Voulez-vous vraiment supprimer ce film?", 0, "Confirmation de Suppression" )
If Rep = 1 Then
Liste.Items.Remove(Liste.SelectedItem)
ListeDeFilms.Remove(Film)
MsgBox("Votre film a été supprimé", 0, "Confirmation" )
MiseAJour()
End If
End If
Next
End Sub

Lilleman

Le plus gros problème que je vois (qui bloquera l’exécution à coup sûr), c'est que tu essaies de supprimer un élément de la liste de films alors que tu es en train de la parcourir.
La fonction ForEach ne permet pas de faire ça directement, la liste doit contenir le même nombre d'éléments jusqu'à la fin de la boucle.

Le code tel que tu l'as fait ici parcourra toute la liste et supprimera tous les films qui ont le même nom que la sélection. Dans le cas où tu veux supprimer un film parce qu'il est en double dans la liste, ça peut poser souci.
De plus, une fois que tu as supprimé l'élément souhaité de la Listbox, Liste.SelectedItem repasse à "Nothing", et le programme n'a plus d'objet pour une comparaison.
Dans ce cas précis (je pars du principe que tu as utilisé le code que tu as posté dans un autre topic), la ListBox devrait contenir le même nombre d'éléments que ListDeFilms, dans le même ordre.

Donc, Liste.SelectedIndex correspondra à l'index de l'objet Film dans ListeDeFilms.

Code :

Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
'on s'assure qu'un élément est sélectionné dans la liste
If Liste.SelectedIndex >= 0 Then
'On demande la confirmation
If MsgBox("Voulez-vous supprimer ce film?", MsgBoxStyle.YesNo, "Confirmation de suppression" ) = MsgBoxResult.Yes Then
'on supprime l'élément de la liste tant que SelectedIndex vaut quelque chose, puisqu'une fois l'objet supprimé de la ListBox, il repassera à -1
ListeDeFilms.RemoveAt(Liste.SelectedIndex)
Liste.Items.RemoveAt(Liste.SelectedIndex)
'Le fait de mettre une condition ici permet de stopper le programme tant que l'utilisateur n'a pas cliqué sur OK
If MsgBox("Le film a été supprimé.", MsgBoxStyle.OkOnly, "Confirmation" ) = MsgBoxResult.Ok Then
MiseAJour()
End If
End If
End If
End Sub

Edit: Si tu as trié les films dans la ListBox, mais pas dans ListeDeFilms, cette fonction ne marchera pas.

Dans ce cas mieux vaut parcourir la liste pour trouver le film dont le nom correspond.

Code :

Private Sub Supprimer_Click(sender As Object, e As EventArgs) Handles Supprimer.Click
'on s'assure qu'un élément est sélectionné dans la liste
If Liste.SelectedIndex >= 0 Then
'on parcoure la liste à la recherche du bon film
For i = (ListeDeFilms.Count-1) To 0 Step -1
If ListeDeFilms(i).Name = Liste.SelectedItem Then
'On demande la confirmation
If MsgBox("Voulez-vous supprimer ce film?", MsgBoxStyle.YesNo, "Confirmation de suppression" ) = MsgBoxResult.Yes Then
'on supprime l'élément des deux listes
ListeDeFilms.RemoveAt(i)
Liste.Items.RemoveAt(Liste.SelectedIndex)
'Le fait de mettre une condition ici permet de stopper le programme tant que l'utilisateur n'a pas cliqué sur OK
If MsgBox("Le film a été supprimé.", MsgBoxStyle.OkOnly, "Confirmation" ) = MsgBoxResult.Ok Then
MiseAJour()
End If
End If
'Qu'on ai accepté de supprimer ou non, on a trouvé une correspondance, on sort de la boucle
i = 0
End If
Next
End If
End Sub

Encore une fois, ce code ne posera pas de souci pour supprimer un film, tant que deux films ne portent pas le même nom.
Dans ce cas, je pars du principe que le film en trop est celui qui a été ajouté en dernier, d'où le " For i = (ListeDeFilms.Count-1) To 0 Step -1 " plutôt que For i = 0 To (ListeDeFilms.Count-1) ".

Message édité par Lilleman le 14-03-2014 à 16:19:05

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB.NET] Double cliquer sur élément listbox [VB.NET]

Sujets relatifs
[VB.NET] Problème affichage collections dans listbox [VB.NET]	.NET & Oracle - Compte expiré
[VB] Comment kill processus dans un endroit précis.	Faire défiler un élément précis avec scrollBy() ?
rechercher remplacer en VB sur excel	Affecter élément DOM à une variable
Aide exercice VB	[VB.NET] Programme d'envoi de paquet
Plus de sujets relatifs à : [VB.NET] Double cliquer sur élément listbox [VB.NET]

Page générée en 0.090 secondes