Discussion :

[lutin06]

Bonjour

J'ai 5 Textbox vides dans lesquelles je remplis differentes informations

Ensuite 3 possibilités s'offrent a moi : Ajouter, Supprimer ou Editer.

Si je clique sur Ajouter, les informations que j'ai rentré dans les Textbox
seront implémentés dans une Listview sur une ligne.

Si je clique sur Supprimer après avoir cliqué sur la ligne voulue, la ligne
en question sera supprimée du Listview

Si je clique sur Editer après avoir cliqué sur la ligne voulue, cela doit
ouvrir une nouvelle fenetre dans laquelle j'ai 5 Textbox avec les informations de la ligne remplie. Je n'ai donc plus qu'à changer les
informations , cliquer sur Ok et la ligne est éditée.

J'ai déja developpé les boutons Ajouter et Supprimer, mais je bloque
pour Editer. Comment faire ?

merci

[Bigyork]

Dans le bouton editer de ta première feuille tu mets :

Code :

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

1
2
3
4
5
 
   Form2.Text1 = ListView1.SelectedItem.Text
   Form2.Text2 = ListView1.SelectedItem.SubItems(1)
   Form2.Text3 = ListView1.SelectedItem.SubItems(2)
   '...

et dans le bouton OK de la deuxième :

Code :

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

1
2
3
4
5
 
   Form1.ListView1.SelectedItem.Text = Text1.Text
   Form1.ListView1.SelectedItem.SubItems(1) = Text2.Text
   Form1.ListView1.SelectedItem.SubItems(2) = Text3.Text
   '...

Après à toi de tester la viabilité des données saisies, ...

[lutin06]

Salut merci pour ta réponse

J'ai réussi pour le bouton editer , les informations sont bien transmises
mais pour le bouton Ok je bloque, je n'arrive pas à renvoyer les
informations modifiées vers le Listview.

Voila mon code pour le bouton editer :

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
 
Dim EditContact As New EditContact
Dim selCol As ListView.SelectedListViewItemCollection
Dim selColItem As ListViewItem
 
selCol = Me.ListClientInfoContact.SelectedItems
EditContact.TextBox1.Text = selCol.Item(0).Text
For Each selColItem In selCol
  Try
    EditContact.TextBox2.Text = selColItem.SubItems(1).Text
    EditContact.TextBox3.Text = selColItem.SubItems(2).Text
    EditContact.TextBox4.Text = selColItem.SubItems(3).Text
    EditContact.TextBox5.Text = selColItem.SubItems(4).Text
    EditContact.TextBox6.Text = selColItem.SubItems(5).Text
    EditContact.TextBox7.Text = selColItem.SubItems(6).Text
  Catch ex As Exception
  End Try
Next

EditContact étant le Form qui apparait après avoir cliqué sur le bouton
Editer
ListClientInfoContact etant le Listview

voila merci

[lutin06]

C'est bon j'ai resolu moi meme merci