تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟
#1
السلام لكم اخوتي
بالنسبة لهذا الكود


        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
كمل الكود هنا

الرد
تم الشكر بواسطة:
#2
تحتاج لتعيين أسماء للنودز 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 باسم معين من أجل عدم حدوث خطأ
الرد
تم الشكر بواسطة: DanyGhost2010 , DanyGhost2010 , أسامة السالمي
#3
شكراً جزيلاً لك اخي طالب برمجة علي ردودك ... ربنا يعوضك كل خير .

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

اتمني تكون وصلت الفكرة .
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم