بالا و پایین بردن گره ها در TreeView

[ehsanvb]

چطور میتونم گره ها را در همان سطحی که هستند در TreeView در هنگام اجرای برنامه بالا یا پایین بیاورم؟

[ehsanvb]

گفتم شاید سوالم نامفهموم بوده که کسی جواب نداده یه عکس میزارم برا توضیحش


111634

مثلا در عکس بالا اگر بخواهیم Nod7 را به قبل از Nod6 یا بعد از Nod8 در هنگام اجرای برنامه انتقال دهیم چه کار باید بکینم

در نظر داشته باشیم که نودNod7 ممکن است زیر مجموعه (Child) هم داشته باشند

متشکرم

[ehsanvb]

بابا شما را چه شده است که کسی پاسخگو نیست !!!!

لااقل یکی بگه بلد نیستم من دلم خوش بشه.

البته به نظرم این مطلبی نیست که کسی بلد نباشه.

[ehsanvb]

با تشکر از خیل عظیم دوستان پاسخگو !!!!

بعد از مدتها جستجو بالاخره جوابم رو تو یه سایت لاتین پیدا کردم

اینجا مینویسم تا آیندگان از آن بهره برند:

جالبه خودم سوال رو مطرح کردم پیگیری کردم و جواب دادم به قول شاعر:

خود گویی و خود خندی / عجب مرد هنرمندی :چشمک:

یا به عبارتی:
خود پرسی و خود جواب دهی / عجب سایت هنرمندی :متفکر:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MoveNodeUp(TreeView1.SelectedNode)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MoveNodeDown(TreeView1.SelectedNode)
End Sub

Public Sub MoveNodeUp(ByVal Nod As TreeNode)
Try
If Not (Nod.PrevNode Is Nothing) Then
Nod.Parent.Nodes.Insert(Nod.Index - 1, CType(Nod.Clone, TreeNode))
Nod.Remove()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

Public Sub MoveNodeDown(ByVal Nod As TreeNode)
Try
If Not (Nod.NextNode Is Nothing) Then
Nod.Parent.Nodes.Insert(Nod.Index + 2, CType(Nod.Clone, TreeNode))
Nod.Remove()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

[Hossis]

من ندیدم و گرنه همین کد رو در مورد جابجایی آیتم های لیست باکس داشتم
حالا که حل شد الحمد لله!!

[فاطی.جدا]

خدا خیرتون بده.من هرچی گشتم نتونستم پیدا کنم.ممنونم