Discussion :

[kitcarflo]

Voila, j'ai récupérer un bout de code VB6 et je le transforme en VB.Net

J'ai résolu tous les petits souci hormis 2.

Le premiers concerne la listview qui est présente dans la form.

voici le programme VB6 (a savoir que la ListView s’appelle : LstTemps)

En rouge : les érreurs

Code :

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

1
2
3
4
5
6
7
 Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        On Error Resume Next
        Dim itmx As ListItems
        itmx = LstView.ListItems
        itmx.Item(itmx.Count).SubItems(Key) = Entree
    End Function

Cette Function se trouve dans un Module.

Je n'arrive pas à modifier... si quelqu'un à une idée !!!!

Merci beaucoup

[Sankasssss]

Bonsoir,

avec une petite recherche google sur listview windows forms vous trouvez les liens MSDN :
ListView Control (Windows Forms)
ListView Class
En regardant les exemples, on peut voir la propriété Items qui vous intéresse
Et en plus c'est bourré d'exemples

[kitcarflo]

Justement, j'ai déjà regardé la.

Cela m'a permit de convertir une autre partie du code de la ListView mais pas sur cette partie la

Ps : Mise à jour du premier post

[Sankasssss]

Justement, je vous aiguille vers la propriété Items qui remplace votre ListItems, qu'est-ce que vous ne comprenez pas la dedans?

[kitcarflo]

Déjà, j'arrive pas trop a comprendre, avec cette "function" ce que le mec à voulu faire !!!!

Voici ce que j'ai tenté de faire

erreur en rouge

Code :

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

1
2
3
4
5
6
7
Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        On Error Resume Next
        Dim itmx As items
        itmx = LstView.Items
        itmx.Item(itmx.Count).SubItems(Key) = Entree
End Function

[Sankasssss]

Quand vous allez sur la page MSDN de la propriété Items : http://msdn.microsoft.com/en-us/libr...iew.items.aspx

Vous voyez que Items est en réalité de Type: System.Windows.Forms.ListView.ListViewItemCollection

Donc on pourrait déjà se dire de modifier le code comme ceci :

Code :

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

1
2
3
4
5
6
 
Public Sub ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        Dim itmx As ListView.ListViewItemCollection
        itmx = LstView.Items
        itmx.Item(itmx.Count).SubItems(Key) = Entree
End Function

Mais ceci n'a pas beaucoup de sens, il suffit de mettre :

Code :

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

1
2
3
4
 
Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        LstView.Items.Item(LstView.Items.Count).SubItems(Key) = Entree
End Function

Que l'on peut encore simplifier comme ceci :

Code :

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

1
2
3
4
 
Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        LstView.Items(LstView.Items.Count).SubItems(Key)  = Entree
End Function

Mais il reste une erreur sur = Entree. En regardant ce que SubItems accepte, on voit que c'est un ListViewSubItem, donc on modifie comme ceci :

Code :

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

1
2
3
    Public Function ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        LstView.Items(LstView.Items.Count).SubItems(Key) = New ListViewItem.ListViewSubItem(LstView.Items(LstView.Items.Count), Entree)
    End Function

Et enfin une fonction n'a pas de sens si elle ne retourne rien donc :

Code :

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

1
2
3
    Public Sub ViewTimes(ByVal LstView As ListView, ByVal Entree As String, ByVal Key As Integer)
        LstView.Items(LstView.Items.Count).SubItems(Key) = New ListViewItem.ListViewSubItem(LstView.Items(LstView.Items.Count), Entree)
    End Sub

Je n'ai jamais employé de ListView et avec l'aide de MSDN et de l'intellisens de VS on trouve rapidement la solution...