22-06-13, 01:47 PM
22-06-13, 01:56 PM
22-06-13, 01:57 PM
22-06-13, 01:59 PM
22-06-13, 02:03 PM
22-06-13, 02:05 PM
22-06-13, 02:25 PM
22-06-13, 02:31 PM
[COLOR="#800000"]اعتذر عن تأخري وبسبب انقطاع الكهرباء والله يعين اهل العراق على الكهرباء
تفضل طلبك اخي لكن المشكله انه يبحث داخل مسار معين مثلآ القرص c
من مجال الاسماء استدعي[/COLOR]
Imports System.IO
واكتب الكود في حدث TextBox1_TextChanged واضف ليست بوكس
تفضل طلبك اخي لكن المشكله انه يبحث داخل مسار معين مثلآ القرص c
من مجال الاسماء استدعي[/COLOR]
Imports System.IO
واكتب الكود في حدث TextBox1_TextChanged واضف ليست بوكس
كود :
For Each IO As String In Directory.GetDirectories("C:\")
Dim i As Integer = IO.Split("\").Count - 1
If InStr(IO.Split("\")(i), TextBox1.Text) Then
ListBox1.Items.Add(IO.Split("\")(i))
End If
Next22-06-13, 02:37 PM
3booody كتب :[COLOR="#800000"]اعتذر عن تأخري وبسبب انقطاع الكهرباء والله يعين اهل العراق على الكهرباء
تفضل طلبك اخي لكن المشكله انه يبحث داخل مسار معين مثلآ القرص c
من مجال الاسماء استدعي[/COLOR]
Imports System.IO
واكتب الكود في حدث TextBox1_TextChanged واضف ليست بوكس
كود :
For Each IO As String In Directory.GetDirectories("C:\")
Dim i As Integer = IO.Split("\").Count - 1
If InStr(IO.Split("\")(i), TextBox1.Text) Then
ListBox1.Items.Add(IO.Split("\")(i))
End If
Next
معذرة اخى مش فاهم والله معلش اصل انا بتعلم من الامثلة
اعتذر لك وجزاك الله خيرا
22-06-13, 02:39 PM