حفظ تغير في TreeView1 ?

يمكن استخدام XMLFile

ممكن مثال يااخي ؟

W XP 2003 كتب:

ممكن مثال يااخي ؟

Public Sub BuildTreeString(ByVal rootNode As TreeNode, ByRef buffer As System.Text.StringBuilder)
        If rootNode.Level = 0 Then
            buffer.Append(" *" & rootNode.Text)
            buffer.Append(Environment.NewLine)
        Else
            buffer.Append(rootNode.Text)
            buffer.Append(Environment.NewLine)
        End If

        For Each childNode As TreeNode In rootNode.Nodes
            BuildTreeString(childNode, buffer)
        Next
End Sub

Private Sub SsssToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SsssToolStripMenuItem.Click

        SaveFileDialog1.Title = "حفظ الملف"
        SaveFileDialog1.Filter = "Text Documents|*.txt"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.FileName = "المفضلة" & ".txt"

        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            Me.Cursor = Cursors.WaitCursor
            Dim buffer As New System.Text.StringBuilder
            'loop through each of the treeview's root nodes
            For Each rootNode As TreeNode In TreeView1.Nodes
                'call recursive function
                BuildTreeString(rootNode, buffer)
                buffer.Append(Environment.NewLine)
            Next
            'write data to file
            IO.File.WriteAllText(SaveFileDialog1.FileName, buffer.ToString, System.Text.Encoding.Default)

            Me.Cursor = Cursors.Default
            'ShellExecute(Me.Handle.ToInt32, vbNullString, SaveFileDialog1.FileName, vbNullString, Mid(SaveFileDialog1.FileName, 1, InStrRev(SaveFileDialog1.FileName, "\") - 1), 1)
        End If
    End Sub

الله يعطيك العافية يااخي booknet

ما اقصد حظة خارج البرنامج بملف , انا اريد حقظ متغيرات , مثل

- الفصل اول

-- مقدمة

-- درس اول

-- درس الثاني

لو حذفة درس اول بأستخدام كود

TreeView1.Nodes.Remove(TreeView1.SelectedNode)

سوف يحذف ولكن عند اقلاق برنامج وفتحه سوف تلاحظ رجوع من جديد " درس اول " .

ممكن