01-04-14, 07:26 AM
01-04-14, 07:26 AM
01-04-14, 04:35 PM
نفس فكرة المثال التالي:
http://vb4arb.com/vb/showthread.php?tid=747
http://vb4arb.com/vb/showthread.php?tid=747
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 Class02-04-14, 05:44 AM
(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
فكره جميله ورائعه شكراً