[samehfido]

السلام عليكم

لا اريد الاطاله عليكم الطلب بأختصار :

عندى Form بها ComboBox محتويات الـكومبو عباره عن مجموعة مسارات تظهر كما بالصوره
لكن اريد بدل المسار يظهر اسم المجلد بشرط اذا ضغط على اى مسار يفتح كما لو كان موجود المسار نفسه .



وجزاكم الله خيراً

[سعود]

نفس فكرة المثال التالي:
http://vb4arb.com/vb/showthread.php?tid=747

[سعود]

كود :

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

[samehfido]

(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

فكره جميله ورائعه شكراً