小雄資訊中心內容
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,非常感激
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • 小貓咪
  • 主要目的是要轉成文字檔,謝謝。