منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام لكم اخوتي
بالنسبة لهذا الكود


        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.ToStringd.VolumeLabel " (" d.ToString ")"

ثم إليك الكود المطلوب
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ScanButton.Click
    If TreeView1
.Nodes.ContainsKey("c:\") AndAlso TreeView1.Nodes("c:\").Checked Then
        MsgBox("
تم التعليم علي برتشن الـ C")
    End If
End Sub 

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

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

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