29-12-17, 12:18 AM
السلام لكم اخوتي
بالنسبة لهذا الكود
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
كمل الكود هنا
بالنسبة لهذا الكود
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
كمل الكود هنا