Anasayfa > Kodlar > Visual Basic 6 ile Treeview kullanımı

Visual Basic 6 ile Treeview kullanımı


TreeView kullanımına güsel bir ornek acaromer@hotmail.com

TreeView kontrolu bildiğiniz gibi dosya ve klasör listelemede kullanılan bir kontroldür.
formumuza TreeView1 ve ListBox1 kontrolu eklemeniz yeterli...
Kolay gelsin


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Dim sürücüler As String() = System.IO.Directory.GetLogicalDrives
Dim i As Integer
For i = 0 To UBound(sürücüler)
TreeView1.Nodes.Add(sürücüler(i))
Next
End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
'klasörleri listele
On Error Resume Next
Dim klasörler As String() = System.IO.Directory.GetDirectories(e.Node.FullPath & "\")
Dim i As Integer
Dim k() As String
'Daha önce eklenmemişse alt klasörleri ekle
If e.Node.GetNodeCount(True) = 0 Then
For i = 0 To UBound(klasörler)
k = klasörler(i).Split("\")
e.Node.Nodes.Add(k(UBound(k)))
Next
End If
'dosyaları listele
ListBox1.Items.Clear()
Dim dosyalar As String() = System.IO.Directory.GetFiles(e.Node.FullPath)
For i = 0 To UBound(dosyalar)
k = dosyalar(i).Split("\")
ListBox1.Items.Add(k(UBound(k)))
Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
On Error Resume Next 'Resim dosyası değilse hata vermesin
PictureBox1.Image = Image.FromFile(TreeView1.SelectedNode.FullPath & "\" & ListBox1.SelectedItem)
End Sub

 


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: