ListView - Migration VB6 à VB.Net

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:

---

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

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 :ccool:

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

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

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:

---

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

---

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:

---

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:

---

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:

---

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:

---

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:

---

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...

En gros tu me dit que pour migrer de VB6 à VB.Net, il ne faut pas que je traduise mot par mot mais plutôt la fonction dans sa globalité.

Je vais tester ceci ce soir, et je te dirais ce qu'il en est.

Tu sais, j'ai apprit la programmation tout seul, et j'apprend encore. Et même si je commence à me debrouiller, j'ai pas mal de lacune.

En tout cas, je te remercie. Si cela fonctionne, il ne me restera qu'une erreur de "Byval" à corriger pour terminer la migration de VB6 à VBnet.

:ccool:

Citation:

---

Envoyé par kitcarflo

Tu sais, j'ai apprit la programmation tout seul, et j'apprend encore. Et même si je commence à me debrouiller, j'ai pas mal de lacune.

---

Je n'ai jamais critiqué, tout le monde passe par la case débutant, je cherche juste à ce que tu puisses apprendre à trouver par toi même.
J'essaye toujours de donner de bons indices pour débloquer les discussions sans non plus donner la réponse toute faite car comme le dit le dicton :
Donne un poisson à un homme, il mangera un jour, apprend lui à pêcher, il mangera toute sa vie

;)

Citation:

---

Envoyé par Sankasssss

Donne un poisson à un homme, il mangera un jour, apprend lui à pêcher, il mangera toute sa vie

;)

---

J'adore ta phrase.

J'avais pas mal débuter en remplaçant le "ListItems" par "ListViewItemCollection" mais je me suis arrêter derrière.

Pour info, par cette procédure le mec cherchais à faire quoi ?

A première vue, la procédure change le subitem d'index Key du dernier item de la listview.
Mais comme je l'ai dit plus haut, je n'ai jamais employé de ListView donc je ne visualise pas du tout le comportement de ce composant. :roll:

Bonjour,
Il aurait été intéresssant de nous préciser la valeur propriété View. Vu le code A priori c'est "Details".

Citation:

---

Envoyé par Sankasssss

A première vue, la procédure change le subitem d'index Key du dernier item de la listview.
...

---

Exact. A mon avis, sur un ListView en mode "Details", cela change le texte de la colonne d'index Key de la dernière ligne.

Citation:

---

Envoyé par Sankasssss

Code:

---

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

---

---

Ne connaissant pas le composant, Bravo pour la déduction.:ccool:
Mais j'aurais mis "LstView.Items.Count - 1"


Et il me semble que

Code:

---

LstView.Items(LstView.Items.Count - 1).SubItems(Key).Text = Entree

---

fait la même chose. Change le texte de la colonne d'index Key de la dernière ligne (a tester)
Note : .Item étant pris comme propriété par défaut.

A+, Hervé.

Citation:

---

Envoyé par rv26t

Mais j'aurais mis "LstView.Items.Count - 1"

Et il me semble que

Code:

---

LstView.Items(LstView.Items.Count - 1).SubItems(Key).Text = Entree

---

fait la même chose. Change le texte de la colonne d'index Key de la dernière ligne (a tester)
Note : .Item étant pris comme propriété par défaut.

A+, Hervé.

---

:ccool: :plusser:

Vous me laissez sur le cul les mecs.

Je prend la tasse moi...

En tout cas, la proposition de "Sankasssss" fonctionne. Je n'ai plus d'erreur pour le moment.

Je n'ai pas lancé le programme car j'ai encore une erreur de conversion d'une variable "ByVal" dans un "ReadProcessMemory" mais j’essaie de chercher encore un peu avant de venir vous embêtez.

Citation:

---

Envoyé par kitcarflo

En tout cas, la proposition de "Sankasssss" fonctionne. Je n'ai plus d'erreur pour le moment.

---

Tu n'auras plus d'erreur de compilation (en codant) mais si tu laisses ce que je t'ai donné, tu auras une erreur à l’exécution de type : index out of range exception

Donc mets le code donné par rv26t, en particulier le -1

Oki, j'ai remplacé par le code de rv26t

Je vous tiens au courant pour le programme si il tourne ou pas.