Ответить

Слышб боевик помоги с кодом

Ответить

Здравствуйте! Попробуйте с этим что-то сделать. Здесь сохраняем в файл.

Private Sub FileSave(strFileName As String)
    Dim arrData() As String
    Dim lngIndex As Long
    Dim nFile As Integer
    nFile = FreeFile
    On Error Resume Next
    ReDim arrData(0 To tvwObj.Nodes.Count)
    For lngIndex = 0 To (tvwObj.Nodes.Count)
        If tvwObj.Nodes(lngIndex).Parent Is Nothing Then
            arrData(lngIndex) = 0 & Chr(1) & tvwObj.Nodes(lngIndex).Text & Chr(1) & tvwObj.Nodes(lngIndex).Image & Chr(1) & tvwObj.Nodes(lngIndex).SelectedImage & Chr(1) & arrType(lngIndex)
        Else
            arrData(lngIndex) = tvwObj.Nodes(lngIndex).Parent.Index & Chr(1) & tvwObj.Nodes(lngIndex).Text & Chr(1) & tvwObj.Nodes(lngIndex).Image & Chr(1) & tvwObj.Nodes(lngIndex).SelectedImage & Chr(1) & arrType(lngIndex)
        End If
    Next lngIndex
    Open strFileName For Output As #nFile
        Print #nFile, Join(arrData, Chr(0));
    Close #nFile
End Sub

Здесь читаем из файла:

Private Sub FileOpen(strFileName As String)
    Dim strData As String
    Dim arrData() As String
    Dim arrTemp() As String
    Dim lngIndex As Long
    Dim nFile As Integer
    nFile = FreeFile
    On Error Resume Next
    Open strFileName For Binary Access Read As #nFile
    strData = Space(LOF(nFile))
    Get #nFile, , strData
    Close #nFile
    tvwObj.Nodes.Clear
    arrData() = Split(strData, Chr(0))
    ReDim LBound(arrData) To UBound(arrData)
    For lngIndex = LBound(arrData) To UBound(arrData)
        arrTemp() = Split(arrData(lngIndex), Chr(1))
        If arrTemp(0) = "0" Then
            tvwObj.Nodes.Add , , , arrTemp(1), CInt(arrTemp(2)), CInt(arrTemp(3))
        Else
            tvwObj.Nodes.Add CLng(arrTemp(0)), tvwChild, , arrTemp(1), CInt(arrTemp(2)), CInt(arrTemp(3))
        End If
        tvwObj.Nodes(lngIndex).Expanded = True
    Next lngIndex
    tvwObj.Nodes(1).Selected = True
End Sub

Ответить

Еще вариант, ответ на мой аналогичный вопрос

'Сохранение
Dim lngIndex As Long, arrData() As String
 On Error Resume Next
 ReDim arrData(1 To TreeView.Nodes.Count)
For lngIndex = 1 To TreeView.Nodes.Count
  If TreeView.Nodes(lngIndex).Parent Is Nothing Then
    arrData(lngIndex) = 0 & Chr(1) & TreeView.Nodes(lngIndex).Text
  Else
    arrData(lngIndex) = TreeView.Nodes(lngIndex).Parent.Index & Chr(1) & TreeView.Nodes(lngIndex).Text
  End If
Next

Open App.Path & "\TreeView.txt" For Output As #1
  Print #1, Join(arrData, Chr(0));
Close

'Загрузка
 On Error Resume Next
Open App.Path & "\TreeView.txt" For Binary Access Read As #1
  strData = Space(LOF(1))
Get #1, , strData
Close

TreeView.Nodes.Clear
arrData = Split(strData, Chr(0))
For lngIndex = LBound(arrData) To UBound(arrData)
  arrTemp = Split(arrData(lngIndex), Chr(1))
  If arrTemp(0) = "0" Then
    TreeView.Nodes.Add , , , arrTemp(1), 1, 2
  Else
    TreeView.Nodes.Add CLng(arrTemp(0)), tvwChild, , arrTemp(1), img, imgsel
  End If
Next

А до этого я еще сохранял в виде текста в комментариях, аналогичных html. Это менее красиво смотрелось в коде... Покажешь мне, что получится?

Ответить