+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : بخصوص ComboBox (/showthread.php?tid=2424)
بخصوص ComboBox - samehfido - 01-04-14
السلام عليكم
لا اريد الاطاله عليكم الطلب بأختصار :
عندى Form بها ComboBox محتويات الـكومبو عباره عن مجموعة مسارات تظهر كما بالصوره
لكن اريد بدل المسار يظهر اسم المجلد بشرط اذا ضغط على اى مسار يفتح كما لو كان موجود المسار نفسه .
وجزاكم الله خيراً
RE: بخصوص ComboBox - سعود - 01-04-14
نفس فكرة المثال التالي:
http://vb4arb.com/vb/showthread.php?tid=747
RE: بخصوص ComboBox - سعود - 01-04-14
كود :
Imports System.IO
Public Class Form1
Dim dirs As New List(Of String)
Dim pa As String = "g:\"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
For Each d In Directory.GetDirectories(pa)
dirs.Add(d)
ComboBox1.Items.Add(IO.Path.GetFileName(d))
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Process.Start(dirs.Item(ComboBox1.SelectedIndex))
End Sub
End ClassRE: بخصوص ComboBox - samehfido - 02-04-14
(01-04-14, 05:08 PM)سعود كتب :كود :
Imports System.IO
Public Class Form1
Dim dirs As New List(Of String)
Dim pa As String = "g:\"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
For Each d In Directory.GetDirectories(pa)
dirs.Add(d)
ComboBox1.Items.Add(IO.Path.GetFileName(d))
Next
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Process.Start(dirs.Item(ComboBox1.SelectedIndex))
End Sub
End Class
فكره جميله ورائعه شكراً