TreeView nesnesinde oluşturduğumuz Node ları, child nodes ları metin dosyasına kaydedeceğiz. Formunuza 1adet TreeView ve Button ekleyin.
Şekil 1
Şekil 2
Form1.vb
Imports System.IO
Public Class Form1
Dim baslik As New Windows.Forms.TreeNode("Bahadır ŞAHİN", 0, 0)
Dim altbaslik1 As New Windows.Forms.TreeNode("Yazılım Uzmanı", 1, 1)
Dim altbaslik2 As New Windows.Forms.TreeNode("Site:http://www.bahadirsam.com", 1, 1)
Dim altbaslik3 As New Windows.Forms.TreeNode("Mail:bahadirsa@hotmail.com", 1, 1)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TreeView nesnemize node ları ekliyoruz.
TreeView1.Nodes.Add(baslik)
baslik.Nodes.Add(altbaslik1)
baslik.Nodes.Add(altbaslik2)
baslik.Nodes.Add(altbaslik3)
TreeView1.Nodes.Add("Haluk")
TreeView1.Nodes.Add("Fatih")
TreeView1.Nodes.Add("Mesut")
TreeView1.Nodes.Add("Ayhan")
End Sub
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Dim i, j As Integer
Dim file As String
file = "C:\treeview.txt"
Dim fs As FileStream = New FileStream(file, FileMode.Append)
Dim sw As StreamWriter = New StreamWriter(fs)
'TreeView daki kayıt sayısı alınıyor.
i = TreeView1.Nodes.Count - 1
'Ben bu örnekte 1. node da child node kullandığım için
'Bu kısmın txt dosyada treeviewdaki gibi görünmesi için
'1. node aşağıdaki gibi yaptım.
sw.WriteLine(TreeView1.Nodes.Item(0).ToString)
sw.WriteLine(baslik.Nodes.Item(0).ToString)
sw.WriteLine(baslik.Nodes.Item(1).ToString)
sw.WriteLine(baslik.Nodes.Item(2).ToString)
'Eğer 1. node da child node kullanmıyacaksanız
'veya node başlığı gözükmesi yeter diyorsanız
'j=0 yapın üst satırdaki kodları silin.
For j = 1 To i Step 1
sw.WriteLine(TreeView1.Nodes.Item(j).ToString)
Next
sw.Close()
fs.Close()
End Sub
End Class
Bir makalenin daha sonuna geldik. Bir sonraki makalede buluşmak üzere. Hoşçakalın. Bahadır ŞAHİN
0 comments:
Yorum Gönder