Détection de clic sur colonne de listviewRésolu

Question

Salut,

            Comment détecter le clic sur une colonne d'une ListView alors que celle-ci est crée pendant l'éxecution du programme
La listview est déclarée comme telle :

Dim L As New ListView

Form1.Controls.Add(L)
L.Dock = DockStyle.Fill

Comment détecter le clic sur une colonne de L ?

Merci

Utilisateur anonyme · Accepted Answer

Salut,

Il faut que tu utilise AddHandler pour assigner l'événement.



Dim L As New ListView
Form1.Controls.Add(L)
L.Dock = DockStyle.Fill
AddHandler L.ColumnClick, AddressOf L_ColumnClick

Private Sub L_ColumnClick(ByVal Sender As Object, ByVal Args As ColumnClickEventArgs)

End Sub,

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

cs_fauve · Answer

ca fonctionne si je rajoute plusieurs fois la ListView L par exemple dans des onglets

cs_fauve · Answer

voilà la fonction qui crée la listview dans un onglet :

Sub

 ajouter_un_onglet()

      Dim Tab 
As
New TabPage(
"")
      Dim 
L 
As
New ListView

      TabControl1.TabPages(TabControl1.TabPages.Count - 1).Text = 
"Sans Nom"
      TabControl1.SelectedTab = TabControl1.TabPages(TabControl1.TabPages.Count - 1)
      TabControl1.SelectedTab.Controls.Add(L)
      L.Dock = DockStyle.Fill
      Browsers.Add(L)

     AddHandler Browsers(TabControl1.SelectedIndex).ColumnClick, 
AddressOf L_ColumnClick1
     Browsers(TabControl1.SelectedIndex).View = View.Details
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Nom", 216)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Prénom", 216)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Bac", 94)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Note SH", 94)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Note GE", 94)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Note PP", 94)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Moyenne", 94)
     Browsers(TabControl1.SelectedIndex).Columns.Add(
"Classement", 94)
     TabControl1.TabPages.Add(Tab)

End
Sub

Private
SubL_ColumnClick1(
ByValsender
As
Object, 
ByVale
AsColumnClickEventArgs)

      Ife.Column >= 0
Ande.Column <= 2
Then
            Trier_string(e.Column)

      Else
            Trier_nombres(e.Column)

      End
If

End
Sub

Est ce que le code est bon pour détecter le clic sur chaque ListView que je vais créer ?

Utilisateur anonyme · Answer

Oui, c'est bon.
Tu peux récupére la listview appelante avec le sender.
Par contre, je te conseil de mettre ces listView dans une collection. ( 


List(

Of ListView) )









__________
Kenji

Détection de clic sur colonne de listview

4 réponses

Votre réponse

Discussions similaires