[]
Visual Basic.Net hakkında bir soru
vb.NET de DriveListBox, DirListBox ve FileListBox nerede ? Şu güne kadar kullanmam icap etmediğinden hiç dikkat etmedim ama bakıyorum bakıyorum bulamıyorum.
vb 6.0 da hazır komponentler vardı, formun üstüne koyduğumuzda ilgili sürücüleri, klasörleri vs gösterebiliyordu. kaldırmış olamazlar değil mi ?
nolur birisi GetLogicalDrives, GetFiles, GetDirectories, GetFileSystemEntries kullanarak el yordamıyla bu işi halletmek zorunda olmadığımı söylesin.
vb 6.0 da hazır komponentler vardı, formun üstüne koyduğumuzda ilgili sürücüleri, klasörleri vs gösterebiliyordu. kaldırmış olamazlar değil mi ?
nolur birisi GetLogicalDrives, GetFiles, GetDirectories, GetFileSystemEntries kullanarak el yordamıyla bu işi halletmek zorunda olmadığımı söylesin.
ağlıcam sanırım. linkteki mesajdaki adrese bir bakayım kolay bir yolu var mıymış. ayrıca bu acı haber için de teşekkürer :)
vb.net kitaplarını kurcalarken alternatif güzel bir koda denk geldim. treeview kontrolüne ekliyor verdiğiniz sürücüyü. ama komple eklediğinden c: yı eklersen çok vakit alıyor, azıcık üstünde oynamam gerek.
en tepede Imports System.IO demek gerekiyor yoksa değişkenleri tanımıyor.
Private Sub Browser_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim RootDir As New DirectoryInfo("g:\")
Dim RootNode As New TreeNode("g:\")
treeFiles.Nodes.Add(RootNode)
Fill(RootDir, RootNode)
End Sub
Private Sub Fill(ByVal Dir As DirectoryInfo, ByVal DirNode As TreeNode)
For Each DirItem As DirectoryInfo In Dir.GetDirectories()
' Add node for the directory.
Dim NewNode As New TreeNode(DirItem.Name)
DirNode.Nodes.Add(NewNode)
' Use a recursive call here to get all subdirectories.
Fill(DirItem, NewNode)
Next
End Sub
vb.net kitaplarını kurcalarken alternatif güzel bir koda denk geldim. treeview kontrolüne ekliyor verdiğiniz sürücüyü. ama komple eklediğinden c: yı eklersen çok vakit alıyor, azıcık üstünde oynamam gerek.
en tepede Imports System.IO demek gerekiyor yoksa değişkenleri tanımıyor.
Private Sub Browser_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim RootDir As New DirectoryInfo("g:\")
Dim RootNode As New TreeNode("g:\")
treeFiles.Nodes.Add(RootNode)
Fill(RootDir, RootNode)
End Sub
Private Sub Fill(ByVal Dir As DirectoryInfo, ByVal DirNode As TreeNode)
For Each DirItem As DirectoryInfo In Dir.GetDirectories()
' Add node for the directory.
Dim NewNode As New TreeNode(DirItem.Name)
DirNode.Nodes.Add(NewNode)
' Use a recursive call here to get all subdirectories.
Fill(DirItem, NewNode)
Next
End Sub
- kimlanbu
(18.12.07 15:25:15)
1
