منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد نقل من treeview - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد نقل من treeview (/showthread.php?tid=8614)

اريد نقل من treeview - mazen - 24-04-13

انا عملت اداة الشجرة treeview ووضعت بداخلها الدريفرات والفولدرات

اريد كود نقل اسم الفولدر الي اختارة الي التيكست

وكود لاظهار مساحة الفولدر المختار الي التيكست

اريد نقل من treeview - sooriaty03 - 24-04-13

السلام عليكم ورحمة الله وبركاته

بالنسبة للطلب الأول
هذا هو الكود المطلوب
كود :
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        TextBox1.Text = TreeView1.SelectedNode.FullPath
    End Sub

بالتوفيق

اريد نقل من treeview - mazen - 24-04-13

مشكور اخي الفاضل الكود شغال

مفيش طريقة اجيب بيها مساحة كل فولدر داخل الدرايف

اريد نقل من treeview - sooriaty03 - 25-04-13

MAZEN كتب :مشكور اخي الفاضل الكود شغال

مفيش طريقة اجيب بيها مساحة كل فولدر داخل الدرايف

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم
كود :
Private Function GetSize(ByVal DirectorySize As Double) As String
        Dim Result As String = ""
        Select Case DirectorySize
            Case Is <= 1024
                Return DirectorySize & " Byte"
            Case Is <= 1024 ^ 2
                Result = (DirectorySize / 1024).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Kb"
            Case Is <= 1024 ^ 3
                Result = (DirectorySize / (1024 ^ 2)).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Mb"
            Case Is > 1024 ^ 3
                Result = DirectorySize / (1024 ^ 3)
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Gb"
        End Select
        Return ""
    End Function

بالتوفيق