小雄資訊中心內容
Private Sub Command2_Click()
If TreeView1.Nodes.Count = 0 Then Exit Sub
Open "test.dat" For Output As #1
Write #1, "", TreeView1.Nodes(1).Key, TreeView1.Nodes(1).Text
For n = 2 To TreeView1.Nodes.Count
Write #1, TreeView1.Nodes(n).Parent.Key, TreeView1.Nodes(n).Key, TreeView1.Nodes(n).Text
Next
Close #1
End Sub
執行時發生錯誤,不知那邊出問題
請大大幫我test,非常感激
Private Sub Command2_Click()
If TreeView1.Nodes.Count = 0 Then Exit Sub
Open "test.dat" For Output As #1
Write #1, "", TreeView1.Nodes(1).Key, TreeView1.Nodes(1).Text
For n = 2 To TreeView1.Nodes.Count
Write #1, TreeView1.Nodes(n).Parent.Key, TreeView1.Nodes(n).Key, TreeView1.Nodes(n).Text
Next
Close #1
End Sub
執行時發生錯誤,不知那邊出問題
請大大幫我test,非常感激
文章標籤
全站熱搜
