[DanyGhost2010]

السلام لكم اخوتي
بالنسبة لهذا الكود


        TreeView1.CheckBoxes = True
        Dim drivers = (From x As IO.DriveInfo In IO.DriveInfo.GetDrives Where x.DriveType = IO.DriveType.Fixed).ToArray
        For Each d As IO.DriveInfo In drivers
            TreeView1.Nodes.Add(d.VolumeLabel & " (" & d.ToString & ")")
        Next

عايز اقول له لو تم التعليم علي برتشن الـ C مثلاً ثم الضغط علي زر بوتن تظهر رسالة تقول كذا

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScanButton.Click
كمل الكود هنا

[طالب برمجة]

تحتاج لتعيين أسماء للنودز Nodes وذلك بتغيير سطر الإضافة السابق إلى الكود التالي

PHP كود :

TreeView1.Nodes.Add(d.ToString, d.VolumeLabel & " (" & d.ToString & ")") 


ثم إليك الكود المطلوب

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScanButton.Click
    If TreeView1.Nodes.ContainsKey("c:\") AndAlso TreeView1.Nodes("c:\").Checked Then
        MsgBox("تم التعليم علي برتشن الـ C")
    End If
End Sub 


---

الجزء TreeView1.Nodes.ContainsKey للتأكد من وجود Node باسم معين من أجل عدم حدوث خطأ

[DanyGhost2010]

شكراً جزيلاً لك اخي طالب برمجة علي ردودك ... ربنا يعوضك كل خير .

طيب لنفترض ان البرتشنات تم تغير حروفها او تم تركيب فلاشة ... كيف اقوله لو تم التعليم علي إحدي البرتشنات او الفلاشات افعل كذا  .

اتمني تكون وصلت الفكرة .