Discussion :

[Jean-Luc80]

Bonjour
A l'ouverture d'un form j'affiche une listview que je crée avec ce code

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
26
27
28
29
30
 Public Function Init_SansDN()
        ListViewActeursSansDN.Items.Clear()
        ListViewActeursSansDN.Columns.Clear()
        Me.ListViewActeursSansDN.ListViewItemSorter = Nothing
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
                     "C:\Access\DvdData.mdb")
        Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
        Mycommand.CommandText = "SELECT N°,Code FROM Acteurs WHERE Naissance is null ORDER BY Code"
 
        MyConnexion.Open()
 
        Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
        ListViewActeursSansDN.View = View.Details
        With ListViewActeursSansDN.Columns
            .Add("N°", 45, HorizontalAlignment.Left)
            .Add("Acteurs et actrices", 320, HorizontalAlignment.Left)
        End With
        Do While myReader.Read()
            Dim _MyListViewItem As ListViewItem = New ListViewItem(Format(myReader.GetValue(0), "0000"))
            With _MyListViewItem
                .SubItems.Add(myReader.GetValue(1).ToString)
            End With
            ListViewActeursSansDN.Items.Add(_MyListViewItem)
        Loop
        myReader.Close()
        MyConnexion.Close()
        PictureBoxActeurSansDN.Image = Nothing
        Return Nothing
    End Function

et ensuite

Code :

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

1
2
3
4
Private Sub ActeursSansDN(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Init_SansDN()
        Me.Text = "Acteurs et actrices sans date de naissance"
    End Sub

J'aimerais que la première ligne de cette liste soit sélectionnée à l'ouverture du form
J'ai essayé ça à la fin du code d'ouverture du form mais ça ne change rien

Code :

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

ListViewActeursSansDN.Items(0).Selected = True

Mais ça ne fait rien de plus

Ensuite en cliquant sur une ligne j'affiche une image correspondant à la ligne

Code :

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

1
2
3
4
5
Private Sub ListViewActeursSansDN_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewActeursSansDN.MouseClick
        Dim ItemSelected As ListView.SelectedListViewItemCollection = ListViewActeursSansDN.SelectedItems
        Dim TexteDansLaDEUXIEMEColonne As String = ItemSelected(0).SubItems(1).Text
        CheminActeurSansDN.Text = "C:\PhotoActeur\" & TexteDansLaDEUXIEMEColonne & ".jpg"
    End Sub

Plutôt que de cliquer sur chaque ligne j'aimerais pouvoir utiliser les flèches de direction du clavier
Cela marche mais je suis obligé quand même de cliquer pour voir l'image
Auriez-vous une solution à ces deux problèmes
Merci d'avance

[rv26t]

Bonjour,

J'aimerais que la première ligne de cette liste soit sélectionnée à l'ouverture du form

Code :

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

1
2
        ListViewActeursSansDN.Items(0).Focused = True
        ListViewActeursSansDN.Items(0).Selected = True

avec FullRowSelect à false.
__________________________

Plutôt que de cliquer sur chaque ligne j'aimerais pouvoir utiliser les flèches de direction du clavier

Avec l'évènement ItemSelectionChanged

Code :

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

1
2
3
4
5
    Private Sub ListView1_ItemSelectionChanged(sender As System.Object, e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        If e.Item.Focused AndAlso e.Item.Selected Then
            '... e.ItemIndex donne l'index
        End If
    End Sub

[Jean-Luc80]

Bonjour et merci de tes réponses
ça fonctionne bien avec les flèches du pavé directionnel
Par contre la 1ère ligne est bien activée au démarrage ( la photo s'affiche bien)
mais la ligne n'est pas en surbrillance
Est-ce normal ?

[wallace1]

bonjour,

La propriété FullRowSelect de ListViewActeursSansDN doit être paramétrée à True.

a+