Comment renommer une Node d'un TreeView en VB2005 ?

[claude]

Bonjour je cherche à renommer une node d'un TreeView mais ça ne fonctionne pas.
Malgré un Nodes.Find qui me retourne bien le Node en cours avant changement de son nom,
et qui grace à cela je récupère aussi l'index.
Ci-joint code non fonctionnel

Merci.
If MessageBox.Show ("Etes-vous certain de vouloir Renommer ce répertoire [" & strVal & "] ?", "Renommer répertoire", MessageBoxButto ns.OKCancel, MessageBoxIcon. Warning) = DialogResult.OK Then
Dim TreeRen() As TreeNode = Me.DirTreeView. Nodes.Find(strV al, True)
For i As Integer = 0 To UBound(TreeRen)
If TreeRen(i).IsVi sible Then
Dim indexNode As Integer = TreeRen(i).Inde x ' Retourne bien l'index correspondant

Dim frmModif As New frm_Saisie
frmModif.tb_Val Name.Enabled = False
frmModif.tb_Val Name.Text = Strings.Mid(str Val, strVal.LastInde xOf("\") + 2)
frmModif.tb_Val .Text = Strings.Mid(str Val, strVal.LastInde xOf("\") + 2)
frmModif.ShowDi alog()
'*** 1er Essai ne fonctionne pas non plus Element inexistant ?
Me.DirTreeView. Nodes.Item(inde xNode).Text = frmModif.tb_Val .Text
Me.DirTreeView. Nodes.Item(inde xNode).Name = Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
'*** Autre Essai ne fonctionne pas non plus Element inexistant ?
'TreeRen(i).Tex t = frmModif.tb_Val .Text
'TreeRen(i).Nam e = Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
'Me.DirTreeView .Nodes.RemoveAt (indexNode)
'Me.DirTreeView .Nodes.Insert(i ndexNode, TreeRen(i))

lvw_Reg.Items.I tem(ilv).Text = frmModif.tb_Val .Text
lvw_Reg.Items.I tem(ilv).SubIte ms(1).Text = Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
IO.Directory.Mo ve(strVal, Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text)
frmModif.Dispos e()
End If
Next
End If
--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-

[Cor Ligthert [MVP]]

Claude,

This is a English language newsgroup, most visitors are from countries all
over the world, from which for a major part English is not their first
language. However we are used to do the conversation in English.

There is a newsgroup special for French to, it has a much simpler name

microsoft.publi c.dotnet.vb

As an advice, try to make a litle sample instead of a copied part of your
program with even outcommented code in it. That makes it easier to help you.

By instance replace all string variables as much as possible by hard
strings. Probably the chance that you than find the problem yourself is very
high..

I hope this helps something

Cor

"claude" <No*********@gm ail.com> schreef in bericht
news:11******** ********@proxy0 2.news.clara.ne t...

Bonjour je cherche à renommer une node d'un TreeView mais ça ne fonctionne
pas.
Malgré un Nodes.Find qui me retourne bien le Node en cours avant
changement de son nom,
et qui grace à cela je récupère aussi l'index.
Ci-joint code non fonctionnel

Merci.
If MessageBox.Show ("Etes-vous certain de vouloir Renommer ce répertoire ["
& strVal & "] ?", "Renommer répertoire", MessageBoxButto ns.OKCancel,
MessageBoxIcon. Warning) = DialogResult.OK Then
Dim TreeRen() As TreeNode =
Me.DirTreeView. Nodes.Find(strV al, True)
For i As Integer = 0 To UBound(TreeRen)
If TreeRen(i).IsVi sible Then
Dim indexNode As Integer = TreeRen(i).Inde x '
Retourne bien l'index correspondant

Dim frmModif As New frm_Saisie
frmModif.tb_Val Name.Enabled = False
frmModif.tb_Val Name.Text = Strings.Mid(str Val,
strVal.LastInde xOf("\") + 2)
frmModif.tb_Val .Text = Strings.Mid(str Val,
strVal.LastInde xOf("\") + 2)
frmModif.ShowDi alog()
'*** 1er Essai ne fonctionne pas non plus
Element inexistant ?
Me.DirTreeView. Nodes.Item(inde xNode).Text =
frmModif.tb_Val .Text
Me.DirTreeView. Nodes.Item(inde xNode).Name =
Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
'*** Autre Essai ne fonctionne pas non plus
Element inexistant ?
'TreeRen(i).Tex t = frmModif.tb_Val .Text
'TreeRen(i).Nam e = Strings.Left(st rVal,
strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
'Me.DirTreeView .Nodes.RemoveAt (indexNode)
'Me.DirTreeView .Nodes.Insert(i ndexNode,
TreeRen(i))

lvw_Reg.Items.I tem(ilv).Text =
frmModif.tb_Val .Text
lvw_Reg.Items.I tem(ilv).SubIte ms(1).Text =
Strings.Left(st rVal, strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text
IO.Directory.Mo ve(strVal, Strings.Left(st rVal,
strVal.LastInde xOf("\") + 1) & frmModif.tb_Val .Text)
frmModif.Dispos e()
End If
Next
End If
--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-