+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟ (/showthread.php?tid=23107)
اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟ - DanyGhost2010 - 29-12-17
السلام لكم اخوتي
بالنسبة لهذا الكود
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
كمل الكود هنا
RE: اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟ - طالب برمجة - 29-12-17
تحتاج لتعيين أسماء للنودز 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 باسم معين من أجل عدم حدوث خطأ
RE: اريد كود عند الضغط علي TreeView1.CheckBoxes تظهر رسالة ؟ - DanyGhost2010 - 29-12-17
شكراً جزيلاً لك اخي طالب برمجة علي ردودك ... ربنا يعوضك كل خير .
طيب لنفترض ان البرتشنات تم تغير حروفها او تم تركيب فلاشة ... كيف اقوله لو تم التعليم علي إحدي البرتشنات او الفلاشات افعل كذا .
اتمني تكون وصلت الفكرة .