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